grafiek.b 1.2 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455
  1. 0015 print
  2. 0020 for f =2 to 72 step 2
  3. 0030 print tab (f) "-" ;
  4. 0040 next f
  5. 0043 print
  6. 0045 c= 30
  7. 0050 for x=6 to 360 step 12
  8. 0060 a=30 +25*sin(x*0.01745329)
  9. 0070 b=30+25*cos(x*0.01745329)
  10. 0080 if a=c then 0130
  11. 0090 if b=c then 0190
  12. 0100 if a=b then 0230
  13. 0110 if a>c then 0290
  14. 0120 if c>a then 0380
  15. 0130 if a>b then 0360
  16. 0140 ifb>a then 0170
  17. 0150 print tab(b) "." tab(a) "*"
  18. 0160 goto 0460
  19. 0170 print tab(a) "*" tab(b) "."
  20. 0180 goto 0460
  21. 0190 if a>b then 0210
  22. 0200 if b>a then 0220
  23. 0210 goto 0150
  24. 0220 goto 0170
  25. 0230 if a>c then 0250
  26. 0240 if c>a then 0270
  27. 0250 print tab(c) "I" tab(a) "*"
  28. 0260 goto 0460
  29. 0270 print tab(a) "*" tab(c) "I"
  30. 0280 goto 0460
  31. 0290 if b>a then 0340
  32. 0300 if a>b then 0302
  33. 0302 if c>b then 0320
  34. 0305 if b<a then 0360
  35. 0310 if b>c then 0360
  36. 0320 print tab(b) "." tab(c) "I" tab(a) "*"
  37. 0330 goto 0460
  38. 0340 print tab(c) "I" tab(a) "*" tab(b) "."
  39. 0350 goto 0460
  40. 0360 print tab(c) "I" tab(b) "." tab(a) "*"
  41. 0370 goto 0460
  42. 0380 if a>b then 0430
  43. 0385 if c>b then 0410
  44. 0387 if b>c then 0450
  45. 0395 if a>b then 0410
  46. 0400 if b>a then 0450
  47. 0410 print tab(a) "*" tab(b) "." tab(c) "I"
  48. 0420 goto 0460
  49. 0430 print tab(b) "." tab(a) "*" tab(c) "I"
  50. 0440 goto 0460
  51. 0450 print tab(a) "*" tab(c) "I" tab(b) "."
  52. 0460 next x
  53. 0470 end