うしブログ

うしブログ

趣味で運営する、GeoGebraの専門ブログ。

(作業メモ)StartPoint要検証(2行の場合;テキスト変更時未定義問題)

Kata - Forms of GeoGebra

入力バーに順に入力していくことで、GeoGebraの基礎スキルを身につけるとともに、GeoGebraに対する親近感を育む。その趣旨で、空手のように「型」を作ってみよう、という企画。

基本方針は以下の通り。

・無に始まり、無に終わる。

・入力バーに入力できるコマンドだけで勝負する。

・手数は七手以内とする。

・簡潔なコマンドで、多彩な描画を心がける。

 随時作っていきます。

 

【六道】

一.Execute[Sequence["P_{"+t+"}=("+t+",0)",t,-6,6]]

二.Execute[Sequence["SetValue[P_{"+t+"},(x(P_{"+t+"}),x(P_{"+t+"})^2/10)]",t,-6,6]]

三.Execute[Sequence["SetValue[P_{"+t+"},(x(P_{"+t+"}),sin(x(P_{"+t+"}/ π )))]",t,-6,6]]

四.Execute[Sequence["SetValue[P_{"+t+"},(x(P_{"+t+"}),sgn(x(P_{"+t+"})))]",t,-6,6]]

五.Execute[Sequence["P_{"+t+"}=("+t+",0)",t,-6,6]]

六.Execute[Sequence["Delete[P_{"+t+"}]",t,-6,6]] 

f:id:usiblog:20180710020358g:plain

 

【夕焼け】

一.Base=Polygon[Corner[1],Corner[2],Corner[3],Corner[4]]

二.SetLineThickness[Base, 0]

三.SetColor[Base,135/255,206/255,235/255]

四.Execute[Sequence["Sky_{"+t+"}=Translate[Base,(0,-0.2*"+t+")]",t,1,40]]

五.Execute[Sequence["SetColor[Sky_{"+t+"},255/255,153/255,102/255]",t,1,40]]

六.Execute[Sequence["Delete[Sky_{"+t+"}]",t,1,40]]

七.Delete[Base]