REM C202OPTION ANGLE DEGREESGOTO 8405 8400 INPUT u1,v1,w1 INPUT u2,v2,w2 8405 REM 形状 LET u1=3 LET v1=40 LET w1=3 LET u2=0 LET v2=0 LET w2=40 REM (u-u1)^2+ ...
もっと読む
2020年06月
羽根サンプルのBASICです。まだ、間違いあるかも。
REM test-4 羽根形状OPTION ANGLE DEGREESREM 形状LET u1=3LET v1=40LET b1=85LET u2=0LET v2=0LET w2=40LET w3=1LET w4=25LET tr=3 IF ABS(SIN(b1))>0.99999 THEN STOP !例外あり、要注意 REM CP$="C133"LET uu1=u1+w3*COS(b1+90)LET vv1=v1+w3*SIN(b1+90)LET b ...
もっと読む