cppSimplifiedExpStrucModel/ModelCollagenFiber.cpp at master · willwiz/cppSimplifiedExpStrucModel · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
//
//  ModelCollagenFiber.cpp
//  fullstructuralmodel
//
//  Created by Will Zhang on 5/10/18.
//  Copyright © 2018 Will Zhang. All rights reserved.
//


#include "math.h"
#include "ModelCollagenFiber.hpp"


//Fiber Model that's linear in PF
double model_col_fiber_PF(double par[], int parn, double arg[2], int argn)
{
    // arg[0] = lambda_f, stretch
    // arg[1] = lambda_s, slack
    // Number of arguments is argn = 2


    double lf = 1.0 / arg[0];
    double ls = 1.0 / arg[1];

    return ls * (ls - lf);
}


//Fiber Model that's linear in SE
double model_col_fiber_SE (double par[], int parn, double arg[2], int argn)
{
    // arg[0] = lambda_f, stretch
    // arg[1] = lambda_s, slack
    // Number of arguments is argn = 2

    double Ef = arg[0]*arg[0];
    double Es = arg[1]*arg[1];
    double denom = 1.0/Es;

    return 0.5*(Ef - Es) * denom * denom;
};