食道癌(4b)で、今年いっぱいどころか、夏を越せるかも微妙。問い合わせにお応えできるのも、、、、メール morishige31313@gmail.com携帯 090-2833-2733932-0215富山県南砺市山下127森田茂樹 ...
もっと読む
c202 円と円の交点
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+ ...
もっと読む
羽根サンプルの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 ...
もっと読む