home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / f / perfless.ark / LIBRARY.PC < prev    next >
Encoding:
Text File  |  1989-09-27  |  1.0 KB  |  56 lines
  1. >b1:\wc12
  2. >c1:5.000000000000E+01
  3. >d1:=(c13-c1)^2
  4. >e1:\wc6
  5. >f1:\wc11
  6. >g1:\dc2
  7. >g1:\wc5
  8. >h1:\wc3
  9. >i1:\wc8
  10. >c2:5.200000000000E+01
  11. >d2:=(c13-c2)^2
  12. >e2:" 
  13. >f2:"arc cosine(
  14. >g2:5.000000000005E-01
  15. >h2:")=
  16. >i2:=1.57079-atan(g2/sqrt(1-g2^2))
  17. >c3:5.000000000000E+01
  18. >d3:=(c13-c3)^2
  19. >e3:" 
  20. >c4:4.500000000000E+01
  21. >d4:=(c13-c4)^2
  22. >f4:" arc sine (
  23. >g4:8.000000000005E-01
  24. >h4:")=
  25. >i4:=atan(g4/sqrt(1-g4^2))
  26. >c5:3.900000000000E+01
  27. >d5:=(c13-c5)^2
  28. >c6:5.000000000000E+01
  29. >d6:=(c13-c6)^2
  30. >f6:"  tangent (
  31. >g6:1.400000000000E+00
  32. >h6:")=
  33. >i6:=sin(g6)/cos(g6)
  34. >c7:5.000000000000E+01
  35. >d7:=(c13-c7)^2
  36. >c8:4.400000000000E+01
  37. >d8:=(c13-c8)^2
  38. >c9:5.500000000000E+01
  39. >d9:=(c13-c9)^2
  40. >c10:4.700000000000E+01
  41. >d10:=(c13-c10)^2
  42. >g10:" 
  43. >c11:" --------
  44. >b12:"total
  45. >c12:=sum(c1:c10)
  46. >b13:"average
  47. >c13:=avg(c1:c10)
  48. >b14:"N
  49. >c14:=c12/c13
  50. >b15:"variance
  51. >c15:=((sum(d1:d10))/c14-1) 
  52. >b16:"Stand. dev.
  53. >c16:=sqrt(c15)
  54. >b19:"  
  55. >a1
  56.