home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / f / perfless.ark / SCIENCE.PC < prev    next >
Text File  |  1989-09-27  |  2KB  |  104 lines
  1. >a1:" CHI-SQUARE ANALYSIS
  2. >a1:\wc15
  3. >b1:\wc1
  4. >d1:\wc1
  5. >f1:\wc1
  6. >h1:\wc1
  7. >j1:\wc1
  8. >l1:\wc1
  9. >a2:"Copyright, 1982, Perfect Software, Inc.
  10. >a3:"********************************************************************
  11. >a4:"  It is possible to enter data directly in the cells by using the
  12. >a5:"    SEARCH for next unlocked field command (CRTL--S).
  13. >a7:"********************************************************************
  14. >e9:"      Independent Variable
  15. >a11:"  Dependent
  16. >e11:"Chi-square
  17. >g11:=m35@
  18. >i11:"    d.f.=
  19. >k11:=(3-1)*(5-1)@
  20. >a12:"  Variable
  21. >b13:"------------------------------------------------------
  22. >m13:"
  23. >b14:"I
  24. >c14:0
  25. >d14:"I
  26. >e14:0
  27. >f14:"I
  28. >g14:0
  29. >h14:"I
  30. >i14:0
  31. >j14:"I
  32. >k14:0
  33. >l14:"I
  34. >m14:=c14+e14+g14+i14+k14@
  35. >b15:"------------------------------------------------------
  36. >b16:"I
  37. >c16:0
  38. >d16:"I
  39. >e16:0
  40. >f16:"I
  41. >g16:0
  42. >h16:"I
  43. >i16:0
  44. >j16:"I
  45. >k16:0
  46. >l16:"I
  47. >m16:=c16+e16+g16+i16+k16@
  48. >b17:"------------------------------------------------------
  49. >b18:"I
  50. >c18:0
  51. >d18:"I
  52. >e18:0
  53. >f18:"I
  54. >g18:0
  55. >h18:"I
  56. >i18:0
  57. >j18:"I
  58. >k18:0
  59. >l18:"I
  60. >m18:=c18+e18+g18+i18+k18@
  61. >b19:"------------------------------------------------------
  62. >m19:"
  63. >c20:=sum(c14:c18)@
  64. >e20:=sum(e14:e18)@
  65. >g20:=sum(g14:g18)@
  66. >i20:=sum(i14:i18)@
  67. >k20:=sum(k14:k18)@
  68. >m20:=sum(m14:m18)@
  69. >c27:=(c20*m14)/m20@
  70. >e27:=(e20*m14)/m20@
  71. >g27:=(g20*m14)/m20@
  72. >i27:=(i20*m14)/m20@
  73. >k27:=(k20*m14)/m20@
  74. >c28:=(c20*m16)/m20@
  75. >e28:=(e20*m16)/m20@
  76. >g28:=(g20*m16)/m20@
  77. >i28:=(i20*m16)/m20@
  78. >k28:=(k20*m16)/m20@
  79. >c29:=(c20*m18)/m20@
  80. >e29:=(e20*m18)/m20@
  81. >g29:=(g20*m18)/m20@
  82. >i29:=(i20*m18)/m20@
  83. >k29:=(k20*m18)/m20@
  84. >c31:=(c14-c27)/c27@
  85. >e31:=(e14-e27)/e27@
  86. >g31:=(g14-g27)/g27@
  87. >i31:=(i14-i27)/i27@
  88. >k31:=(k14-k27)/k27@
  89. >m31:=c31+e31+g31+i31+k31@
  90. >c32:=(c16-c28)/c28@
  91. >e32:=(e16-e28)/e28@
  92. >g32:=(g16-g28)/g28@
  93. >i32:=(i16-i28)/i28@
  94. >k32:=(k16-k28)/k28@
  95. >m32:=c32+e32+g32+i32+k32@
  96. >c33:=(c18-c29)/c29@
  97. >e33:=(e18-e29)/e29@
  98. >g33:=(g18-g29)/g29@
  99. >i33:=(i18-i29)/i29@
  100. >k33:=(k18-k29)/k29@
  101. >m33:=c33+e33+g33+i33+k33@
  102. >m34:=m31+m32+m33@
  103. >a1
  104.