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 #76905 is a reply to message #76810] Thu, 07 July 2011 17:09 Go to previous messageGo to previous message
penteado is currently offline  penteado
Messages: 866
Registered: February 2018
Senior Member
Administrator
Is the right file found with

print,file_which('calculate_decay_rate.pro')
print,file_which('calculate_decay_rate.pro',/include_current _dir)

?

Also, what happens if you do

resolve_routine,'calculate_decay_rate',/is_function

?

On Jul 7, 4:32 pm, Maegereg <maege...@uchicago.edu> wrote:
> 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 16:00:12 PDT 2025

Total time taken to generate the page: 6.47734 seconds