HEAVE.CPP-continue - CR95_120037

HEAVE.CPP-continue - CR95_120036

HEAVE.CPP-continue - CR95_120038

CR95_12
Page Navigation
31

// Name by which mathcad will recognize the function

// heaverate will be called as heavepressure(settings)

"heave rate for given settings",

// description of heavepressurre(settings)

(LPCFUNCTION)heavepressureFunction,

// pointer to the executible code

COMPLEX_SCALAR,

// the return type is a complex scalar

// the function takes on 1 argument

{ COMPLEX_ARRAY}

// that is an array

LRESULT heaverateFunction(

LPCOMPLEXSCALAR

LPCCOMPLEXARRAY settings)

double HeaveRate;

micro, macro, body;

wsat, wd, ksat;

alpha, beta, phib;

prec, resol, lcmax;

press, pene, gradtb;

micro = settings->hReal[0][0];

macro = settings->hReal[0][1];

body = settings->hReal[0][2];

foo.FirstScales( micro, macro, body);

khw = settings->hReal[0][3];

khi = settings->hReal[0][4];

khg = settings->hReal[0][5];

foo.InitTherm( khw, khi, khg);

wsat = settings->hReal[0][6];

wd = settings->hReal[0][7];

ksat = settings->hReal[0][8];

foo.InitWATER( wsat, wd, ksat);

alpha = settings->hReal[0][9];

beta = settings->hReal[0][10];

phib = settings->hReal[0][11];

foo.InitBC( alpha, beta, phib);

press = settings->hReal[0][12];

pene = settings->hReal[0][13];

gradtb = settings->hReal[0][14];

foo.InitQuasi( press, pene, gradtb);

prec = settings->hReal[0][15];

resol = settings->hReal[0][16];

Western Governors University

Privacy Statement
Press Release
Contact

Integrated Publishing, Inc. - A (SDVOSB) Service Disabled Veteran Owned Small Business