File: nthet.ode

package info (click to toggle)
xppaut 8.0%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 7,332 kB
  • sloc: ansic: 74,690; makefile: 127; sh: 92
file content (10 lines) | stat: -rwxr-xr-x 268 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
 
c[0..99]=cos(x[j])
# stot=sum(0,99)of(shift(s0,i'))/100
stot=.25
s[0..99]'=exp(-20*(1+c[j]))*(1-s[j])-s[j]/tau
x[0..99]'=1-c[j]+(1+c[j])*(-a+g*stot+sig*w[j])
wiener w[0..99]
par a=.05,g=.2,tau=20,sig=.2
aux st=sum(0,99)of(shift(s0,i'))/100
@ meth=euler,total=100
done