home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / MCAD254.ZIP / SIMULT.MCD < prev    next >
Encoding:
Text File  |  1989-06-21  |  1.0 KB  |  49 lines
  1. .MCD 25000 0
  2. .CMD SURFACEFORMAT rot=10 tilt=35 vScale=20 size=15,30
  3. .CMD SKETCHFORMAT mag=1.000000,1.000000 center=0.500000,0.500000 size=15,30 box=y
  4. .CMD PLOTFORMAT logs=0,0 subdivs=1,1 size=5,15 type=l
  5. .CMD FORMAT  rd=d ct=10 im=i et=6 zt=15 pr=3 mass length time charge
  6. .CMD SET ORIGIN 0
  7. .CMD SET TOL 0.001000
  8. .CMD MARGIN 0
  9. .CMD LINELENGTH 78
  10. .CMD SET PRNCOLWIDTH 8
  11. .CMD SET PRNPRECISION 4
  12. .EQN 0 0 1 13 
  13. t:0;20
  14. .TXT 1 32 2 28 
  15. a2,28,68,46
  16. SIMULTANEOUS ITERATION IN
  17. SPREAD OF EPIDEMIC
  18. .TXT 1 -32 2 14 
  19. a2,14,78,25
  20. Seed values
  21. - - - - - -
  22. .EQN 3 0 8 17 
  23. ({4,1}÷r[0÷d[0÷s[0÷i[0):({4,1}÷0÷0÷22000÷50)
  24. .EQN 0 19 8 31 
  25. ({4,1}÷r[(t+1)÷d[(t+1)÷s[(t+1)÷i[(t+1)):({4,1}÷r[t+0.45*i[t÷d[t+0.55*i[t÷s[t-0.0001*s[t*i[t÷0.0001*s[t*i[t)
  26. .TXT 0 31 1 16 
  27. a1,16,16,15
  28. . . . infected
  29. .TXT 2 0 2 22 
  30. a2,22,20,19
  31. . . . susceptible
  32.  
  33. .TXT 2 0 1 16 
  34. a1,16,16,15
  35. . . . deceased
  36. .TXT 2 0 1 17 
  37. a1,17,16,16
  38. . . . recovered
  39. .EQN 3 -40 23 13 
  40. d[t=
  41. .EQN 0 13 23 12 
  42. i[t=
  43. .EQN 0 12 23 13 
  44. s[t=
  45. .EQN 0 13 23 12 
  46. r[t=
  47. .EQN 1 -48 22 6 
  48. t=
  49.