home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 April / 64er_Magazin_90-04_1990_Markt__Technik_de_Side_A.d64 / archimedes (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  510b  |  23 lines
  1. 10 rem mpk1 pi-berechnung
  2. 15 :
  3. 20 rem nach archimedes
  4. 25 :
  5. 30 ge=0.01: rem genauigkeit
  6. 35 :
  7. 40 n=6: rem anzahl der ecken
  8. 50 e=1: rem seitenlaenge einbeschriebenes sechseck
  9. 60 u=e/sqr(1-(e/2)^2): rem seitenlaenge umbeschriebenes sechseck
  10. 65 :
  11. 70 print n,n*e/2;n*u/2:rem anfangswerte
  12. 75 :
  13. 80 n=2*n : rem verdoppelung der seitenanzahl
  14. 90 e=e/sqr(2+sqr(4-e^2))
  15. 100 u=e/sqr(1-(e/2)^2)
  16. 110 pe=n*e/2: pu=n*u/2: rem pi-annaeherungen
  17. 115 :
  18. 120 print n,pe;pu
  19. 125 :
  20. 130 if abs(pe-pu)>ge then 80
  21. 140 print "gewuenschte genauigkeit erreicht."
  22. 150 end
  23.