増加(減少)のボタンを押すと図が変化する。


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つ戻る    戻る
左図は上の アプレットを実行したものです。

 戻る