{UTF-8}
********************************************************
	.photochrom
********************************************************~
		Simulation: Peter Bützer
	|

HWZ=
	1
	~	Minute
	~	Halbwertszeit der Verdunkelung
	|

k=
	LN(2)/HWZ
	~	1/Minute
	~	Reaktionsgeschwindigkeit k = ln(2)/HWZ
	|

"T(0)"= INTEG (
	-Verfärbung,
		70)
	~	T
	~	Transmission (Lichtdurchlässigkeit)
	|

"T(t)"=
	20+"T(0)"
	~	T
	~	Transmisstion (Lichtdurchlässigkeit); 20 ist die Transmission des \
		unverdunkelten Glases
	|

Verfärbung=
	k*"T(0)"
	~	T/Minute
	~	Verdunkelungsgeschwindigkeit = Reaktionsgeschwindigkeit
	|

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

FINAL TIME  = 15
	~	Minute
	~	The final time for the simulation.
	|

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

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

TIME STEP  = 0.5
	~	Minute [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|120,120,100,0
10,1,"T(0)",130,120,57,34,3,3,0,4,0,0,0,0,0-0-0,255-255-128,|12||0-0-0
12,2,48,362,124,10,8,0,3,0,0,-1,0,0,0
1,3,5,2,4,0,0,22,0,0,0,-1--1--1,,1|(320,123)|
1,4,5,1,100,0,0,22,0,0,0,-1--1--1,,1|(231,123)|
11,5,48,282,123,6,8,34,3,0,0,1,0,0,0
10,6,Verfärbung,282,143,46,12,40,3,0,0,-1,0,0,0
10,7,"T(t)",138,256,73,39,8,3,0,0,0,0,0,0
1,8,1,7,1,0,0,0,0,64,0,-1--1--1,,1|(84,152)|
1,9,1,6,1,0,0,0,0,64,0,-1--1--1,,1|(213,88)|
10,10,HWZ,355,217,24,12,8,3,0,0,0,0,0,0
10,11,k,237,213,14,11,8,3,0,0,0,0,0,0
1,12,10,11,1,0,0,0,0,64,0,-1--1--1,,1|(301,193)|
1,13,11,5,1,0,0,0,0,64,0,-1--1--1,,1|(227,189)|
///---\\\
:L<%^E!@
1:Current.vdf
9:Current
23:0
15:0,0,0,0,0,0
19:100,0
27:2,
34:0,
4:Time
5:FINAL TIME
24:0
25:15
26:15