文法の誤り ( はここに書けません の 表示 北城文弘 2005/04/24 13:41:58 
　　└IFa=1THENPRINTLst;"0";L0*COS(SR);L0*SIN-... 白石和夫 2005/04/24 17:01:22 

　　文法の誤り ( はここに書けません の 表示 北城文弘 2005/04/24 13:41:58  ツリーへ

文法の誤り ( はここに書けません の 表示	返事を書く
北城文弘 2005/04/24 13:41:58
IF Y-Y0=0 THEN IF c=n0-1 THEN LET J=R-T/2 END IF LET P=SQR((J^2+J0^2-2*J*J0*COS(S))+((T*COS(S1)-T*COS(S2))/2)^2) LET S5=S4+ACOS((L^2+Ld^2-P^2)/(2*L*Ld)) IF a=1 THEN PRINT " 0 0";L*COS(S4);L*SIN(S4) IF a=1 THEN PRINT L*COS(S4);L*SIN(S4);Ld*COS(S5);Ld*SIN(S5) IF a=1 THEN IF c=n0-1 THEN PRINT " 0 0";Ld*COS(S5);Ld*SIN(S5) END IF IF a>1 THEN PRINT a*Lst+L;"0";a*Lst+L*COS(S4);L*SIN(S4) IF a>1 THEN PRINT a*Lst+L*COS(S4);L*SIN(S4);a*Lst+Ld*COS(S5);Ld*SIN(S5) IF a>1 THEN IF c=n0-1 THEN PRINT a*Lst;"0";a*Lst+Ld*COS(S5);Ld*SIN(S5) END IF LET S4=S5 NEXT c LET SL=ACOS((L1^2+Ld^2-(X-R)^2)/(2*L1*Ld)) LET SLd=ATN(YL/X0) LET SR=ACOS((L0^2+Lst^2-(Y-R)^2)/(2*L0*Lst)) LET SRd=ATN(XL/Y0) IF a=1 THEN PRINT Ld*COS(S5);Ld*SIN(S5);L1*COS(S5+SL);L1*SIN(S5+SL) IF a=1 THEN PRINT L1*COS(S5+SL);L1*SIN(S5+SL);X0*COS(S5+SL+SLd);X0*SIN(S5+SL+SLd) IF a=1 THEN PRINT X0*COS(S5+SL+SLd);X0*SIN(S5+SL+SLd);"0 0" IF a=1 THEN PRINT Lst;"0";L0*COS(SR);L0*SIN-(SR) IF a=1 THEN PRINT L0*COS(SR);L0*SIN-(SR);Y0*COS(SR+SRd);Y0*SIN-(SR+SRd) IF a=1 THEN PRINT Y0*COS(SR+SRd);Y0*SIN-(SR+SRd);"0 0" IF a>1 THEN PRINT a*Lst+Ld*COS(S5);Ld*SIN(S5);a*Lst+L1*COS(S5+SL);L1*SIN(S5+SL) ! 文法の誤り ( はここに書けません IF a>1 THEN PRINT a*Lst+L1*COS(S5+SL);L1*SIN(S5+SL);a*Lst+X0*COS(S5+SL+SLd);X0*SIN(S5+SL+SLd) IF a>1 THEN PRINT a*Lst+X0*COS(S5+SL+SLd);X0*SIN(S5+SL+SLd);a*Lst;"0" IF a>1 THEN PRINT a*Lst+Lst;"0";a*Lst+L0*COS(SR);L0*SIN-(SR) IF a>1 THEN PRINT a*Lst+L0*COS(SR);L0*SIN-(SR);a*Lst+Y0*COS(SR+SRd);Y0*SIN-(SR+SRd) IF a>1 THEN PRINT a*Lst+Y0*COS(SR+SRd);Y0*SIN-(SR+SRd);a*Lst;"0" NEXT a END

　　└IFa=1THENPRINTLst;"0";L0*COS(SR);L0*SIN-... 白石和夫 2005/04/24 17:01:22  ツリーへ

Re: 文法の誤り ( はここに書けません の 表示	返事を書く
白石和夫 2005/04/24 17:01:22
IF a=1 THEN PRINT Lst;"0";L0*COS(SR);L0*SIN-(SR) IF a=1 THEN PRINT L0*COS(SR);L0*SIN-(SR);Y0*COS(SR+SRd);Y0*SIN-(SR+SRd) など，いくつかの行で単純変数名としてSINが使われています。 Full BASICでは，SINは予約語ではないので，SINを単純変数名として使うことが許されています。SINを単純変数名として使ってしまうと，組込み関数のSIN(x)は使えなくなります。 たとえば，次のプログラムは実行可能です。 10 LET SIN=12 20 PRINT SIN-10 30 END もし，SIN-(SR+SRd)が，-(SR+SRd)の正弦の意味であるのなら，SIN(-(SR+SRd))のように書く必要があります。 SINが予約語になっているある種のBASIC(?)だと，SIN-(SR+SRd)がSIN(-(SR+SRd))の意味になるのかも知れませんが，Full BASICではこういう書き方を許していません。