Avg T planet=
	((Solar luminosity*Solar flux constant*(1-Planetary albedo)/SB constant)^0.25)-273
	~	
	~		|

Black albedo=
	0.25
	~	
	~		|

Black area= INTEG (
	Black growth,
		0)
	~	
	~		|

Black growth=
	Black area*(Uncovered area*Black growth factor-Death rate)+0.001
	~	
	~		|

Black growth factor=
	MAX(0, 1-0.003265*((22.5-T black land)^2))
	~	
	~		|

Death rate=
	0.3
	~	
	~		|

Heat absorb factor=
	20
	~	
	~		|

Planetary albedo=
	(Uncovered area*Uncovered albedo)+(Black area*Black albedo)+(White area*White albedo\
		)
	~	
	~		|

SB constant=
	5.669e-008
	~	
	~		|

Solar flux constant=
	917
	~	
	~		|

Solar luminosity=
	1-(SIN(Time * 3.14 / 100) / 2)
	~	
	~		|

T black land=
	Heat absorb factor*(Planetary albedo-Black albedo)+Avg T planet
	~	
	~		|

T of Death planet=
	((Solar luminosity*Solar flux constant*(1-0.5)/SB constant)^0.25)-273
	~	
	~		|

T white land=
	Heat absorb factor*(Planetary albedo-White albedo)+Avg T planet
	~	
	~		|

Uncovered albedo=
	0.5
	~	
	~		|

Uncovered area= INTEG (
	-Black growth-White growth,
		1)
	~	
	~		|

White albedo=
	0.75
	~	
	~		|

White area= INTEG (
	White growth,
		0)
	~	
	~		|

White growth=
	White area*(Uncovered area*White growth factor-Death rate)+0.001
	~	
	~		|

White growth factor=
	MAX(0, 1-0.003265*((22.5-T white land)^2))
	~	
	~		|

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

FINAL TIME  = 200
	~	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  = 1
	~	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
10,1,White area,266,154,40,20,3,3,0,0,0,0,0,0
10,2,Uncovered area,505,156,40,20,3,3,0,0,0,0,0,0
10,3,Black area,743,155,41,20,3,3,0,0,0,0,0,0
1,4,6,1,4,0,0,22,0,0,0,-1--1--1,,1|(342,155)|
1,5,6,2,100,0,0,22,0,0,0,-1--1--1,,1|(428,155)|
11,6,316,385,155,6,8,34,3,0,0,1,0,0,0
10,7,White growth,385,174,43,11,40,3,0,0,-1,0,0,0
1,8,10,3,4,0,0,22,0,0,0,-1--1--1,,1|(665,155)|
1,9,10,2,100,0,0,22,0,0,0,-1--1--1,,1|(581,155)|
11,10,540,623,155,6,8,34,3,0,0,1,0,0,0
10,11,Black growth,623,174,43,11,40,3,0,0,-1,0,0,0
10,12,Death rate,509,96,34,11,8,3,0,0,0,0,0,0
1,13,12,7,1,0,0,0,0,64,0,-1--1--1,,1|(440,110)|
1,14,12,11,1,0,0,0,0,64,0,-1--1--1,,1|(572,115)|
10,15,Solar flux constant,483,419,49,17,8,3,0,0,0,0,0,0
10,16,SB constant,396,420,29,16,8,3,0,0,0,0,0,0
10,17,T of Death planet,489,491,55,11,8,3,0,0,0,0,0,0
1,18,15,17,1,0,0,0,0,64,0,-1--1--1,,1|(477,450)|
1,19,16,17,1,0,0,0,0,64,0,-1--1--1,,1|(420,464)|
10,20,Solar luminosity,593,421,50,11,8,3,0,0,0,0,0,0
1,21,20,17,1,0,0,0,0,64,0,-1--1--1,,1|(546,460)|
10,22,Heat absorb factor,500,608,59,11,8,3,0,0,0,0,0,0
10,23,T white land,237,492,39,11,8,3,0,0,0,0,0,0
10,24,White albedo,282,307,43,11,8,3,0,0,0,0,0,0
1,25,24,23,1,0,0,0,0,64,0,-1--1--1,,1|(231,399)|
1,26,22,23,1,0,0,0,0,64,0,-1--1--1,,1|(331,581)|
10,27,Planetary albedo,509,285,53,11,8,3,0,0,0,0,0,0
1,28,1,27,1,0,0,0,0,64,0,-1--1--1,,1|(330,242)|
1,29,2,27,1,0,0,0,0,64,0,-1--1--1,,1|(514,213)|
1,30,3,27,1,0,0,0,0,64,0,-1--1--1,,1|(664,258)|
10,31,Black albedo,719,316,42,11,8,3,0,0,0,0,0,0
1,32,24,27,1,0,0,0,0,64,0,-1--1--1,,1|(395,307)|
1,33,31,27,1,0,0,0,0,64,0,-1--1--1,,1|(622,312)|
10,34,Uncovered albedo,575,230,47,22,8,3,0,0,0,0,0,0
1,35,34,27,0,0,0,0,0,64,0,-1--1--1,,1|(540,258)|
10,36,Avg T planet,538,355,41,11,8,3,0,0,0,0,0,0
1,37,27,36,0,0,0,0,0,64,0,-1--1--1,,1|(520,313)|
1,38,20,36,1,0,0,0,0,64,0,-1--1--1,,1|(581,381)|
1,39,15,36,1,0,0,0,0,64,0,-1--1--1,,1|(503,390)|
1,40,16,36,1,0,0,0,0,64,0,-1--1--1,,1|(448,370)|
10,41,White growth factor,175,270,44,19,8,3,0,0,0,0,0,0
1,42,23,41,1,0,0,0,0,64,0,-1--1--1,,1|(170,385)|
1,43,41,7,1,0,0,0,0,64,0,-1--1--1,,1|(213,120)|
10,44,Black growth factor,813,271,43,19,8,3,0,0,0,0,0,0
10,45,T black land,743,490,40,11,8,3,0,0,0,0,0,0
1,46,45,44,1,0,0,0,0,64,0,-1--1--1,,1|(816,401)|
1,47,44,11,1,0,0,0,0,64,0,-1--1--1,,1|(775,118)|
1,48,36,45,1,0,0,0,0,64,0,-1--1--1,,1|(648,400)|
10,49,Planetary albedo,491,547,35,19,8,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||128-128-128
1,50,49,45,1,0,0,0,0,64,0,-1--1--1,,1|(605,537)|
1,51,49,23,1,0,0,0,0,64,0,-1--1--1,,1|(353,532)|
1,52,22,45,1,0,0,0,0,64,0,-1--1--1,,1|(668,575)|
1,53,36,23,1,0,0,0,0,64,0,-1--1--1,,1|(333,389)|
10,54,Time,607,484,26,11,8,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||128-128-128
1,55,54,20,1,0,0,0,0,64,0,-1--1--1,,1|(608,450)|
1,56,31,45,1,0,0,0,0,64,0,-1--1--1,,1|(743,394)|
1,57,2,11,1,0,0,0,0,64,0,-1--1--1,,1|(557,195)|
1,58,3,11,1,0,0,0,0,64,0,-1--1--1,,1|(683,193)|
1,59,2,7,1,0,0,0,0,64,0,-1--1--1,,1|(451,205)|
1,60,1,7,1,0,0,0,0,64,0,-1--1--1,,1|(328,197)|
///---\\\
:GRAPH COMPARE
:TITLE COMPARE
:SCALE
:VAR T of Death planet
:SCALE
:VAR Avg T planet
:L<%^E!@
1:Current.vdf
9:Current
22:$,Dollar,Dollars,$s
22:€
22:Day,Days
22:Hour,Hours
22:Month,Months
22:Person,People,Persons
22:Unit,Units
22:Week,Weeks
22:Year,Years
15:0,0,0,0,0,0
19:100,0
27:2,
4:Time
5:Avg T planet
24:0
25:200
26:200