新しく発言する EXIT インデックスへ
文法の誤り(はここに書けませんの表示

  文法の誤り ( はここに書けません の 表示 北城文弘 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ではこういう書き方を許していません。




インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。