home *** CD-ROM | disk | FTP | other *** search
/ The Very Best of Atari Inside / The Very Best of Atari Inside 1.iso / sharew / elektro / el_demo / zweiwell.lst < prev    next >
Encoding:
File List  |  1989-04-05  |  2.9 KB  |  136 lines
  1. ' Zwei gleichphasig erregte Sendedipole stehen in 2 bzw. 2,5 lambda Abstand
  2. ' Die Wellenausbreitung auf ihrer Verbindungsgeraden wird dargestellt.
  3. ' Zwischen den Dipolen bildet sich immer eine stehende Welle.
  4. ' Außerhalb verstärken sich die Wellen bei 2 lambda Antennenabstand
  5. ' Bei 2,5 lambda Antennenabstand strahlt die Anordnung in Richtung
  6. ' der Antennenstandlinie nicht.
  7. '
  8. DIM y1&(639),y2&(639),y_ges&(639)
  9. zweites_bild$=SPACE$(32256)
  10. orig_bild%=XBIOS(2)
  11. bild1%=orig_bild%
  12. bild2%=INT((VARPTR(zweites_bild$)+255)/256)*256
  13. '
  14. CLIP 0,0 TO 639,399
  15. li&=160
  16. re&=460
  17. w_ab$="2,5"
  18. '
  19. CLS
  20. DRAW 0,50 TO 639,50
  21. DRAW 0,150 TO 639,150
  22. DRAW 0,300 TO 639,300
  23. PRINT AT(2,25);"Abstand der Wellenzentren (Taste w,a):     lambda";
  24. PRINT AT(53,25);"Halt: h,s   Ende: Esc, Undo";
  25. SGET a$
  26. '
  27. d&=2
  28. '
  29. w&=0
  30. '
  31. DO
  32.   '
  33.   IF INP?(2)
  34.     '
  35.     e|=INP(2)
  36.     REPEAT
  37.     UNTIL INKEY$=""
  38.     '
  39.     IF e|=104 OR e|=115
  40.       e|=INP(2)
  41.     ENDIF
  42.     '
  43.     IF e|=97 OR e|=119
  44.       IF li&=190
  45.         li&=160
  46.         re&=460
  47.         w_ab$="2,5"
  48.       ELSE
  49.         li&=190
  50.         re&=430
  51.         w_ab$="2,0"
  52.       ENDIF
  53.     ENDIF
  54.     '
  55.     EXIT IF e|=27 OR e|=225
  56.     '
  57.   ENDIF
  58.   '
  59.   VOID XBIOS(5,L:bild2%,L:bild1%,L:-1)
  60.   SPUT a$
  61.   PRINT AT(41,25);w_ab$;
  62.   DRAW li&,90 TO li&,10
  63.   DRAW re&,190 TO re&,110
  64.   '
  65.   DRAW li&,50-40*SINQ(-w&)
  66.   FOR x&=li& TO 639 STEP d&
  67.     y1&(x&)=50-40*SINQ(-w&+3*(x&-li&))
  68.     DRAW  TO x&,y1&(x&)
  69.   NEXT x&
  70.   DRAW li&,50-40*SINQ(-w&)
  71.   FOR x&=li& TO 0 STEP -d&
  72.     y1&(x&)=50-40*SINQ(-w&+(li&-x&)*3)
  73.     DRAW  TO x&,y1&(x&)
  74.   NEXT x&
  75.   DRAW re&,150-40*SINQ(-w&)
  76.   FOR x&=re& TO 639 STEP d&
  77.     y2&(x&)=150-40*SINQ(-w&+3*(x&-re&))
  78.     DRAW  TO x&,y2&(x&)
  79.   NEXT x&
  80.   DRAW re&,150-40*SINQ(-w&)
  81.   FOR x&=re& TO 0 STEP -d&
  82.     y2&(x&)=150-40*SINQ(-w&+(re&-x&)*3)
  83.     DRAW  TO x&,y2&(x&)
  84.   NEXT x&
  85.   '
  86.   DRAW 0,101+y1&(0)+y2&(0)
  87.   FOR x&=0 TO 639 STEP d&
  88.     y_ges&(x&)=101+y1&(x&)+y2&(x&)
  89.     DRAW  TO x&,y_ges&(x&)
  90.   NEXT x&
  91.   '
  92.   w&=w&+4
  93.   '
  94.   VOID XBIOS(5,L:bild1%,L:bild2%,L:-1)
  95.   SPUT a$
  96.   PRINT AT(41,25);w_ab$;
  97.   DRAW li&,90 TO li&,10
  98.   DRAW re&,190 TO re&,110
  99.   '
  100.   DRAW li&,50-40*SINQ(-w&)
  101.   FOR x&=li& TO 639 STEP d&
  102.     y1&(x&)=50-40*SINQ(-w&+3*(x&-li&))
  103.     DRAW  TO x&,y1&(x&)
  104.   NEXT x&
  105.   DRAW li&,50-40*SINQ(-w&)
  106.   FOR x&=li& TO 0 STEP -d&
  107.     y1&(x&)=50-40*SINQ(-w&+(li&-x&)*3)
  108.     DRAW  TO x&,y1&(x&)
  109.   NEXT x&
  110.   DRAW re&,150-40*SINQ(-w&)
  111.   FOR x&=re& TO 639 STEP d&
  112.     y2&(x&)=150-40*SINQ(-w&+3*(x&-re&))
  113.     DRAW  TO x&,y2&(x&)
  114.   NEXT x&
  115.   DRAW re&,150-40*SINQ(-w&)
  116.   FOR x&=re& TO 0 STEP -d&
  117.     y2&(x&)=150-40*SINQ(-w&+(re&-x&)*3)
  118.     DRAW  TO x&,y2&(x&)
  119.   NEXT x&
  120.   '
  121.   DRAW 0,101+y1&(0)+y2&(0)
  122.   FOR x&=0 TO 639 STEP d&
  123.     y_ges&(x&)=101+y1&(x&)+y2&(x&)
  124.     DRAW  TO x&,y_ges&(x&)
  125.   NEXT x&
  126.   '
  127.   w&=w&+4
  128.   '
  129.   IF w&>358
  130.     w&=0
  131.   ENDIF
  132.   '
  133. LOOP
  134. '
  135. VOID XBIOS(5,L:orig_bild%,L:orig_bild%,L:-1)
  136.