home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 509.lha / ATS_v2.0 / ode.in.4 < prev    next >
Text File  |  1991-05-06  |  475b  |  19 lines
  1. exact=1
  2. max_terms=10
  3. n_eq=1
  4. x=complex(1.0,0.0)
  5. y1_ts=complex(0.0625,0.0)
  6. h=complex(0.0001,0.0)
  7. diff_y1_ts=constant(y1_ts,complex(1.0,0.0))/
  8. (expt(x(y1_ts)*x(y1_ts)+constant(y1_ts,complex(1.0,0.0)),
  9. constant(y1_ts,complex(4.0,0.0))))-
  10. constant(y1_ts,complex(8.0,0.0))*
  11. x(y1_ts)/(expt(x(y1_ts)*x(y1_ts)+
  12. constant(y1_ts,complex(1.0,0.0)),
  13. constant(y1_ts,complex(5.0,0.0))))
  14. //end
  15. 1.0/((ex_x*ex_x+1.0)*(ex_x*ex_x+1.0)*(ex_x*ex_x+1.0)*(ex_x*ex_x+1.0))
  16. //end
  17. iterations=100
  18. plot=0
  19.