fork download
  1. Tpr Table Q$OchC 0,10,50
  2.  
  3. Puass Fvariable 50#Fn$Expon
  4.  
  5. Gauss Fvariable 8+2#Fn$Norma
  6.  
  7. Expon Function Rn1 C24
  8.  
  9. 0,0/.1,.104/.2,.222/.3,.355/.4,.509/.5,.69/.6,.915
  10.  
  11. .7,1.2/.75,1.38/.8,1.6/.84,1.83/.88,2.12/.9,2.3/.92,2.52
  12.  
  13. .94,2.81/.95,2.99/.96,3.2/.97,3.5/.98,3.9/.99,4.6
  14.  
  15. .995,5.3/.998,6.2/.999,7/1,8
  16.  
  17. Ravnm Function Rn1,C2
  18.  
  19. 0,5/1,8
  20.  
  21. Norma Function Rn1 C25
  22.  
  23. 0,-5/.00003,-4/.00135,-3/.00621,-2.5/.02275,-2
  24.  
  25. .06681,-1.5/.11507,-1.2/.15866,-1/.21186,-.8/.2725,-.6
  26.  
  27. .34458,-.4/.42074,-.2/.5,0/.57296,.2/.65542,.4
  28.  
  29. .72575,.6/.78814,.8/.84134,1/.88493,1.2/.93319,1.5
  30.  
  31. .97725,2/.99379,2.5/.99865,3/.99997,4/1,5
  32.  
  33. Generate V$Gauss
  34.  
  35. Och1 Queue OchA,1
  36.  
  37. Seize KanA
  38.  
  39. Depart OchA,1
  40.  
  41. Advance 20,6
  42.  
  43. Release KanA
  44.  
  45. Transfer .2,,Och1
  46.  
  47. Split 1,Och3
  48.  
  49. Och2 Queue OchB,1
  50.  
  51. Seize KanB
  52.  
  53. Depart OchB,1
  54.  
  55. Advance V$Gauss
  56.  
  57. Release KanB
  58.  
  59. Transfer .25,Kontr,Och2
  60.  
  61. Och3 Queue OchC,1
  62.  
  63. Seize KanC
  64.  
  65. Depart OchC,1
  66.  
  67. Advance V$Puass
  68.  
  69. Release KanC
  70.  
  71. Transfer .25,Kontr,Och3
  72.  
  73. Kontr Assemble 2
  74.  
  75. Och4 Queue OchD,1
  76.  
  77. Seize KanD
  78.  
  79. Depart OchD,1
  80.  
  81. Advance Fn$Ravnm
  82.  
  83. Release KanD
  84.  
  85. Tabulate Tpr,1
  86.  
  87. Terminate
  88.  
  89. Generate 1440
  90.  
  91. Terminate 1
Success #stdin #stdout #stderr 0.01s 5316KB
stdin
Standard input is empty
stdout
Standard output is empty
stderr
Error: near line 1: near "Tpr": syntax error