d_a1t100.inp

Differential equation in TKSL

var
	x,y,z,w;
const
	a=1000,
	t0=0,
	tmax=10,
	dt=0.001,
	pi=3.1416,
	eps=1e-20;
	
system
y'=a*x	&1;
x'=-a*y &1;

w=pi*3;

z=x*y;
sysend.