Ramp Switch=
	0
	~	dmnl
	~		|

Normalized Pt= DELAY FIXED (
	Pt Proxim Tub Pressure/Initial Pt,TIME STEP,Pt Proxim Tub Pressure/Initial Pt)
	~	dmnl
	~	Normalized PT, delayed by one time step with DELAY FIXED to eliminate \
		inter-TIME STEP values in RK4 integration.
	|

Phase Angle=
	 ARCTAN(Normalized Pt/Delayed Pt)
	~	rad
	~	Angle from the origin of the point (Pt, Delayed Pt)
	|

Radius=
	SQRT(Delayed Pt^2+Normalized Pt^2)
	~	dmnl
	~	Radius from the origin of the point (Pt, Delayed Pt)
	|

Pt Plot=SAMPLE IF TRUE(
	Pt Plot Switch,Interpolated Pt,:NA:)
	~	dmnl
	~		|

Interpolated Pt=
	Interpolated Radius*SIN(Slice Angle)
	~	dmnl
	~	Interpolation to determine value of Pt at crossing of slice angle.
	|

Interpolated Radius=
	Previous Radius+(Radius-Previous Radius)*ZIDZ(Slice Angle-Previous Angle,Phase Angle\
		-Previous Angle)
	~	dmnl
	~		|

Previous Radius= DELAY FIXED (
	Radius, TIME STEP, Radius)
	~	dmnl
	~		|

Pt Plot Switch=
	IF THEN ELSE( (Phase Angle >= Slice Angle :AND: Previous Angle < Slice Angle)
	:OR: (Phase Angle <= Slice Angle :AND: Previous Angle > Slice Angle)
	,1,0)
	~	dmnl
	~	Plot switch for taking a section through the Poincare map of Pt vs. Delayed Pt. \
		Returns
		        one when the angle of the slice lies between the current and previous angles \
		of Pt vs.
		         Delayed Pt.
	|

Previous Angle= DELAY FIXED (
	Phase Angle, TIME STEP, Phase Angle)
	~	rad
	~	Phase angle delayed by one time step for creating Poincare section.
	|

T Mac Dens Aff Art Delay Initial = 4.5
	~	seconds
	~		|

T Mac Dens Aff Art Delay Final=
	12
	~	seconds
	~		|

Initial Pt = 12
	~	mmHg
	~		|

Slice Angle = 0.785398
	~	rad
	~	pi/4
	|

********************************************************
	.Mosekilde
********************************************************~
		Erik Mosekilde's model of chaos in rat kidneys. Replicated
		from equations presented in Mosekilde's paper by Tom
		Fiddaman, with help from Bob Eberlein on the use of Vensim's
		SIMULTANEOUS function. While I have been unable to find chaotic
		behavior at the exact parameter values specified in the paper,
		try setting d = 0.10, T_Mac_Dens_Aff_Art_Delay = 10 for a
		chaotic or at least very high periodicity regime.
		
		For chaotic runs, you should extend the final time to 1000 or
		2000 seconds and set the time axis controls so that results
		are plotted only after initial transients have died out - 200
		to 500 seconds.
	|

********************************************************
	.Afferent
********************************************************~
	|

Ra Afferent Arter Resist= INTEG (
	dRa,
		 Ra0)
	~	sec*mmHg/nl
	~		|

Alpha = 9
	~	dmnl
	~		|

Chg dRa=
	-2*d*Omega*K^0.5*dRa-Omega*Omega*K*(Ra Afferent Arter Resist-Psi Input*Ra0)
	~	sec*mmHg/nl/sec/sec
	~		|

d = 0.16
	~	dmnl
	~	
		Raising d may increase the amplitude of oscillation!
	|

dRa = INTEG(Chg dRa, 0)
	~	sec*mmHg/nl/sec
	~	{initialized stationary}
	|

K =IF THEN ELSE(Ra Normalized>K Thresh Max,1+K Coeff* 
(Ra Normalized-K Thresh Max)^2,IF THEN ELSE(Ra Normalized
<K Thresh Min,1+K Coeff*(K Thresh Min-Ra Normalized)^2,1))
	~	dmnl
	~		|

K Coeff = 600
	~	dmnl
	~		|

K Thresh Max = 1.5
	~	dmnl
	~		|

K Thresh Min = 0.75
	~	dmnl
	~		|

Omega = 0.22
	~	1/sec
	~	{1/s}
	|

Psi = Psi max-(Psi max-Psi min)/(1+exp(Alpha*(Fhen Norm Delayed-S)))
	~	dmnl
	~	Note: there was apparently a mistake in the specification of this logistic-type \
		curve in the
		         article.
	|

Psi Input = Psi Test SW*Psi Test+(1-Psi Test SW)*Psi
	~	dmnl
	~		|

Psi max = 1.5
	~	dmnl
	~		|

Psi min = 0.75
	~	dmnl
	~		|

Psi Test = 1+step(0.1,20)
	~	dmnl
	~		|

Psi Test SW = 0
	~	dmnl
	~		|

Ra0 = 18.3
	~	mmHg*sec/nl
	~	{mmHg*s/nl}
	|

Ra Normalized = Ra Afferent Arter Resist/Ra0
	~	dmnl
	~		|

S = INITIAL(1-ln((1-Psi min)/(Psi max-1))/Alpha)
	~	dmnl
	~	INITIAL used to save a few clock cycles.
	|

********************************************************
	.Blood
********************************************************~
		This portion of the model solves a system of simultaneous
		equations describing the equilibrium glomerular pressure
		and blood flow. Mosekilde uses a Pascal routine to solve
		the equations; here the Vensim SIMULTANEOUS function is
		used.
	|

Pg Scale=
	0.02
	~	mmHg
	~		|

Actual Pg=
	FIND ZERO(Pg Scale,Pg Difference,Pg Diff Scale,Pg Initial,1,0,0.001,100,0)
	~	mmHg
	~		|

Pg Difference=
	Actual Pg-Indicated Pg
	~	mmHg
	~		|

Pg Initial=
	54
	~	mmHg
	~		|

Pg Diff Scale=
	1
	~	mmHg
	~		|

BF Blood Flow=
	 (Pa Arterial Pressure-Actual Pg)/Ra Afferent Arter Resist
	~	nl/sec
	~	Note: the indicated BF and BF loop is a dummy loop inserted to reduce
		the gain of the Pg->BF->Pg positive loop, so that the convergence routine
		will work properly.
	|

a = 0.163
	~	mmHg*nl/ng
	~	{mmHg*l/g}
	|

b = 0.0029
	~	mmHg*(nl*nl)/(ng*ng)
	~	{mmHg*l^2/g^2}
	|

Ca Affer Blood Protein Conc = 54
	~	ng/nl
	~	{g/l}
	|

Ce Effer Blood Protein Conc=
	(a/2/b)*((1+(Actual Pg-Pt Proxim Tub Pressure)/b/(a/2/b)/(a/2/b))^0.5 - 1)
	~	ng/nl
	~		|

Ha Hematocrit = 0.5
	~	dmnl
	~		|

Indicated Pg=
	Pv Veinous Pressure+Re Efferent Resist*(BF Blood Flow-SNGFR Filtrat Flow)
	~	mmHg
	~		|

Pa Arterial Pressure = 100
	~	mmHg
	~	{mmHg}
	|

Pv Veinous Pressure = 10
	~	mmHg
	~	{mmHg}
	|

Re Efferent Resist = 14
	~	sec*mmHg/nl
	~	{mmHg*s/nl}
	|

SNGFR Filtrat Flow=
	BF Blood Flow*(1-Ha Hematocrit)*(1-Ca Affer Blood Protein Conc/Ce Effer Blood Protein Conc\
		)
	~	nl/sec
	~	{ Equation 2 }
	|

********************************************************
	.Loop
********************************************************~
	|

T Mac Dens Aff Art Delay=
	T Mac Dens Aff Art Delay Initial  
	+(T Mac Dens Aff Art Delay Final-T Mac Dens Aff Art Delay Initial)
	*Ramp Switch*(Time-INITIAL TIME)/(FINAL TIME-INITIAL TIME)
	~	seconds
	~		|

Fhen0 = 0.1875
	~	nl/sec
	~		|

Fhen Flow to Loop of Henle =
(Pt Proxim Tub Pressure-Pd Distal Tub Pressure)/Rhen Henle Loop Resist
	~	nl/sec
	~		|

Fhen Norm Delayed =
smOOth3(Fhen Flow to Loop of Henle,T Mac Dens Aff Art Delay)/Fhen0
	~	dmnl
	~		|

Pd Distal Tub Pressure = 4.5
	~	mmHg
	~	{mmHg}
	|

Rhen Henle Loop Resist = 40
	~	sec*mmHg/nl
	~	{mmHg*s/nl}
	|

********************************************************
	.Proximal
********************************************************~
	|

Delayed Pt= DELAY FIXED (
	Normalized Pt ,Pt Delay,Normalized Pt )
	~	dmnl
	~	Delayed value of Pt for creating Poincare section.
	|

Ctub Tubule Compliance = 0.4
	~	nl/mmHg
	~	{nl/mmHg}
	|

dPt Chg Prox Tub Press =
(SNGFR Filtrat Flow-Freab Reabsorb Flow-Fhen Flow to Loop of Henle)/Ctub Tubule Compliance
	~	mmHg/sec
	~		|

Freab Reabsorb Flow = 0.3
	~	nl/sec
	~	{nl/sec}
		nl/sec
	|

Pt Proxim Tub Pressure = INTEG(dPt Chg Prox Tub Press, Initial Pt)
	~	mmHg
	~	{mmHg - guestimate, pg. 92 left side 3rd paragraph}
	|

Pt Delay = 10
	~	seconds
	~		|

********************************************************
	.Control
********************************************************~
		Note: the model MUST be simulated with RK4 integration for
		reasonable accuracy. Mosekilde uses RK4 with a fixed step
		of .05; you could probably do better with a variable step
		of similar or perhaps larger size (.0625 or .125). I haven't
		tested these in this version.
	|

TIME STEP  = 1
	~	seconds
	~		|

FINAL TIME  = 400
	~	seconds
	~		|

INITIAL TIME  = 0
	~	seconds
	~		|

SAVEPER  = 
        TIME STEP
	~	seconds
	~		|

\\\---/// Sketch information - do not modify anything except names
V300  Do not put anything below this section - it will be ignored
*Model
$0,0,Times New Roman|12||0-0-0|0-0-0|0-0-0|-1--1--1|-1--1--1
12,1,48,259,176,8,8,0,3,0,0,-1,0,0,0
10,2,Pt Proxim Tub Pressure,440,180,40,20,3,3,0,0,0,0,0,0
12,3,48,377,782,8,8,0,3,0,0,-1,0,0,0
10,4,SNGFR Filtrat Flow,201,342,65,11,0,3,0,0,-1,0,0,0
10,5,Freab Reabsorb Flow,123,177,69,11,0,3,0,0,-1,0,0,0
10,6,Ctub Tubule Compliance,125,234,78,11,0,3,0,0,-1,0,0,0
10,7,Ha Hematocrit,40,350,47,11,0,3,0,0,-1,0,0,0
10,8,Ca Affer Blood Protein Conc,90,387,91,11,0,3,0,0,-1,0,0,0
10,9,Ce Effer Blood Protein Conc,359,306,90,11,0,3,0,0,-1,0,0,0
10,10,Indicated Pg,325,411,40,11,0,3,0,0,-1,0,0,0
10,11,BF Blood Flow,192,440,50,11,0,3,0,0,-1,0,0,0
10,12,Fhen Flow to Loop of Henle,603,252,89,11,0,3,0,0,-1,0,0,0
10,13,Actual Pg,540,410,32,11,0,3,0,0,0,0,0,0
10,14,a,486,289,6,11,0,3,0,0,-1,0,0,0
10,15,b,502,314,6,11,0,3,0,0,-1,0,0,0
10,16,Pd Distal Tub Pressure,643,125,72,11,0,3,0,0,-1,0,0,0
10,17,Rhen Henle Loop Resist,718,175,76,11,0,3,0,0,-1,0,0,0
10,18,Initial Pt,431,135,36,11,0,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||128-128-128
10,19,Pv Veinous Pressure,330,351,65,11,0,3,0,0,-1,0,0,0
10,20,Re Efferent Resist,334,465,56,11,0,3,0,0,-1,0,0,0
10,21,Pa Arterial Pressure,80,530,63,11,0,3,0,0,-1,0,0,0
10,22,Ra Afferent Arter Resist,210,603,40,20,3,3,0,0,0,0,0,0
10,23,K,460,705,8,11,0,3,0,0,-1,0,0,0
10,24,Ra Normalized,357,650,48,11,0,3,0,0,-1,0,0,0
10,25,Psi Input,460,791,29,11,0,3,0,0,-1,0,0,0
10,26,Ra0,362,707,15,11,0,3,0,0,-1,0,0,0
10,27,K Thresh Min,388,620,45,11,0,3,0,0,-1,0,0,0
10,28,K Coeff,455,610,27,11,0,3,0,0,-1,0,0,0
10,29,Psi,542,743,11,11,0,3,0,0,-1,0,0,0
10,30,Psi min,657,768,24,11,0,3,0,0,-1,0,0,0
10,31,Fhen Norm Delayed,648,616,64,11,0,3,0,0,-1,0,0,0
10,32,Fhen0,770,650,21,11,0,3,0,0,-1,0,0,0
10,33,K Thresh Max,511,629,47,11,0,3,0,0,-1,0,0,0
10,34,d,344,848,6,11,0,3,0,0,-1,0,0,0
10,35,Omega,268,851,24,11,0,3,0,0,-1,0,0,0
10,36,Psi Test,415,884,26,11,0,3,0,0,-1,0,0,0
10,37,Psi max,560,839,26,11,0,3,0,0,-1,0,0,0
10,38,Alpha,592,813,20,11,0,3,0,0,-1,0,0,0
10,39,S,672,820,7,11,0,3,0,0,-1,0,0,0
10,40,Psi Test SW,495,883,40,11,0,3,0,0,-1,0,0,0
11,41,988,318,176,6,8,34,3,0,0,1,0,0,0
10,42,dPt Chg Prox Tub Press,318,195,76,11,32,3,0,0,-1,0,0,0
10,43,dRa,212,782,40,20,3,3,0,0,0,0,0,0
11,44,652,306,782,6,8,34,3,0,0,1,0,0,0
10,45,Chg dRa,306,801,29,11,32,3,0,0,-1,0,0,0
1,46,15,9,0,0,0,0,0,0,0,-1--1--1,,1|(479,312)|
1,47,14,9,0,0,0,0,0,0,0,-1--1--1,,1|(467,290)|
1,48,15,9,0,0,0,0,0,0,0,-1--1--1,,1|(479,312)|
1,49,2,9,1,0,0,0,0,0,0,-1--1--1,,1|(413,242)|
1,50,13,9,1,0,0,0,0,0,0,-1--1--1,,1|(465,347)|
1,51,15,9,0,0,0,0,0,0,0,-1--1--1,,1|(479,312)|
1,52,14,9,0,0,0,0,0,0,0,-1--1--1,,1|(467,290)|
1,53,26,44,1,0,0,0,0,0,0,-1--1--1,,1|(345,745)|
1,54,25,45,1,0,0,0,0,0,0,-1--1--1,,1|(386,800)|
1,55,22,44,1,0,0,0,0,0,0,-1--1--1,,1|(284,684)|
1,56,23,44,1,0,0,0,0,0,0,-1--1--1,,1|(411,750)|
1,57,35,45,0,0,0,0,0,0,0,-1--1--1,,1|(282,831)|
1,58,35,45,0,0,0,0,0,0,0,-1--1--1,,1|(282,831)|
1,59,34,45,0,0,0,0,0,0,0,-1--1--1,,1|(330,831)|
1,60,6,42,0,0,0,0,0,0,0,-1--1--1,,1|(214,215)|
1,61,12,41,1,0,0,0,0,0,0,-1--1--1,,1|(537,133)|
1,62,5,42,0,0,0,0,0,0,0,-1--1--1,,1|(210,184)|
1,63,4,42,1,0,0,0,0,0,0,-1--1--1,,1|(238,263)|
1,64,17,12,0,0,0,0,0,0,0,-1--1--1,,1|(666,209)|
1,65,16,12,0,0,0,0,0,0,0,-1--1--1,,1|(625,181)|
1,66,2,12,1,0,0,0,0,0,0,-1--1--1,,1|(526,205)|
1,67,32,31,0,0,0,0,0,0,0,-1--1--1,,1|(724,637)|
1,68,12,31,1,0,0,0,0,0,0,-1--1--1,,1|(635,423)|
1,69,4,10,1,0,0,0,0,0,0,-1--1--1,,1|(249,378)|
1,70,11,10,0,0,0,0,0,0,0,-1--1--1,,1|(256,426)|
1,71,20,10,0,0,0,0,0,0,0,-1--1--1,,1|(330,444)|
1,72,19,10,0,0,0,0,0,0,0,-1--1--1,,1|(328,374)|
1,73,24,23,0,0,0,0,0,0,0,-1--1--1,,1|(408,677)|
1,74,27,23,0,0,0,0,0,0,0,-1--1--1,,1|(419,657)|
1,75,28,23,0,0,0,0,0,0,0,-1--1--1,,1|(456,650)|
1,76,27,23,0,0,0,0,0,0,0,-1--1--1,,1|(419,657)|
1,77,24,23,0,0,0,0,0,0,0,-1--1--1,,1|(408,677)|
1,78,33,23,0,0,0,0,0,0,0,-1--1--1,,1|(489,661)|
1,79,24,23,0,0,0,0,0,0,0,-1--1--1,,1|(408,677)|
1,80,28,23,0,0,0,0,0,0,0,-1--1--1,,1|(456,650)|
1,81,33,23,0,0,0,0,0,0,0,-1--1--1,,1|(489,661)|
1,82,24,23,0,0,0,0,0,0,0,-1--1--1,,1|(408,677)|
1,83,39,29,0,0,0,0,0,0,0,-1--1--1,,1|(615,786)|
1,84,31,29,1,0,0,0,0,0,0,-1--1--1,,1|(610,688)|
1,85,38,29,0,0,0,0,0,0,0,-1--1--1,,1|(571,783)|
1,86,30,29,0,0,0,0,0,0,0,-1--1--1,,1|(599,755)|
1,87,37,29,0,0,0,0,0,0,0,-1--1--1,,1|(552,797)|
1,88,37,29,0,0,0,0,0,0,0,-1--1--1,,1|(552,797)|
1,89,29,25,1,0,0,0,0,0,0,-1--1--1,,1|(512,768)|
1,90,40,25,0,0,0,0,0,0,0,-1--1--1,,1|(480,843)|
1,91,36,25,0,0,0,0,0,0,0,-1--1--1,,1|(433,843)|
1,92,40,25,0,0,0,0,0,0,0,-1--1--1,,1|(480,843)|
1,93,26,24,0,0,0,0,0,0,0,-1--1--1,,1|(360,685)|
1,94,22,24,0,0,0,0,0,0,0,-1--1--1,,1|(279,624)|
1,95,9,4,1,0,0,0,0,0,0,-1--1--1,,1|(248,313)|
1,96,8,4,0,0,0,0,0,0,0,-1--1--1,,1|(138,367)|
1,97,7,4,0,0,0,0,0,0,0,-1--1--1,,1|(104,346)|
1,98,11,4,0,0,0,0,0,0,0,-1--1--1,,1|(195,397)|
1,99,41,2,4,0,0,22,0,0,0,-1--1--1,,1|(362,176)|
1,100,41,1,100,0,0,22,0,0,0,-1--1--1,,1|(289,176)|
1,101,44,43,4,0,0,22,0,0,0,-1--1--1,,1|(276,782)|
1,102,44,3,100,0,0,22,0,0,0,-1--1--1,,1|(340,782)|
1,103,13,11,1,0,0,0,0,0,0,-1--1--1,,1|(447,523)|
1,104,21,11,0,0,0,0,0,0,0,-1--1--1,,1|(130,489)|
1,105,22,11,0,0,0,0,0,0,0,-1--1--1,,1|(201,523)|
12,106,48,205,714,8,8,0,3,0,0,-1,0,0,0
11,107,48,205,664,8,6,1,3,0,0,1,0,0,0
1,108,107,22,4,0,0,22,0,0,0,-1--1--1,,1|(205,640)|
1,109,107,106,100,0,0,22,0,0,0,-1--1--1,,1|(205,688)|
1,110,43,107,1,0,0,0,0,0,0,-1--1--1,,1|(177,720)|
1,111,43,45,1,0,0,0,0,0,0,-1--1--1,,1|(232,809)|
10,112,Pg Difference,430,410,43,11,0,3,0,0,0,0,0,0
1,113,10,112,0,0,0,0,0,64,0,-1--1--1,,1|(369,410)|
1,114,13,112,1,0,0,0,0,64,0,-1--1--1,,1|(485,428)|
1,115,112,13,1,0,0,0,0,64,0,-1--1--1,,1|(480,395)|
10,116,Pg Initial,550,480,28,11,0,3,0,0,-1,0,0,0
1,117,116,13,0,0,0,0,0,0,0,-1--1--1,,1|(546,451)|
10,118,Pg Scale,600,450,29,11,0,3,0,0,-1,0,0,0
1,119,118,13,0,0,0,0,0,0,0,-1--1--1,,1|(575,433)|
10,120,Pg Diff Scale,510,520,51,11,0,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||128-128-128
1,121,120,13,0,0,0,0,0,0,0,-1--1--1,,1|(523,471)|
10,122,T Mac Dens Aff Art Delay,740,690,83,11,0,3,0,0,-1,0,0,0
10,123,T Mac Dens Aff Art Delay Initial,940,760,101,11,0,3,0,0,-1,0,0,0
1,124,122,31,0,0,0,0,0,0,0,-1--1--1,,1|(699,657)|
10,125,T Mac Dens Aff Art Delay Final,960,720,100,11,0,3,0,0,-1,0,0,0
1,126,123,122,0,0,0,0,0,64,0,-1--1--1,,1|(846,727)|
1,127,125,122,0,0,0,0,0,64,0,-1--1--1,,1|(856,705)|
10,128,FINAL TIME,920,650,55,11,0,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||128-128-128
1,129,128,122,0,0,0,0,0,0,0,-1--1--1,,1|(836,668)|
10,130,INITIAL TIME,950,680,60,11,0,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||128-128-128
1,131,130,122,0,0,0,0,0,0,0,-1--1--1,,1|(863,683)|
10,132,Time,850,800,26,11,0,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||128-128-128
1,133,132,122,0,0,0,0,0,0,0,-1--1--1,,1|(799,749)|
10,134,Ramp Switch,810,830,43,11,0,3,0,0,0,0,0,0
1,135,134,122,0,0,0,0,0,64,0,-1--1--1,,1|(778,766)|
12,136,0,180,30,158,11,0,4,0,2,-1,0,0,0,0-0-0,0-0-0,|12||255-0-0
Replicated by Tom Fiddaman (Tom@Vensim.com)
12,137,0,170,90,140,55,8,4,0,2,-1,0,0,0,0-0-0,0-0-0,|12||255-0-0
From Jensen, K.S., Mosekilde, Erik, and Holstein-Rathlou, N. Self-Sustained Oscillations and Chaotic Behavior in Kidney Pressure Regulation. In I. Prigogine and M. Sanglier, eds., Laws of Nature and Human Conduct. Brussels: Taskforce of Research Informat
\\\---/// Sketch information - do not modify anything except names
V300  Do not put anything below this section - it will be ignored
*Plotting
$0,0,Times New Roman|12||0-0-0|0-0-0|0-0-0|-1--1--1|-1--1--1
10,1,Delayed Pt,180,160,36,11,0,3,0,0,-1,0,0,0
10,2,Pt Delay,285,115,28,11,0,3,0,0,-1,0,0,0
10,3,Pt Proxim Tub Pressure,440,120,83,11,0,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||128-128-128
10,4,Pt Plot,580,280,23,11,0,3,0,0,-1,0,0,0
10,5,Previous Angle,340,280,48,11,0,3,0,0,-1,0,0,0
10,6,Pt Plot Switch,470,280,45,11,0,3,0,0,-1,0,0,0
10,7,Slice Angle,440,320,36,11,0,3,0,0,-1,0,0,0
10,8,Phase Angle,283,227,40,11,0,3,0,0,-1,0,0,0
1,9,6,4,0,0,0,0,0,0,0,-1--1--1,,1|(529,280)|
1,10,1,8,0,0,0,0,0,0,0,-1--1--1,,1|(225,189)|
1,11,8,6,0,0,0,0,0,0,0,-1--1--1,,1|(369,251)|
1,12,7,6,0,0,0,0,0,0,0,-1--1--1,,1|(450,305)|
1,13,5,6,1,0,0,0,0,64,0,-1--1--1,,1|(401,279)|
1,14,8,5,0,0,0,0,0,64,0,-1--1--1,,1|(305,248)|
10,15,Interpolated Radius,270,360,61,11,0,3,0,0,0,0,0,0
10,16,Radius,186,225,23,11,0,3,0,0,0,0,0,0
1,17,1,16,0,0,0,0,0,64,0,-1--1--1,,1|(182,185)|
10,18,Previous Radius,120,290,51,11,0,3,0,0,0,0,0,0
1,19,18,15,0,0,0,0,0,64,0,-1--1--1,,1|(188,322)|
1,20,16,15,0,0,0,0,0,64,0,-1--1--1,,1|(223,286)|
1,21,8,15,0,0,0,0,0,64,0,-1--1--1,,1|(277,286)|
1,22,5,15,0,0,0,0,0,64,0,-1--1--1,,1|(309,314)|
1,23,7,15,0,0,0,0,0,0,0,-1--1--1,,1|(366,336)|
10,24,Interpolated Pt,570,360,47,11,0,3,0,0,0,0,0,0
1,25,15,24,0,0,0,0,0,64,0,-1--1--1,,1|(420,360)|
1,26,7,24,0,0,0,0,0,64,0,-1--1--1,,1|(497,337)|
1,27,24,4,0,0,0,0,0,64,0,-1--1--1,,1|(573,326)|
10,28,Normalized Pt,290,160,46,11,0,3,0,0,0,0,0,0
1,29,3,28,0,0,0,0,0,64,0,-1--1--1,,1|(371,138)|
1,30,28,1,0,0,0,0,0,64,0,-1--1--1,,1|(237,160)|
1,31,28,16,0,0,0,0,0,64,0,-1--1--1,,1|(243,188)|
1,32,28,8,0,0,0,0,0,64,0,-1--1--1,,1|(287,186)|
10,33,Initial Pt,430,160,36,11,0,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||128-128-128
1,34,33,28,0,0,0,0,0,64,0,-1--1--1,,1|(372,160)|
1,35,16,18,0,0,0,0,0,0,0,-1--1--1,,1|(158,252)|
///---\\\
:GRAPH PHASE
:TITLE Phase
:X-AXIS Pt Proxim Tub Pressure
:SCALE
:VAR Fhen Norm Delayed
:SCALE
:VAR Ra Afferent Arter Resist
:GRAPH POINCARE
:TITLE Poincare
:X-AXIS Delayed Pt
:X-DIV 4
:Y-DIV 4
:X-MIN 0.5
:X-MAX 1.5
:DOTS
:SCALE
:VAR Normalized Pt
:Y-MIN 0.5
:Y-MAX 1.5
:VAR Pt Plot
:GRAPH SECTION
:TITLE Section
:X-AXIS T Mac Dens Aff Art Delay
:X-MIN 0
:X-MAX 16
:DOTS
:SCALE
:VAR Pt Plot
:Y-MIN 0.5
:Y-MAX 1.5
:GRAPH POINCARE_0
:TITLE Poincare
:X-DIV 4
:Y-DIV 4
:X-MIN 200
:DOTS
:SCALE
:VAR Normalized Pt
:Y-MIN 0.5
:Y-MAX 1.5
:VAR Pt Plot
:L<%^E!@
1:ramp.vdf
9:ramp
22:$,Dollar,Dollars,$s
22:Day,Days
22:dmnl,rad
22:Hour,Hours
22:Month,Months
22:Person,People,Persons
22:sec,secs,second,seconds,s
22:Unit,Units
22:Week,Weeks
22:Year,Years
10:ramp5b.cin,
15:0,0,0,1
19:100,0
4:Time
5:Pt Proxim Tub Pressure