' Zwei gleichphasig erregte Sendedipole stehen in 2 bzw. 2,5 lambda Abstand
' Die Wellenausbreitung auf ihrer Verbindungsgeraden wird dargestellt.
' Zwischen den Dipolen bildet sich immer eine stehende Welle.
' Aužerhalb verst„rken sich die Wellen bei 2 lambda Antennenabstand
' Bei 2,5 lambda Antennenabstand strahlt die Anordnung in Richtung
' der Antennenstandlinie nicht.
'
DIM y1&(639),y2&(639),y_ges&(639)
zweites_bild$=SPACE$(32256)
orig_bild%=XBIOS(2)
bild1%=orig_bild%
bild2%=INT((VARPTR(zweites_bild$)+255)/256)*256
'
CLIP 0,0 TO 639,399
li&=160
re&=460
w_ab$="2,5"
'
CLS
DRAW 0,50 TO 639,50
DRAW 0,150 TO 639,150
DRAW 0,300 TO 639,300
PRINT AT(2,25);"Abstand der Wellenzentren (Taste w,a):     lambda";
PRINT AT(53,25);"Halt: h,s   Ende: Esc, Undo";
SGET a$
'
d&=2
'
w&=0
'
DO
  '
  IF INP?(2)
    '
    e|=INP(2)
    REPEAT
    UNTIL INKEY$=""
    '
    IF e|=104 OR e|=115
      e|=INP(2)
    ENDIF
    '
    IF e|=97 OR e|=119
      IF li&=190
        li&=160
        re&=460
        w_ab$="2,5"
      ELSE
        li&=190
        re&=430
        w_ab$="2,0"
      ENDIF
    ENDIF
    '
    EXIT IF e|=27 OR e|=225
    '
  ENDIF
  '
  VOID XBIOS(5,L:bild2%,L:bild1%,L:-1)
  SPUT a$
  PRINT AT(41,25);w_ab$;
  DRAW li&,90 TO li&,10
  DRAW re&,190 TO re&,110
  '
  DRAW li&,50-40*SINQ(-w&)
  FOR x&=li& TO 639 STEP d&
    y1&(x&)=50-40*SINQ(-w&+3*(x&-li&))
    DRAW  TO x&,y1&(x&)
  NEXT x&
  DRAW li&,50-40*SINQ(-w&)
  FOR x&=li& TO 0 STEP -d&
    y1&(x&)=50-40*SINQ(-w&+(li&-x&)*3)
    DRAW  TO x&,y1&(x&)
  NEXT x&
  DRAW re&,150-40*SINQ(-w&)
  FOR x&=re& TO 639 STEP d&
    y2&(x&)=150-40*SINQ(-w&+3*(x&-re&))
    DRAW  TO x&,y2&(x&)
  NEXT x&
  DRAW re&,150-40*SINQ(-w&)
  FOR x&=re& TO 0 STEP -d&
    y2&(x&)=150-40*SINQ(-w&+(re&-x&)*3)
    DRAW  TO x&,y2&(x&)
  NEXT x&
  '
  DRAW 0,101+y1&(0)+y2&(0)
  FOR x&=0 TO 639 STEP d&
    y_ges&(x&)=101+y1&(x&)+y2&(x&)
    DRAW  TO x&,y_ges&(x&)
  NEXT x&
  '
  w&=w&+4
  '
  VOID XBIOS(5,L:bild1%,L:bild2%,L:-1)
  SPUT a$
  PRINT AT(41,25);w_ab$;
  DRAW li&,90 TO li&,10
  DRAW re&,190 TO re&,110
  '
  DRAW li&,50-40*SINQ(-w&)
  FOR x&=li& TO 639 STEP d&
    y1&(x&)=50-40*SINQ(-w&+3*(x&-li&))
    DRAW  TO x&,y1&(x&)
  NEXT x&
  DRAW li&,50-40*SINQ(-w&)
  FOR x&=li& TO 0 STEP -d&
    y1&(x&)=50-40*SINQ(-w&+(li&-x&)*3)
    DRAW  TO x&,y1&(x&)
  NEXT x&
  DRAW re&,150-40*SINQ(-w&)
  FOR x&=re& TO 639 STEP d&
    y2&(x&)=150-40*SINQ(-w&+3*(x&-re&))
    DRAW  TO x&,y2&(x&)
  NEXT x&
  DRAW re&,150-40*SINQ(-w&)
  FOR x&=re& TO 0 STEP -d&
    y2&(x&)=150-40*SINQ(-w&+(re&-x&)*3)
    DRAW  TO x&,y2&(x&)
  NEXT x&
  '
  DRAW 0,101+y1&(0)+y2&(0)
  FOR x&=0 TO 639 STEP d&
    y_ges&(x&)=101+y1&(x&)+y2&(x&)
    DRAW  TO x&,y_ges&(x&)
  NEXT x&
  '
  w&=w&+4
  '
  IF w&>358
    w&=0
  ENDIF
  '
LOOP
'
VOID XBIOS(5,L:orig_bild%,L:orig_bild%,L:-1)