増加(減少)のボタンを押すと図が変化する。 set b fnc -(a-1)(a-1); ifread b step2; を実行すると a の値が 1 の時のみ b の値が非負(0以上)なので step1 の部分を読み込んで実行する。 |
<param name=step6 value=" color 0 0 255; line OPDA; circle OP; color 255 0 0; point F; kigou EF F; "> <param name=egaku4 value="kigou EF F;point F;"> <param name=step7 value=" color 0 0 255;line_inf AF; circle FO; circle GA; circle AG; set U en_en GA AG 0; set V en_en GA AG 1;line UV; color 255 0 0; point GH; kigou EH H AG G; "> <param name=egaku5 value=" color 192 192 255; circle FO; line_hinf AF; kigou EH H AG G; point ABCDEFGH; "> <param name=step8 value=" color 0 0 255;line OQEA OI; circle OQ; color 255 0 0; point I; kigou AI I; "> <param name=egaku6 value="kigou AI I;line OI; point I;"> <param name=step9 value=" color 0 0 255;line AI; circle IO; color 255 0 0; point J; kigou OJ J; "> <param name=egaku7 value=" color 192 192 255; circle IO; line AI; kigou OJ J; point J; "> <param name=step10 value=" color 0 0 255; circle AJ; color 255 0 0; point K; kigou JK K; "> <param name=egaku8 value=" color 192 192 255;circle AJ;kigou JK K; point K; "> <param name=step11 value=" color 0 0 255; set X naibun AO 1 1; circle XO;line KL; color 255 0 0; point L; kigou KL L; "> <param name=egaku9 value=" color 192 192 255; set X naibun AO 1 1; circle XO;line KL; kigou KL L; point L; "> <param name=step12 value=" color 0 0 255; set X naibun AH 1 1; circle XA; circle AL;line AH; color 255 0 0;point M; kigou LM M; "> <param name=egaku10 value=" color 192 192 255; set X naibun AH 1 1; circle XA; circle AL;kigou LM M; point M; "> <param name=step13 value=" color 0 0 255; circle HM; line AH; color 255 0 0; point N; kigou MN N; "> <param name=egaku11 value=" color 192 192 255; circle HM; kigou MN N;point N; "> <param name=dat3 value=" set P en_en AN OA 0;set Q en_en AN OA 1; "> <param name=step14 value=" read dat3; color 0 0 255; circle AN; color 255 0 0; point PQ; kigou NP P NQ Q; "> <param name=egaku12 value=" read dat3;color 192 192 255; circle AN; "> <param name=step15 value=" copy PQ ST;color 0 0 255;read subsub1a 17;copy PQ ST; color 255 0 0; read subsub1b 17; "> <param name=subsub1a value=" copy ST XY;circle ST; kaiten OST OY; "> <param name=subsub1b value=" copy ST XY; kaiten OST OY; point T; "> <param name=subsub1c value=" copy ST XY;line ST; kaiten OST OY; "> <param name=egaku13 value=" color 192 192 255; copy PQ ST; read subsub1a 17; color 0 0 0; read subsub1b 17; "> <param name=egaku14 value=" color 0 0 255; copy PQ ST;read subsub1c 17; color 255 0 0; read subsub1b 17; ">1つ戻る 戻る 左図は上の アプレットを実行したものです。 戻る |