comp.lang.idl-pvwave archive
Messages from Usenet group comp.lang.idl-pvwave, compiled by Paulo Penteado

Home » Public Forums » archive » Re: Variable is undefined: Actually a function
Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend 
Return to the default flat view Create a new topic Submit Reply
Re: Variable is undefined: Actually a function [message #76810 is a reply to message #76809] Thu, 07 July 2011 12:32 Go to previous messageGo to previous message
Maegereg is currently offline  Maegereg
Messages: 10
Registered: June 2011
Junior Member
Michael Galloy wrote:
> So PHYSIOLOGY::MTT has a "compile_opt strictarr"? Could we see
> PHYSIOLOGY::MTT?
>
> Mike

function Physiology::MTT, realCO=realCO, brainRatio=brainRatio,
liverRatio=liverRatio, kidneyRatio=kidneyRatio, slowRatio=slowRatio
compile_opt strictarr
Forward_Function CALCULATE_DECAY_RATE
if(N_Elements(realCO) EQ 0) then realCO=self.CO
standardBV=5000.0d0
standardCO=6500.0d0
heartBV=(800.0+100.0)/standardBV*self.BV
heartMTT=heartBV/realCO
brainBV=(80.0+20.0+37.0+63.0)/standardBV*self.BV; plus a little more 40.0d0
if(N_Elements(brainRatio) EQ 0) then brainRatio=975.0d0/standardCO
brainBF=realCO*brainRatio
brainMTT=brainBV/brainBF
aortaBV=(800.0+200.0)/standardBV*self.BV
aortaBF=(4810.0/standardCO)*realCO
aortaMTT=aortaBV/aortaBF
liverBV=(120.0d0+42.5)/standardBV*self.BV
if(N_Elements(liverRatio) EQ 0) then liverRatio=1885.0d0/standardCO
liverBF=liverRatio*realCO
liverMTT=liverBV/liverBF

aorta2BV=(400.0d0)/standardBV*self.BV assumed number
aorta2BF=(2935.0/standardCO)*realCO
aorta2MTT=aorta2BV/aorta2BF

kidneyBV=(120.0d0+54)/standardBV*self.BV
if(N_Elements(kidneyRatio) EQ 0) then kidneyRatio=1430.0d0/standardCO
kidneyBF=kidneyRatio*realCO
kidneyMTT=kidneyBV/kidneyBF

slowBV=2200.0d0/standardBV*self.BV
if(N_Elements(slowRatio) EQ 0) then slowRatio=1820.0d0/standardCO
slowBF=slowRatio*realCO
slowMTT=slowBV/slowBF
slowRate=CALCULATE_DECAY_RATE(slowBF*0.55d0, self.Vf, self.Vs, slowMTT)

return, [slowRate, (heartMTT+brainMTT), heartMTT+aortaMTT+aorta2MTT,
kidneyMTT]
end
[Message index]
 
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Previous Topic: mgunit 1.2 release
Next Topic: TOTAL gives totally different result on identical array

-=] Back to Top [=-
[ Syndicate this forum (XML) ] [ RSS ] [ PDF ]

Current Time: Sat Oct 11 18:02:38 PDT 2025

Total time taken to generate the page: 1.11959 seconds