home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e004 / 1.img / SIMULT.MCD < prev    next >
Encoding:
Text File  |  1987-10-22  |  927 b   |  47 lines
  1. .MCD 20000 0
  2. .CMD PLOTFORMAT logs=0,0 subdivs=1,1 size=5,15 type=l
  3. .CMD FORMAT  rd=d ct=10 im=i et=6 zt=15 pr=3 mass length time charge
  4. .CMD SET ORIGIN 0
  5. .CMD SET TOL 0.001000
  6. .CMD MARGIN 0
  7. .CMD LINELENGTH 78
  8. .CMD SET PRNCOLWIDTH 8
  9. .CMD SET PRNPRECISION 4
  10. .EQN 0 0 1 13 
  11. t:0;20
  12. .TXT 1 32 2 28 
  13. a2,28,68,46
  14. SIMULTANEOUS ITERATION IN
  15. SPREAD OF EPIDEMIC
  16. .TXT 1 -32 2 14 
  17. a2,14,78,25
  18. Seed values
  19. - - - - - -
  20. .EQN 3 0 8 17 
  21. ({4,1}÷r[0÷d[0÷s[0÷i[0):({4,1}÷0÷0÷22000÷50)
  22. .EQN 0 19 8 31 
  23. ({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)
  24. .TXT 0 31 1 16 
  25. a1,16,16,15
  26. . . . infected
  27. .TXT 2 0 2 22 
  28. a2,22,20,19
  29. . . . susceptible
  30.  
  31. .TXT 2 0 1 16 
  32. a1,16,16,15
  33. . . . deceased
  34. .TXT 2 0 1 17 
  35. a1,17,16,16
  36. . . . recovered
  37. .EQN 3 -40 23 13 
  38. d[t=
  39. .EQN 0 13 23 12 
  40. i[t=
  41. .EQN 0 12 23 13 
  42. s[t=
  43. .EQN 0 13 23 12 
  44. r[t=
  45. .EQN 1 -48 22 6 
  46. t=
  47.