home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / GENE6 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.1 KB  |  113 lines
  1. 1 PRINT"ô":POKE53281,0:POKE53280,0:POKE646,0
  2. 10 M$="   GENE FREQUENCIES  % OF GENOTYPE  ":PL$="":GOSUB130
  3. 20 M$="             PAUL BOYLE             ":PL$=PL$+"":GOSUB130
  4. 30 M$="        GLENWOOD MIDDLE SCHOOL      ":PL$=PL$+"":GOSUB 130
  5. 40 FORT=1TO1300:NEXTT
  6. 50 PRINT"":DEF FNS(A)=INT(RND(0)*1000)
  7. 60 S=1024:D=54272:C=S+D
  8. 70 FOR X= 1 TO 30
  9. 80 F= FNS(X)
  10. 90 FORY=1TO2:FORR=1TO4:READA,B
  11. 100 POKES+F,A:POKEC+F,B
  12. 110 NEXT:RESTORE:NEXT:NEXT
  13. 120 DATA 86,1,91,5,42,7,46,1
  14. 125 GOTO 200
  15. 130 L=LEN(M$):MI=38-L/2:FORI=1TOLEN(M$)-19
  16. 140 PRINTPL$SPC(MI)LEFT$(M$,I)RIGHT$(M$,L-(L-I)):MI=MI-1:NEXT:RETURN
  17. 200 PRINT"ô"
  18. 210 POKE53281,1:POKE53280,6:POKE646,2
  19. 300 REM GENE FREQUENCIES
  20. 310 INPUT "WHAT IS THE TRAIT";T$
  21. 320 INPUT "HOW MANY PEOPLE DID YOU CHECK";N
  22. 330 PRINT  "HOW MANY PEOPLE WERE RECESSIVE IN THE   TRAIT":INPUT R
  23. 340 RP=SQR(R/N)
  24. 350 DP=1-RP
  25. 360 PRINT:PRINT
  26. 361 PRINT "TRAIT ";T$
  27. 362 PRINT:PRINT
  28. 364 PRINT "PERCENTAGE OF GENOTYPE"
  29. 366 PRINT:PRINT
  30. 367 PRINT"D = DOMINANT "
  31. 368 PRINT"R = RECESSIVE"
  32. 369 PRINT:PRINT
  33. 370 PRINT "DD =";DP*DP*100;"%"
  34. 371 PRINT:
  35. 380 PRINT "DR =";2*DP*RP*100;"%"
  36. 381 PRINT:
  37. 390 PRINT "RR =";RP*RP*100;"%"
  38. 391 PRINT:
  39. 400 INPUT"DO YOU WANT A PRINTOUT OF THIS  (Y/N)";P$
  40. 410 IFP$="Y" THEN GOTO 500
  41. 415 IFP$=" " THEN GOTO 400
  42. 420 INPUT "DO YOU WANT TO RUN THIS AGAIN  (Y/N)";G$
  43. 424 IFG$=" " THEN GOTO 420
  44. 425 IFG$="Y" THEN GOTO 200
  45. 430 GOTO 700
  46. 500 OPEN4,4
  47. 502 PRINT#4:PRINT#4:PRINT#    
  48. 505 PRINT#4, "            CALCULATIONS OF THE PERCENTAGE OF GENOTYPE"
  49. 507 PRINT#4:PRINT#4:PRINT#4:PRINT#4:PRINT#4
  50. 508 PRINT#4,CHR$(14)"      TRAIT  ";T$;
  51. 509 PRINT#4:PRINT#4:
  52. 510 PRINT#4,"      PERCENTAGE OF GENOTYPE"
  53. 511 PRINT#4:PRINT#4:
  54. 512 PRINT#4:PRINT#4,
  55. 513 PRINT#4, "NUMBER OF PEOPLE CHECKED";N
  56. 514 PRINT#4:PRINT#4:PRINT#4
  57. 515 PRINT#4, "NUMBER WITH RECESSIVE TRAIT";R
  58. 516 PRINT#4:PRINT#4
  59. 517 PRINT#4, "          D = DOMINANT "
  60. 518 PRINT#4, "          R = RECESSIVE"
  61. 519 PRINT#4:PRINT#4
  62. 520 PRINT#4, "          DD =";DP*DP*100;"%"
  63. 522 PRINT#4:PRINT#4:
  64. 530 PRINT#4, "          DR =";2*DP*RP*100;"%"
  65. 532 PRINT#4:PRINT#4:
  66. 540 PRINT#4, "          RR =";RP*RP*100;"%    
  67. 542 PRINT#4:PRINT#4:
  68. 550 PRINT#4:PRINT#4:PRINT#4:PRINT#4:PRINT#4
  69. 560 PRINT#4:PRINT#4,CHR$(15)
  70. 700 PRINT"ôANALYSIS AND FOLLOW-UP"
  71. 710 PRINT:PRINT
  72. 720 PRINT"1.IS DOMINANCE RELATED TO THE SUCCESS OF A GENE? EXPLAIN"
  73. 730 PRINT
  74. 740 PRINT"2.WOULD SAMPLE SIZE AFFECT YOUR RESULTS? HOW?"
  75. 745 PRINT
  76. 750 PRINT"TRY CALCULATING YOUR GENE FREQUENCIES FOR VARIOUS SIZE POPULATIONS"
  77. 760 PRINT"AND COMPARE RESULTS."
  78. 770 PRINT
  79. 780 PRINT"3.WHY IS THE RECESSIVE GENOTYPE ALWAYS THE STARTING POINT "
  80. 790 PRINT"IN THESE CALCULATIONS?"
  81. 800 PRINT
  82. 810 PRINT"4.REPEAT THE ABOVE EXPERIMENT USING STRIPS OF PTC PAPER."
  83. 820 PRINT"PTC PAPER WI     TASTE BITTER TO PEOPLE WHO POSSESS A DOMONANT"
  84. 830 PRINT"GENE FOR";CHR$(34);"TASTING";CHR$(34)
  85. 835 PRINT:PRINT
  86. 840 INPUT"DO YOU WANT A PRINTOUT OF THIS  (Y/N)";Y$
  87. 850 IFY$="Y" THEN GOTO 900
  88. 860 IFY$=" " THEN GOTO 850
  89. 870 INPUT "DO YOU WANT TO RUN THIS AGAIN  (Y/N)";W$
  90. 880 IFW$=" " THEN GOTO 870
  91. 890 IFW$="Y" THEN GOTO 200
  92. 895 END
  93. 900 CLOSE4:OPEN4,4
  94. 901 PRINT#4,"ANALYSIS AND FOLLOW-UP"
  95. 910 PRINT#4, :PRINT#4,
  96. 920 PRINT#4, "1.IS DOMINANCE RELATED TO THE SUCCESS OF A GENE? EXPLAIN"
  97. 930 PRINT#4,
  98. 940 PRINT#4,"2.WOULD SAMPLE SIZE AFFECT YOUR RESULTS? HOW?"
  99. 950 PRINT#4,"TRY CALCULATING YOUR GENE FREQUENCIE    FOR VARIOUS SIZE"
  100. 960 PRINT#4,"POPULATIONS AND COMPARE RESULTS."
  101. 970 PRINT#4,
  102. 980 PRINT#4,"3.WHY IS THE RECESSIVE GENOTYPE ALWAYS THE STARTING POINT "
  103. 990 PRINT#4, "IN THESE CALCULATIONS?"
  104. 1000 PRINT#4,
  105. 1010 PRINT#4,"4.REPEAT THE ABOVE EXPERIMENT USING STRIPS OF PTC PAPER."
  106. 1020 PRINT#4,"PTC PAPER WILL TASTE BITTER TO PEOPLE WHO POSSESS A DOMONANT"
  107. 1030 PRINT#4, "GENE FOR";CHR$(34);"TASTING";CHR$(34)
  108. 1040 CLOSE 4,4
  109. 1200 INPUT "DO YOU WANT TO RUN THIS AGAIN  (Y/N)";Z$
  110. 1210 IFZ$=" " THEN GOTO 1200
  111. 1220 IFZ$="Y" THEN GOTO 200
  112. 1230 END
  113.