home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / lern / lern338.d64 / magnetfeld (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-08-09  |  5.4 KB  |  208 lines
  1. 100 REM BERECHNUNG DER MAGNETISCHEN FELDSTAERKE
  2. 110 REM    VON 2 PARALLELEN KREISSPULEN
  3. 120 REM R: SPULENRADIUS
  4. 130 REM Z: KOORDINATE AUF DER SPULENACHSE,
  5. 140 REM    NULLPUNKT IM MITTELPUNKT DES LINKEN RINGES
  6. 150 REM S: KOORDINATE IN RADIALER RICHTUNG
  7. 160 REM D: SPULENABSTAND
  8. 170 REM I: STROMSTAERKE
  9. 180 REM N: WINDUNGSZAHL
  10. 190 REM BEI PROGRAMMSTOP: C DRUECKEN
  11. 200 PRINT "[147]"
  12. 210 PRINT "WERDEN ERKLAERUNGEN ZUM PROGRAMM        GEWUENSCHT ?"
  13. 220 PRINT
  14. 230 PRINT "JA:     TASTE J DRUECKEN"
  15. 240 PRINT "NEIN:   TASTE N DRUECKEN"
  16. 250 GET R$ : IF R$ <> "J" AND R$ <> "N" THEN 250
  17. 260 IF R$ = "N" THEN 1100
  18. 300 PRINT "[147]"
  19. 310 PRINT "DAS PROGRAMM BERECHNET DIE KOMPONENTEN"
  20. 320 PRINT "DER MAGNETISCHEN FELDSTAERKE FUER ZWEI  PARALLELE KREISSPULEN"
  21. 330 PRINT : PRINT
  22. 340 PRINT "DIE Z-KOORDINATE LIEGT AUF DER SPULEN-"
  23. 350 PRINT "ACHSE, DER NULLPUNKT IM MITTELPUNKT DES LINKEN RINGES"
  24. 360 PRINT : PRINT
  25. 370 PRINT "DIE S-KOORDINATE WEIST IN RADIALER      RICHTUNG"
  26. 380 PRINT : PRINT
  27. 390 PRINT "DIE FELDSTAERKE WIRD WAHLWEISE IN"
  28. 400 PRINT "ABHAENGIGKEIT VON Z, S ODER SPULENAB-   STAND D BERECHNET"
  29. 410 PRINT : PRINT
  30. 420 PRINT "BEI PROGRAMMSTOP: ZUR FORTSETZUNG DIE   TASTE C DRUECKEN"
  31. 430 GET R$ : IF R$ <> "C" THEN 430
  32. 440 PRINT "[147]"
  33. 450 PRINT "AM ANFANG MUESSEN SPULENRADIUS R, WIN-"
  34. 460 PRINT "DUNGSZAHL N UND STROMSTAERKE I EINGEGE- BEN WERDEN"
  35. 470 PRINT : PRINT
  36. 480 PRINT "DANACH WIRD EINGEGEBEN, OB DIE FELD-"
  37. 490 PRINT "STAERKE IN ABHAENGIGKEIT VON D, Z"
  38. 500 PRINT "ODER S BERECHNET WERDEN SOLL"
  39. 510 PRINT : PRINT
  40. 520 PRINT "WENN DIE FELDSTAERKE IN ABHAENGIGKEIT"
  41. 530 PRINT "VON D BERECHNET WIRD, KANN GEWAEHLT"
  42. 540 PRINT "WERDEN, OB Z FEST SEIN SOLL ODER VARI-"
  43. 550 PRINT "ABEL ALS BRUCHTEIL DES ABSTANDES D"
  44. 560 PRINT : PRINT
  45. 570 PRINT "ALS LETZTES WERDEN DIE FESTEN GROESSEN"
  46. 580 PRINT "SOWIE ANFANGS-, ENDWERT UND SCHRITT-"
  47. 590 PRINT "WEITE FUER DIE VARIABLE GROESSE EIN-    GEGEBEN"
  48. 600 GET R$ : IF R$ <> "C" THEN 600
  49. 610 PRINT "[147]"
  50. 620 PRINT "BEISPIEL FUER DIE DATENEINGABE:"
  51. 630 PRINT "R = 0.15"
  52. 640 PRINT "N = 130"
  53. 650 PRINT "I = 1"
  54. 660 PRINT "D,Z ODER S EINGEBEN : S"
  55. 670 PRINT "D = 0.15"
  56. 680 PRINT "Z = 0.075
  57. 690 [153] "S1 = 0"
  58. 700 [153] "S2 = 0.2"
  59. 710 [153] "DS = 0.01"
  60. 720 [153] "SOLLEN DIE ERKLAERUNGEN WIEDERHOLT      WERDEN ?"
  61. 730 [153] "TASTE J BZW. N DRUECKEN"
  62. 740 [161] R$ : [139] R$ [179][177] "J" [175] R$ [179][177] "N" [167] 740
  63. 750 [139] R$ [178] "J" [167] 300
  64. 1100 [153] "LOAD"
  65. 1110 [153][163]5); "SPC(SPC(SPC("; [166]20); "SPC(SPC(SPC("
  66. 1120 [129] Q [178] 1 [164] 15
  67. 1130 :[153][163]6); "(null)"; [166]22); "(null)"
  68. 1140 [130] Q
  69. 1150 [153][163]5); "SPC(SPC(SPC( <-----  D  ------> SPC(SPC(SPC("
  70. 1160 [153] "ONONONONONONONONONTANTANTANTANTANTAN0TANTANTANTANTANTANTANTANTAN > Z TANTANTANTANTANTANTANTAN(null)TANTANTANTANTAN"
  71. 1170 [153][163]15); "ONON(null)CMDON(null)CMDON CMDONSCMDON CMDON(null)CMDON(null)"
  72. 1180 [153] "FORTSETZUNG: C DRUECKEN"
  73. 1190 [161] R$ : [139] R$ [179][177] "C" [167] 1190
  74. 1200 [153] "LOAD"
  75. 1210 [133] "SPULENRADIUS R = "; R
  76. 1220 [133] "WINDUNGSZAHL N = "; N
  77. 1230 [133] "STROMSTAERKE I = "; I
  78. 1240 I [178] N[172]I
  79. 1250 J1 [178] 0 : J2 [178] 0
  80. 1260 P [178] [255][173]2
  81. 1270 [153] "WELCHE GROESSE SOLL VARIIERT WERDEN, D,Z ODER S ?"
  82. 1280 [133] "D,Z ODER S EINGEBEN : "; A$
  83. 1290 [139] A$ [178] "D" [167] 1340
  84. 1300 [139] A$ [178] "Z" [167] 1660
  85. 1310 [139] A$ [178] "S" [167] 1900
  86. 1320 [153] "ES WURDE EINE FALSCHE GROESSE EINGEGEBEN, WIEDERHOLEN !"
  87. 1330 [137] 1280
  88. 1340 [153] "LOAD"
  89. 1350 [153] "SOLL Z FEST (F) SEIN ODER VARIABEL (V)"
  90. 1360 [153] "ALS BRUCHTEIL DES ABSTANDES D ?"
  91. 1370 [133] "F ODER V EINGEBEN : "; B$
  92. 1380 [139] B$ [178] "F" [167] 1420
  93. 1390 [139] B$ [179][177] "V" [167] 1370
  94. 1400 [153] "DEN BRUCHTEIL Z/D EINGEBEN"
  95. 1410 [133] "Z/D = "; Z : [137] 1430
  96. 1420 [133] "Z = "; ZA
  97. 1430 [133] "S = "; S
  98. 1440 [153] "ZWISCHEN WELCHEN WERTEN D1 UND D2 UND"
  99. 1450 [153] "MIT WELCHER SCHRITTWEITE DD SOLL D      VARIIERT WERDEN ?"
  100. 1460 [133] "D1 = "; D1
  101. 1470 [133] "D2 = "; D2
  102. 1480 [133] "DD = "; DD
  103. 1490 [153] "LOAD"
  104. 1500 [153][163]2); "D"; [163]12); "HZ"; [163]28); "HS"
  105. 1510 [153]
  106. 1520 D3 [178] D2[170]0.1[172]DD
  107. 1530 [129] J [178] D1 [164] D3 [169] DD
  108. 1540 :L [178] D1[170]J1[172]DD
  109. 1550 :[139] B$ [178] "V" [167] ZA [178] Z[172]L
  110. 1560 :ZB [178] ZA[171]L
  111. 1570 :[139] S [178] R [175] ZA[172]ZB [178] 0 [167] [153] L : [137] 1600
  112. 1580 :[141] 2150
  113. 1590 :[153] L; [163]7); HZ; [163]23); HS
  114. 1600 :J1 [178] J1[170]1 : J2 [178] J2[170]1
  115. 1610 :[139] J2 [179][178] 20 [167] 1640
  116. 1620 :[161] R$ : [139] R$ [179][177] "C" [167] 1620
  117. 1630 :J2 [178] 0
  118. 1640 [130] J
  119. 1650 [128]
  120. 1660 [153] "LOAD"
  121. 1670 [133] "D = "; D
  122. 1680 [133] "S = "; S
  123. 1690 [153] "ZWISCHEN WELCHEN WERTEN Z1 UND Z2 UND"
  124. 1700 [153] "MIT WELCHER SCHRITTWEITE DZ SOLL Z      VARIIERT WERDEN ?"
  125. 1710 [133] "Z1 = "; Z1
  126. 1720 [133] "Z2 = "; Z2
  127. 1730 [133] "DZ = "; DZ
  128. 1740 [153] "LOAD"
  129. 1750 [153][163]2); "Z"; [163]12); "HZ"; [163]28); "HS"
  130. 1760 [153]
  131. 1770 Z3 [178] Z2[170]0.1[172]DZ
  132. 1780 [129] J [178] Z1 [164] Z3 [169] DZ
  133. 1790 :L [178] Z1[170]J1[172]DZ
  134. 1800 :ZA [178] L : ZB [178] ZA[171]D
  135. 1810 :[139] S [178] R [175] ZA[172]ZB [178] 0 [167] [153] L : [137] 1840
  136. 1820 :[141] 2150
  137. 1830 :[153] L; [163]7); HZ; [163]23); HS
  138. 1840 :J1 [178] J1[170]1 : J2 [178] J2[170]1
  139. 1850 :[139] J2 [179][178] 20 [167] 1880
  140. 1860 :[161] R$ : [139] R$ [179][177] "C" [167] 1860
  141. 1870 :J2 [178] 0
  142. 1880 [130] J
  143. 1890 [128]
  144. 1900 [153] "LOAD"
  145. 1910 [133] "D = "; D
  146. 1920 [133] "Z = "; ZA
  147. 1930 ZB [178] ZA[171]D
  148. 1940 [153] "ZWISCHEN WELCHEN WERTEN S1 UND S2 UND"
  149. 1950 [153] "MIT WELCHER SCHRITTWEITE DS SOLL S      VARIIERT WERDEN ?"
  150. 1960 [133] "S1 = "; S1
  151. 1970 [133] "S2 = "; S2
  152. 1980 [133] "DS = "; DS
  153. 1990 [153] "LOAD"
  154. 2000 [153][163]2); "S"; [163]12); "HZ"; [163]28); "HS"
  155. 2010 [153]
  156. 2020 S3 [178] S2[170]0.1[172]DS
  157. 2030 [129] J [178] S1 [164] S3 [169] DS
  158. 2040 :L [178] S1[170]J1[172]DS
  159. 2050 :S [178] L
  160. 2060 :[139] S [178] R [175] ZA[172]ZB [178] 0 [167] [153] L : [137] 2090
  161. 2070 :[141] 2150
  162. 2080 :[153] L; [163]7); HZ; [163]23); HS
  163. 2090 :J1 [178] J1[170]1 : J2 [178] J2[170]1
  164. 2100 :[139] J2 [179][178] 20 [167] 2120
  165. 2110 :[161] R$ : [139] R$ [179][177] "C" [167] 2110
  166. 2120 :J2 [178] 0
  167. 2130 [130] J
  168. 2140 [128]
  169. 2150 KA [178] 4[172]R[172]S[173]((R[170]S)[172](R[170]S)[170]ZA[172]ZA)
  170. 2160 KB [178] 4[172]R[172]S[173]((R[170]S)[172](R[170]S)[170]ZB[172]ZB)
  171. 2170 [150] [165]Y(X) [178] [186](1[171]KA[172][191](X)[172][191](X))
  172. 2180 [141] 2410
  173. 2190 E1 [178] A[173]2
  174. 2200 [150] [165]Y(X) [178] [186](1[171]KB[172][191](X)[172][191](X))
  175. 2210 [141] 2410
  176. 2220 E2 [178] A[173]2
  177. 2230 [150] [165]Y(X) [178] 1[173][186](1[171]KA[172][191](X)[172][191](X))
  178. 2240 [141] 2410
  179. 2250 K1 [178] A[173]2
  180. 2260 [150] [165]Y(X) [178] 1[173][186](1[171]KB[172][191](X)[172][191](X))
  181. 2270 [141] 2410
  182. 2280 K2 [178] A[173]2
  183. 2290 H1 [178] I[173]2[173][255][173][186]((R[170]S)[172](R[170]S)[170]ZA[172]ZA)
  184. 2300 H1 [178] H1[172](K1[170]((R[172]R[171]S[172]S[171]ZA[172]ZA)[172]E1)[173]((R[171]S)[172](R[171]S)[170]ZA[172]ZA))
  185. 2310 H2 [178] I[173]2[173][255][173][186]((R[170]S)[172](R[170]S)[170]ZB[172]ZB)
  186. 2320 H2 [178] H2[172](K2[170]((R[172]R[171]S[172]S[171]ZB[172]ZB)[172]E2)[173]((R[171]S)[172](R[171]S)[170]ZB[172]ZB))
  187. 2330 HZ [178] H1[170]H2
  188. 2340 [139] S [178] 0 [167] HS [178] 0 : [142]
  189. 2350 H3 [178] I[172]ZA[173]2[173][255][173]S[173][186]((R[170]S)[172](R[170]S)[170]ZA[172]ZA)
  190. 2360 H3 [178] H3[172]([171]K1[170]((R[172]R[170]S[172]S[170]ZA[172]ZA)[172]E1)[173]((R[171]S)[172](R[171]S)[170]ZA[172]ZA))
  191. 2370 H4 [178] I[172]ZB[173]2[173][255][173]S[173][186]((R[170]S)[172](R[170]S)[170]ZB[172]ZB)
  192. 2380 H4 [178] H4[172]([171]K2[170]((R[172]R[170]S[172]S[170]ZB[172]ZB)[172]E2)[173]((R[171]S)[172](R[171]S)[170]ZB[172]ZB))
  193. 2390 HS [178] H3[170]H4
  194. 2400 [142]
  195. 2410 N [178] 1
  196. 2420 H [178] [165]Y(0)[170][165]Y(P)
  197. 2430 A [178] H[172]P
  198. 2440 N [178] 2[172]N
  199. 2450 AA [178] A : HH [178] 0
  200. 2460 DX [178] P[173]N
  201. 2470 [129] Q [178] 1 [164] N[173]2
  202. 2480 :HH [178] HH[170][165]Y((2[172]Q[171]1)[172]DX)
  203. 2490 [130] Q
  204. 2500 H [178] H[170]2[172]HH
  205. 2510 A [178] H[172]DX
  206. 2520 [139] [182](A[171]AA) [177] [182](A)[172]1E[171]5 [167] 2440
  207. 2530 [142]
  208.