VEKTOR RECHNUNG ¤ĎkČd' ** VEKTORRECHNUNG **jn'(CLS ˇœ’ PRINTCHR$(22) = BŚ¸œ¤Ÿ˜Śł ¸ş¤Ÿ˜’°) ("'" E°–¤žŚŸ˜– REM)"x'----------------------------‚ţƒ,,ƒ`,‚@PŒ›:ţ¤‚,: ‡:,q÷ˆ:"ŞŞ V E K T O R ’ R E C H N U N G ŞŞ"0–A$ô"××××××××××××××××××××××××××××××××××××××"( ţ¤,‚@:[ƒ`,‚@];A$OŞţ¤ ‚,ƒ`:[ƒ`,]" A + B ";:[ƒ`,‚@]"...........1"O´ţ¤ ‚,„:[ƒ`,]" A - B ";:[ƒ`,‚@]"...........2"Nžţ¤‚,„0:[ƒ`,]" @ * B ";:[ƒ`,‚@]"...........3"NČţ¤‚,„P:[ƒ`,]" A * B ";:[ƒ`,‚@]"...........4"NŇţ¤‚,„p:[ƒ`,]" A ^ B ";:[ƒ`,‚@]"...........5"NÜţ¤‚,…:[ƒ`,]" ( A ) ";:[ƒ`,‚@]"...........6"ćţƒ,,ƒ`,‚@0đţ¤…H,„@:‘K:“(Kôƒ@)ü(A$ô"1")â Túţƒ,,ƒ`,‚@%'-------------------------------M' "THEN GOTO 390" KĄ°° Ą¸¤ "THEN 390" —’¤Ÿ˜Ś’š’° Ł’œ’°.%'-------------------------------2"›:ţ¤„0,:"COMPONENTEN-EINGABE ",ţ¤,‚@:;A$ 6ţ¤‚,ƒ@:"VEKTOR A"R@ţ¤„P,ƒ@:‘"X1:";A1:ţ¤„P,„:‘"Y1:";A2:ţ¤„P,„ :‘"Z1:";A3J“ Kô‚@  N:€ ŒT“ Kôƒ@  Ž:€ Œ ^ţ¤‚,„@:"VEKTOR B"Rhţ¤„P,„`:‘"X2:";B1:ţ¤„P,…:‘"Y2:";B2:ţ¤„P,…:‘"Z2:";B3r“ Kô  Â|“ Kô‚  †“ Kôƒ  ž“ Kôƒ   š€ Œ(¤'----------------------------------xŽ' DER LET-B’Ş’˜¸ ŠĄ°° Ť’Š­˘– Ł’œ’°. ("A1=A1+B1"E°–¤žŚŸ˜– ="LET A1=A1+B1")(¸'----------------------------------+›:ţ¤„@,:"-- A + B = C --"Ěţ¤,‚@:;A$ÖA1ôA1÷B1:A2ôA2÷B2:A3ôA3÷B31ŕţ¤‚,ƒ`:" C=(";A1;",";A2;",";A3;")"1ęţ¤‚,…0:"X-š’¸Ś’šŚ—’ TĄ¤–’ œ­ŸŠ’°"ô­ A$:“A$ô""â ôţ„+›:ţ¤„@,:"-- A - B = C --"ţ¤,‚@:;A$A1ôA1řB1:A2ôA2řB2:A3ôA3řB33&ţ¤‚,ƒ`:" C = (";A1;",";A2;",";A3;")"10ţ¤‚,…0:"X-š’¸Ś’šŚ—’ TĄ¤–’ œ­ŸŠ’°":­ A$:“A$ô""â :D„+N›:ţ¤„@,:"-- @ * A --"Xţ¤,‚@:;A$ bţ¤‚,ƒ`:‘"A * ? ";NlA1ôA1üN:A2ôA2üN:A3ôA3üN9vţ¤‚,„:"A *";N;" =(";A1 ;",";A2;",";A3;")"1€ţ¤‚,…0:"X-š’¸Ś’šŚ—’ TĄ¤–’ œ­ŸŠ’°"Š­ A$:“A$ô""⠊”„5ž›:ţ¤„,:"-- A*B =(B)*COS(A,B) --"¨ţ¤,‚@:;A$˛C1ôA1üB1:C2ôA2üB2:C3ôA3üB3*źţ¤‚,ƒ`:"A*B =";C1÷C2÷C3$Ć'------------------------------BĐ' DĄ¤ Z’ŚŸ˜’° "^" ¤–’˜– Ş­ HˇŸ˜˘Ą˜¸ (E›žˇ°’°–)$Ú'------------------------------LäAô˙‡(A1ý‚÷A2ý‚÷A3ý‚):Bô˙‡(B1ý‚÷B2ý‚÷B3ý‚)îWô(C1÷C2÷C3)ű(AüB)ařţ¤‚,„:"(A) =";A:ţ¤‚,„0:"(B) =";B:ţ¤‚,„P:"COS(A,B)=";W1ţ¤‚,…0:"X-š’¸Ś’šŚ—’ TĄ¤–’ œ­ŸŠ’°" ­ A$:“A$ô""â „* ›:ţ¤„@,:"-- A ^ B ---"*ţ¤,‚@:;A$L4Aô˙‡(A1ý‚÷A2ý‚÷A3ý‚):Bô˙‡(B1ý‚÷B2ý‚÷B3ý‚)C>C1ôA2üB3řA3üB2:C2ôA3üB1řA1üB3:C3ôA1üB2řA2üB1:A1ôC1:A2ôC2:A3ôC38Hţ¤‚,ƒ`:"AXB =(";A1;",";A2;",";A3;")"DRţ¤‚,„:"(A) =";A:ţ¤‚,„0:"(B) =";BJ\ţ¤‚,„P:"SIN(A,B) =";˙‡(A1ý‚÷A2ý‚÷A3ý‚)ű(AüB)Dfţ¤‚,„p:"(A^B) =";˙‡(A1ý‚÷A2ý‚÷A3ý‚)1pţ¤‚,…0:"X-š’¸Ś’šŚ—’ TĄ¤–’ œ­ŸŠ’°"z­ A$:“A$ô""â z„„,Ž›:ţ¤„ ,:"-- B’–Ą— A ---"˜ţ¤,‚@:;A$>˘ţ¤‚,ƒ`:"(A)=";˙‡(A1ý‚÷A2ý‚÷A3ý‚)1Źţ¤‚,…0:"X-š’¸Ś’šŚ—’ TĄ¤–’ œ­ŸŠ’°"ś­ A$:“A$ô""â śŔ„Ę›:˜