放物線の標準形
放物線の方程式の標準形を描き，焦点や順線等を
説明する
#ref error ：ご指定のファイルが見つかりません。ファイル名を確認して、再度指定してください。 (title=)
parabola.zip
Putpoint("O",[0,0]);
Paramplot("1","[t^2/4/A.x,t]","t=[-3,3]");
／／ パラメータ表示を用いて放物線を描く
Putoncurve("P","gp1",[0,3]);
／／ 放物線上に点Pをx座標が0≦x≦3の範囲で描く
Putpoint("H",[-A.x,P.y]);
Putpoint("B",[-A.x,0]);
／／ x座標が-A.xの2点H,Bを定める
Putpoint("C",[-A.x,YMAX]);
／／ C点は準線の名前を書く場所
Setcolor([0.7,0,0,0]);
／／ 以下の線や点はシアンの色で描く
Lineplot("1",[B,B+[0,1]]);
Listplot("1",[A,P,H]);
Segmark("1",[A,P],["Type=1","Size=0.5"]);
Segmark("2",[P,H],["Type=1","Size=0.5"]);
／／ 線分APと線分PHの長さが等しいことを示す．
／／ "Type=1"は1本線，"Size=0.5"は標準長さの0.5倍
Paramark([B,H,P],[0.5]);
／／ 直角マークを付ける．3点B,H,Pの順序に注意
Setpt(3);
／／ 次に描く点の大きさを標準の3倍にする
Drawpoint([A,P,H]);
／／ 3点A,P,Hを描く
Setcolor("black");
Expr([A,"s1","p",-A,"s1w","-p",C,"n","\ell"]);
Letter([P,"s1e","P$(x,\,y)$",A,"nw","F",H,"w1","H"]);
Addax(1);
／／ 座標軸をかく
Plotdata("1","-2*x+5","x",["Num=1"]);
Plotdata("2","-1/2*x+3","x",["Num=1"]);
Plotdata("3","0","x",["Num=1","notex"]);
／／ 3本の直線を描く．"Num=1"は2点をとって描く
／／ "notex"はデータを作るが図は描かないオプション
Putintersect("Q","gr1","gr2");
／／ gr1とgr2の交点に幾何点Qをとる
Putintersect("R","gr1","gr3");
Setcolor("navyblue");
／／ 以下に描く図形の色の設定を行う
Listplot([A,B,R,Q,A],["notex"]);
／／ 四角形ABRQ内にハッチを掛けるために境界線を設定する
Hatchdata("1","i",["sgABRQA"]);
／／ 四角形ABRQ内にハッチを掛ける
Plotdata("4","-x","x",["do,1,2","Num=1"]);
／／ "do,1,2"：点線で描く．点の間隔は1倍（通常）
／／ 点の大きさは通常の2倍
Plotdata("5","-x+1.5","x",["do,1,2","Num=1"]);
Plotdata("6","-(x-Q.x)+Q.y","x",["do,1,2","Num=1"]);
Setcolor("black");
／／ 図形描画色を黒に戻す
Htickmark([6,"6"]);
／／ x軸の目盛り6の点に"6"と書く
Vtickmark([5,"5"]);
／／ y軸の目盛り5の点に"5"と書く
