SHARE
TWEET

Untitled

a guest Mar 22nd, 2019 81 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 10 'BIOR10V
  2. 20 SCREEN 12: COLOR 15
  3. 30 CLS : WINDOW SCREEN (0, -50)-(740, 600)
  4. 40 PRINT " Ohjelma piirt„„ biorytmik„yr„t, jos aikav„li on 1900<V<2100."
  5. 50 INPUT " Anna syntym„aikasi muodossa vvvv,kk,pv "; V, K, P
  6. 60 GOSUB 360
  7. 70 LET M1 = D
  8. 80 INPUT " Anna sunnuntain p„iv„m. muodossa vvvv,kk,pv "; V, K, P
  9. 90 GOSUB 360
  10. 100 LET M2 = D
  11. 110 INPUT " Nimi"; A$: CLS : LOCATE 6, 5: PRINT A$
  12. 115 PRINT "    Kymmenen viikon ennuste alkaa sunnuntaista "; P; "/"; K; ","
  13. 120 PRINT "    jolloin olet el„nyt "; M2 - M1; " p„iv„„."
  14. 130 PRINT "    Korkein aalto edustaa fyysist„ kuntoa ja varmuutta,"
  15. 140 PRINT "    seuraava „lyllist„ vireytt„."
  16. 150 PRINT "    Matalin edustaa mielialaa, herkkyytt„ ja luovuutta. Se ylitt„„"
  17. 160 PRINT "    akselin aina samana viikonp„iv„n„ kuin syntym„."
  18. 180 PRINT "    Aallonpituudet ovat i„nikuisia astronomian ja kokemuksen tuomia"
  19. 190 PRINT "    vakioita. Žl„ usko muihin jumaliin.        Laatinut P.K.T."
  20. 200 LINE (10, 300)-(710, 540), 15, B: LINE (10, 420)-(710, 420)
  21. 210 FOR X = 10 TO 710 STEP 70
  22. 220 PSET (X, 435): LINE (X, 435)-(X, 405)
  23. 230 NEXT X
  24. 240 FOR X = 15 TO 710 STEP 10
  25. 250 PSET (X, 423): DRAW "u6"
  26. 260 NEXT X
  27. 270 A = M2 - M1
  28. 280 L1 = A - INT(A / 23) * 23: L2 = A - INT(A / 28) * 28: L3 = A - INT(A / 33) * 33
  29. 290 FOR X = 10 TO 710 STEP .5
  30. 300 B1 = 6.283 * (10 * L1 + X - 10) / 230: B2 = 6.283 * (10 * L2 + X - 10) / 280
  31. 310 B3 = 6.283 * (10 * L3 + X - 10) / 330
  32. 320 PSET (X, -100 * SIN(B1) + 420), 15: PSET (X, -60 * SIN(B2) + 420), 15
  33. 330 PSET (X, -80 * SIN(B3) + 420), 15
  34. 340 NEXT X
  35. 350 CLEAR : END
  36. 360 S1 = INT((V - 1) / 4) * 1461
  37. 370 E = V - 1 - INT((V - 1) / 4) * 4
  38. 380 IF E = 0 THEN S2 = 0
  39. 390 IF E = 1 THEN S2 = 365
  40. 400 IF E = 2 THEN S2 = 730
  41. 410 IF E = 3 THEN S2 = 1095
  42. 420 IF E = 3 AND K - 1 = 0 THEN S3 = P
  43. 430 IF E = 3 AND K - 1 = 1 THEN S3 = 31 + P
  44. 440 IF E = 3 AND K - 1 = 2 THEN S3 = 60 + P
  45. 450 IF E = 3 AND K - 1 = 3 THEN S3 = 91 + P
  46. 460 IF E = 3 AND K - 1 = 4 THEN S3 = 121 + P
  47. 470 IF E = 3 AND K - 1 = 5 THEN S3 = 152 + P
  48. 480 IF E = 3 AND K - 1 = 6 THEN S3 = 182 + P
  49. 490 IF E = 3 AND K - 1 = 7 THEN S3 = 213 + P
  50. 500 IF E = 3 AND K - 1 = 8 THEN S3 = 244 + P
  51. 510 IF E = 3 AND K - 1 = 9 THEN S3 = 274 + P
  52. 520 IF E = 3 AND K - 1 = 10 THEN S3 = 305 + P
  53. 530 IF E = 3 AND K - 1 = 11 THEN S3 = 335 + P
  54. 540 IF E < 3 AND K - 1 = 0 THEN S3 = P
  55. 550 IF E < 3 AND K - 1 = 1 THEN S3 = 31 + P
  56. 560 IF E < 3 AND K - 1 = 2 THEN S3 = 59 + P
  57. 570 IF E < 3 AND K - 1 = 3 THEN S3 = 90 + P
  58. 580 IF E < 3 AND K - 1 = 4 THEN S3 = 120 + P
  59. 590 IF E < 3 AND K - 1 = 5 THEN S3 = 151 + P
  60. 600 IF E < 3 AND K - 1 = 6 THEN S3 = 181 + P
  61. 610 IF E < 3 AND K - 1 = 7 THEN S3 = 212 + P
  62. 620 IF E < 3 AND K - 1 = 8 THEN S3 = 243 + P
  63. 630 IF E < 3 AND K - 1 = 9 THEN S3 = 273 + P
  64. 640 IF E < 3 AND K - 1 = 10 THEN S3 = 304 + P
  65. 650 IF E < 3 AND K - 1 = 11 THEN S3 = 334 + P
  66. 660 LET D = S1 + S2 + S3: REM D ON kulunut aika +1, 1900<V<2100
  67. 670 RETURN
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top