home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 56 / 64er_Magazin_Sonderheft_56_19xx_Markt__Technik_de_Side_B.d64 / fou-beschr (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  40 lines
  1. 7000 rem   kurzbeschreibung
  2. 7010 printchr$(14):ifpeek(2)>0thenpoke646,peek(2)-1
  3. 7020 printchr$(147):print"            [203]urzbeschreibung":print:c=0
  4. 7030 print:print:print"      [193]usgabe auf [196]rucker?  j/n"
  5. 7040 getta$:ifta$="n"then7070
  6. 7050 ifta$<>"j"then7040
  7. 7055 open4,4,7
  8. 7060 print#4,chr$(17):rem text-modus
  9. 7065 cmd4:c=1
  10. 7070 gosub8230
  11. 7080 print"[196]em frueheren [205]athematiker '[198]ourier'"
  12. 7090 print"zufolge lassen sich beliebige perio-"
  13. 7100 print"dische [194]ewegungen zerlegen in [199]rund-"
  14. 7110 print"schwingungen der [211]inus- und [195]osinus-"
  15. 7120 print"funktionen und deren harmonische [207]ber-"
  16. 7130 print"wellen sowie einem konstanten [211]um-"
  17. 7140 print"manten [193](0) gemaess folgendem mathe-"
  18. 7150 print"tischen [218]usammenhang:"
  19. 7160 print:print" [198](x)=[193](0) + [193](1)cos(1x) + [193](2)cos(2x)"
  20. 7170 print"           + ... + [193](n)cos(nx) +"
  21. 7180 print"           + [194](1)sin(1x) + [194](2)sin(2x)"
  22. 7190 print"           + ... + [194](n)sin(nx)"
  23. 7200 print:print"    mit  x = omega * t"
  24. 7210 ifc=0thengosub8200:gosub8230
  25. 7220 print:print"[205]it der [213]mkehrung der [193]nalyse, der"
  26. 7230 print"[211]ynthese, gewinnt man durch [213]eberlage-"
  27. 7240 print"rung der einzelnen [207]berwellen mit den"
  28. 7250 print"gegebenen [203]oeffizienten den entspre-"
  29. 7260 print"chenden [198]unktionsverlauf."
  30. 7270 print:print"[211]elbstverstaendlich steigt die [199]enauig-"
  31. 7280 print"keit sowohl der [193]nalyse als auch der"
  32. 7290 print"[211]ynthese mit der [193]nzahl der [197]ingabe-"
  33. 7300 print"werte an; mit ihr allerdings auch die"
  34. 7310 print"[210]echenzeit."
  35. 7320 ifc=0thengosub8200:gosub8230
  36. 7330 print:print"[196]as [212]itelmenue erklaert sich selbst."
  37. 7340 print"[196]ie [198]arben lassen sich auch dauerhaft"
  38. 7350 print"in den [218]eilen 20...40 mit den [218]ahlen-"
  39. 7360 print"w
  40.