51
phib = settings->hReal[0][11];
52
foo.InitBC( alpha, beta, phib);
53
54
heave = settings->hReal[0][12];
55
pene = settings->hReal[0][13];
56
gradtb = settings->hReal[0][14];
57
foo.InitContinuum( heave, pene, gradtb);
58
59
prec = settings->hReal[0][15];
60
resol = settings->hReal[0][16];
61
lcmax = settings->hReal[0][17];
62
foo.FirstTol( prec, resol, lcmax);
63
64
MathcadArrayAllocate( calculated, 1, 8, TRUE, FALSE);
65
66
transient = foo.pressure();
67
calculated->hReal [0] [0] = transient;
68
transient = foo.tgradout();
69
calculated->hReal [0] [1] = transient;
70
transient = foo.heatin();
71
calculated->hReal [0] [2] = transient;
72
transient = foo.heatout();
73
calculated->hReal [0] [3] = transient;
74
transient = foo.waterin();
75
calculated->hReal [0] [4] = transient;
76
transient = foo.spacing();
77
calculated->hReal [0] [5] = transient;
78
transient = foo.thickness();
79
calculated->hReal [0] [6] = transient;
80
transient = foo.iterout();
81
calculated->hReal [0] [7] = transient;
82
83
84
85
return 0;
// return 0 to indicate there was no error
86
87
}
88
89
90
LRESULT heavepressureFunction(
LPCOMPLEXSCALAR
pressure,
91
LPCCOMPLEXARRAY settings);
92
93
94
FUNCTIONINFO
heavepressure =
95
{
96
"heavepressure",
// Name by which mathcad will recognize the function
97
"settings",
// heaverate will be called as heavepressure(settings)
98
"heave pressure for given settings",
// description of heavepressurre(settings)
99
(LPCFUNCTION)heavepressureFunction,
// pointer to the executible code
100
COMPLEX_SCALAR,
// the return type is a complex scalar
101
1,
// the function takes on 1 argument
102
{ COMPLEX_ARRAY}
// that is an array
103
};
104
29