{UTF-8}
forward rate=
	IF THEN ELSE( "(A)"<0 , 0 , kf*"(A)"^order )
	~	
	~		|

order=
	1
	~	 [0,3,1]
	~		|

"(A)"= INTEG (
	IF THEN ELSE( "(A)">0 , -forward rate , 0 ),
		"initial (A)")
	~	 [0,2]
	~		|

"(B)"= INTEG (
	IF THEN ELSE( "(B)">2 , 0 , forward rate ),
		0)
	~	 [0,1]
	~		|

"initial (A)"=
	1
	~	 [0,2,0.1]
	~		|

kf=
	0.01
	~	 [0,0.1,0.01]
	~		|

********************************************************
	.Control
********************************************************~
		Simulation Control Parameters
	|

FINAL TIME  = 100
	~	Month
	~	The final time for the simulation.
	|

INITIAL TIME  = 0
	~	Month
	~	The initial time for the simulation.
	|

SAVEPER  = 
        TIME STEP
	~	Month [0,?]
	~	The frequency with which output is stored.
	|

TIME STEP  = 0.25
	~	Month [0,?]
	~	The time step for the simulation.
	|

\\\---/// Sketch information - do not modify anything except names
V300  Do not put anything below this section - it will be ignored
*View 1
$192-192-192,0,Times New Roman|12||0-0-0|0-0-0|0-0-255|-1--1--1|-1--1--1|96,96,100,0
10,1,"(A)",321,206,40,20,3,3,0,1,0,5,0,0,0-0-255,0-0-0,|12||0-0-0
10,2,"(B)",509,208,40,20,3,3,0,1,0,5,0,0,255-0-0,0-0-0,|12||0-0-0
1,3,5,2,4,0,0,22,0,0,0,-1--1--1,,1|(445,207)|
1,4,5,1,100,0,0,22,0,0,0,-1--1--1,,1|(385,207)|
11,5,284,416,207,6,8,34,3,0,0,1,0,0,0
10,6,forward rate,416,226,40,11,40,3,0,0,-1,0,0,0
10,7,kf,409,293,14,14,2,131,0,0,1,0,0,0
1,8,7,6,1,0,0,0,0,64,0,-1--1--1,,1|(426,263)|
10,9,"initial (A)",262,130,14,14,2,131,0,0,1,0,0,0
1,10,1,6,1,0,0,0,0,64,0,-1--1--1,,1|(348,252)|
1,11,9,1,0,0,0,0,0,64,1,-1--1--1,,1|(283,157)|
12,12,54069168,413,509,297,182,3,188,0,0,1,0,0,0
conc.
10,13,order,415,131,15,15,2,131,0,0,1,0,0,0
1,14,13,5,1,0,0,0,0,64,0,-1--1--1,,1|(450,157)|
12,15,0,580,131,34,13,8,4,0,42,-1,0,0,0,0-0-0,0-0-0,Comic Sans MS|14||0-128-0
Kinetics
///---\\\
:GRAPH conc.
:TITLE concentration over time
:X-LABEL time
:SCALE
:VAR "(A)"
:Y-MIN 0
:Y-MAX 2
:LINE-WIDTH 3
:VAR "(B)"
:LINE-WIDTH 3

:GRAPH GRAPH
:TITLE GRAPH
:X-AXIS "(A)"
:X-MIN 0
:SCALE
:VAR forward rate
:L<%^E!@
1:Current.vdf
9:Current
15:0,0,0,0,0,0
19:100,0
27:2,
34:0,
4:Time
5:(A)
24:0
25:100
26:100