プロットデータの操作

Drawfigures(or Drwfigs)(name , データリスト, オプションリスト)

複数のプロットデータのスタイル（オプション）をリストで与えて描画する

説明

複数のプロットデータをまとめて扱う。たとえば，円と，円周上の点の 2 つのプロットデータをまとめて扱えば，平行移動や回転で，それらのプロットデータをまとめて平行移動や回転ができる。

Draw

Initialization

KeyTyped

Ketinit();

opcr=["dr,2"];
oppt=["size=2","color=red"];
Circledata("1",[[0,1],[0,0]],opcr);
Pointdata("1",[0,0],oppt);
opcr=["dr,1"];
ad1=["gr1","pt1"];
forall(1..32,
Rotatedata("1","cr1",#*(-pi/16),[[0,1],"nodisp"]);
Rotatedata("2","pt1",#*(-pi/16),[[0,1],"nodisp"]);
Translatedata("1","rt1",[#*(pi/16),0],["nodisp"]);
Translatedata("2","rt2",[#*(pi/16),0],["nodisp"]);
Drawfigures(text(#),["tr1","tr2"],[opcr,oppt]);
);

Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

クリックで拡大

note

グループ化については保留

Changestyle(PD リスト, options)

描画オプションを変更する

説明

複数の図形の描画オプションを一括して変更する。

Invert(PD)

プロットデータを逆順にする

【例】矢印とその逆向きの矢印を描画する。

Draw

Initialization

KeyTyped

Ketinit();
addax(0);
Setketcindyjs(["Figure=y"]);

Putpoint("A",[-2,-1],[A.x,A.y]);
Putpoint("B",[1,3],[B.x,B.y]);
Putpoint("C",[2,-1],[C.x,C.y]);
Arrowdata("1",[A,C]);
Arrowdata("2",Invert(ar1));


Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

クリックで拡大

Joincrvs(name, プロットデータのリスト, options)

隣接する曲線プロットデータ のリストを繋いで 1 本の曲線を作る。

説明

曲線のリストは隣接する順番で指定する。
options は線種”dr, n”, ”da,m,n” , ”do,m,n”

【例】$y=x+2$と$y=x^2$のグラフの内側を塗りつぶす。

Draw

Initialization

KeyTyped

Ketinit();

Plotdata("1","x^2","x=[-1,2]",["Num=200"]);
Plotdata("2","x+2","x=[-1,2]",["Num=200"]);
Joincrvs("1",["gr1","gr2"]);
Shade(["join1"],["Color=red"]);

Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

クリックで拡大

Partcrv(name, A, B, プロットデータ, options)

曲線プロットデータ上の点 A, B の間の部分曲線を描く。

説明

2 点 A, B の順序は曲線の向きと同一であること。曲線の向きは，y = f(x) のグラフでは x 座標が増加する向き。
options は線種”dr, n”, ”da,m,n” , ”do,m,n”

【例】$y=x^2$の$y=x+2$より下側だけを太くする。

Draw

Initialization

KeyTyped

Ketinit();

Plotdata("1","x^2","x",["Num=200","do"]);
Plotdata("2","x+2","x",["Num=200"]);

Partcrv("1", [-1,1], [2,4], "gr1",["dr,3"]);

Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

クリックで拡大

【例】Intersectcrvsを使って動的に交点を求める

Draw

Initialization

KeyTyped

Ketinit();
Setketcindyjs(["Figure=y"]);
Putpoint("A",[-2,-1],[A.x,A.y]);
Putpoint("B",[1,3],[B.x,B.y]);

Lineplot("1",[A,B],["da"]);

Circledata("1",[[0,2],[0,0]],["dr"]);
tmp=sort(Intersectcrvs("ln1","cr1"));
//tmp=Intersectcrvs("ln1","cr1");
print(tmp);
Intersects=length(tmp);
if(Intersects>0,
if(A.x<B.x,
Partcrv("1",tmp_1,tmp_2,"ln1",["dr,2"]);,
Partcrv("1",tmp_2,tmp_1,"ln1",["dr,2"]);
);
);


Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

Enclosing(name , PD リスト , [開始位置, 交点計算の許容限界 1, 2])

複数の曲線から閉曲線を作る。

説明

開始位置は，最初と最後の曲線の交点が複数あるときに指定する。
開始点は近くに取ればよい。許容限界は，通常は指定しなくてよい。

【例】$y=x+2$と$y=x^2$のグラフの内側を塗りつぶす。

Draw

Initialization

KeyTyped

Ketinit();

Plotdata("1","x^2","x",["Num=200"]);
Plotdata("2","x+2","x",["Num=200"]);


Enclosing("1",["gr1","gr2"],["nodisp"]);
Shade(["en1"],["Color=red"]);

Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

クリックで拡大

Hatchdata(name , 方向リスト , プロットデータ , options)

閉曲線の内部に斜線を引く。

説明

引数は，曲線名，内部外部のパターンを与える”i”，”o” の文字列，閉曲線を与える曲線と領域の内部を定める
方向のリストとオプション。
オプション（カッコ内はデフォルト値）
　角度 (45)，間隔 (1)，"Max=(20)" 斜線の最大本数，
"No=点リスト" 点リストの点が選ばれているときは実行しない
"File=y/m/n (n)" データファイルを作るか
"Check=点リスト" 点リストの点が変更されていたら，ファイルを作り直す

【例】$y=x+2$と$y=x^2$のグラフの内側をハッチングする。

Draw

Initialization

KeyTyped

Ketinit();

Plotdata("1","x^2","x",["Num=200"]);
Plotdata("2","x+2","x",["Num=200"]);


Enclosing("1",["gr1","gr2"],["nodisp"]);

Hatchdata("1",["i"],[["en1"]],[-45,1,"dr,0.5"]);

Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

クリックで拡大

【例】ベン図を書いて、指定の部分にハッチング

Draw

Initialization

KeyTyped

Ketinit();
addax(0);

Circledata("1",[[0,0],[2,0]],["dr,2"]);
Circledata("2",[[2,0],[4,0]],["dr,2"]);
Circledata("3",[[1,2],[3,2]],["dr,2"]);
Hatchdata("1",["ioi"],[["cr1"],["cr2"],["cr3"]],["dr,0.7"]);
Hatchdata("2",["iii"],[["cr1"],["cr2"],["cr3"]],[-45,"dr,1.2"]);



Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

クリックで拡大

Dotfilldata(name , 方向リスト , プロットデータ , options)

領域を点で敷き詰める。

説明

R とデータの授受をおこなって描画する。書式は Hatchdata() と同様。 オプションは，ドットの密度で 0.1～0.8 程度。 初期設定は 0.3。

info

保留

Shade((”名前”), プロットデータのリスト , options)

閉曲線で囲まれた領域を塗りつぶす。

説明

第１引数には，閉曲線を与える曲線分のプロットデータ名を並べる。
デフォルトでは，Joincrvs を使って閉曲線を作っている。ただし，プロットデータのリストに”Invert()”が入っていれば，Enclosing を使う。
option の Color は，Cinderella の画面上での描画色をリストで与える。濃さを指定したい場合は色名や RGBではなく CMYK にする。
options には，他に，次のものがある。
・Enclosing を使うかどうか：”Enc=y/n”（初期値は n）
　　　”Enc=y” のとき，複数の Shade を使うときは，名前をつける。
・Enclosing のときの開始点，描画色
・描画領域のトリミング：”Trim=y/n” （初期値は n ）
・TeX への書き出しで，先頭に配置するか：”First=y/n” （初期値は n ）
　　　”First=n” のときは，使われている Gdata の書き出しの直前におく．

【例】ベン図を塗りつぶす

Draw

Initialization

KeyTyped

Ketinit();
addax(0);

Circledata("1",[[0,0],[2,0]],["dr,2"]);
Circledata("2",[[2,0],[4,0]],["dr,2"]);
Circledata("3",[[1,2],[3,2]],["dr,2"]);
tmp1 = Intersectcrvs("cr1" ,"cr2");
tmp2 = Intersectcrvs("cr2" ,"cr3");
tmp3 = Intersectcrvs("cr3" ,"cr1");
Partcrv("1", tmp1_2, tmp3_2, cr1, ["dr,3"]);
Partcrv("2", tmp2_2, tmp3_2, cr3, ["dr,3"]);
Partcrv("3", tmp2_2,tmp1_2, cr2, ["dr,3"]);

Shade("1",["part1","Invert(part2)","part3"],["color=red"]);

Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

クリックで拡大

【例】描画範囲外は塗りつぶさない

Draw

Initialization

KeyTyped

Ketinit();
addax(0);

Circledata("1",[[0,0],[2,0]],["dr,2"]);
Shade("1",["cr1"],["color=red","Trim=y"]);

Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

クリックで拡大

Reflectdata(name , プロットデータ , 対称点または対称軸,options)

プロットデータの鏡映を作成

説明

プロットデータを指定された点または軸に関して対称移動する。
対称点は座標または，点の識別名。ただし，対称点を座標で示すときは要素がひとつのリストにする。
対称軸はリスト [ 点 1, 点 2 ] で指定。

【例】$y=x^3$とその逆関数を描く

Draw

Initialization

KeyTyped

Ketinit();

Plotdata("1","x^3","x",["Num=200"]);
Plotdata("2","x","x",["da"]);

Reflectdata("1","gr1",[[0,0],[1,1]],["dr,2"]);

Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

クリックで拡大

【例】$y=x^2$とそれを点対称移動させたグラフを描く

Draw

Initialization

KeyTyped

Ketinit();

Plotdata("1","x^2","x",["Num=200"]);

Reflectdata("1","gr1",[[0,0]],["dr,2"]);

Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

クリックで拡大

Rotatedata(name , プロットデータ ，角度 , [中心 , options])

プロットデータの位置を回転する

説明

図形を，中心で示された点の周りに回転する。角度は弧度法で与える
中心と options はまとめてリストで与える。

【例】$y=\sin x$ のグラフを 90度回転する

Draw

Initialization

KeyTyped

Ketinit();

Plotdata("1","sin (x)","x",["Num=200","nodisp"]);

Rotatedata("1","gr1",pi/2,[[0,0]]);

Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

クリックで拡大

Scaledata(name , プロットデータ，x 方向比率 , y 方向比率 , [中心 , options])

図形の位置を拡大・縮小する

説明

図形の位置をプロットデータを用いて指定された比率で拡大・縮小する
比率は [x 方向比率 , y 方向比率] のリストで与えてもよい。
中心と options はまとめてリストで与える。options は線種

【例】$y=\sin x$ のグラフを x軸方向に0.5倍にする。

Draw

Initialization

KeyTyped

Ketinit();

Plotdata("1","sin (x)","x",["Num=200"]);

Scaledata("1","gr1",0.5,1,[[0,0],"da"]);

Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

クリックで拡大

warning

元の図形が拡大縮小されるので、グラフなどNE-WSの範囲しか描画されないものの場合、その範囲からの縮小となる。

Translatedata(name , プロットデータ , 移動ベクトル , options)

プロットデータを平行移動する

説明

プロットデータを移動ベクトルで示された分だけ平行移動する。

【例】$y=x^2$とそれを$x$軸方向に2,$y$軸方向に3移動させたものを描く。

Draw

Initialization

KeyTyped

Ketinit();

Plotdata("1","x^2","x",["Num=200","dr"]);

Translatedata("1","gr1",[2,3],["da"]);

Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

クリックで拡大

Intersectcrvs(プロットデータ 1, プロットデータ 2)

2 曲線の交点リストを取得する。

説明

オプションとして，共有点があるかどうかを判断するための限界値があるが，通常は使わない。

Draw

Initialization

KeyTyped

Ketinit();

Plotdata("1","x^2","x",["Num=200","dr"]);
Plotdata("2","x+2","x",["Num=200","dr"]);
intscs = Intersectcrvs("gr1", "gr2");
Pointdata("1",intscs_1,["Size=4"]);
Pointdata("2",intscs_2,["Size=4"]);

Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

クリックで拡大

Intersectcrvspp(プロットデータ 1, プロットデータ 2)

2 曲線の交点のパラメータリストを取得する。

説明

2 曲線の交点の座標とパラメータのリストを返す。
Intersectcrvs() との違いは，パラメータがあるかどうかである。
Intersectcrvsの例をIntersectcrvsppに変更し、リストをコンソールに表示すると、

[[[-1,1],9,8],[[2,4],15,14]]

と表示される。

Intersectcurves,Intersectcurvespp

2 曲線の交点リストを取得する。接点があるとき，時間はかかるがより精密な値を返す。
引数はIntersectcrvs,Intersectctvsppと同じ。

Nearestpt(PD1，PD2)

2 曲線に対し，最も近い点とそのパラメータ，距離のリストを返す

説明

戻り値は，それぞれの曲線上の点の座標とプロットデータ中の位置，その距離からなるリスト。

info

想定通りに動かないため保留

Nearestptcrv(座標, プロットデータ)

点に最も近いプロットデータの点を求める

説明

第1引数の座標に最も近い曲線プロットデータ上の点の座標を返す。

【例】

Draw

Initialization

KeyTyped

Ketinit();
Setketcindyjs(["Figure=y"]);
Putpoint("A",[1,1],[A.x,A.y]);

Plotdata("1","x^2","x",["Num=200","dr"]);

nrst=Nearestptcrv(A,"gr1");
print(nrst);
Pointdata("1",nrst,["Size=4"]);
Listplot("1",[A,nrst],["da"]);


Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

Paramoncrv(点の座標, 曲線の名前)

曲線上の点のパラメータ値を返す。

説明

曲線は折れ線として描かれ，曲線上の各点はこの折れ線の節点を基準としたパラメータ値を持つ。パラメータ値は整数部分が節点の番号，小数部分が節間の位置を表す。 【例】

Draw

Initialization

KeyTyped

Ketinit();
Setketcindyjs(["Figure=y"]);
Putpoint("A",[1,1],[A.x,A.y]);

Plotdata("1","x^2","x",["Num=200","dr"]);
Putoncurve("P","gr1",[0,0]);
prm = Paramoncrv(P, "gr1");

Expr([[1,-1],"e",text(prm)]);


Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

Pointoncrv(点のパラメータ値, PD)

曲線上のパラメータ値を持つ点の座標を返す。

説明

曲線（折れ線）上の節点を基準としたパラメータ値により点の位置が定まる。

Ptcrv(n, プロットデータ)

曲線プロットデータの n 番目の節点を返す

説明

Cindyscript の PD_n と同じ

【例】六角形の一部の辺だけ太くする

Draw

Initialization

KeyTyped

Ketinit();
addax(0);

Circledata("1",[[0,0],[2,0]],["Num=6","dr,1"]);
a=Ptcrv(2,cr1);
b=Ptcrv(4,cr1);
Partcrv("1",a,b,"cr1",["dr,3"]);

Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

クリックで拡大

Ptstart(プロットデータ) , Ptend(プロットデータ)

プロットデータの最初の点，最後の点を取得する。

説明

プロットデータの最初の点，最後の点の座標を返す。

ReadOutData(ファイル名)

外部データをプロットデータとして読み込む

説明

Extractdata参照。

Readcsv(path,filename,option)

csv ファイルを読む。

引数

• path - ディレクトリ
• filename - ファイル名

返り値

<list>(2次元配列)

【例】以下のファイルを読み込む

1,2,3,4
5,6,7,8

Draw

Initialization

KeyTyped

Ketinit();
a=Readcsv("path/to/your/file","example.csv");
println(a);
Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

出力結果

[[1,2,3,4],[5,6,7,8]]

Readlines(path,filename,option)

テキストファイルを 1 行ずつ読む。

引数

• path - ディレクトリ
• filename - ファイル名

返り値

<list>

【例】以下のファイルを読み込む

abcde
fghij

Draw

Initialization

KeyTyped

Ketinit();
a=Readlines("path/to/your/file","example.txt");
println(a);
Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

出力結果

[abcde,fghij]

WriteOutData(ファイル名,PD リスト)

外部データに書き出す

【例】x^2のプロットデータを外部ファイルに書き込む

Draw

Initialization

KeyTyped

Ketinit();
Plotdata("1","x^2","x",["Num=200"]);
WriteOutData("gr1.txt",["gr1"]);
Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

./fig/gr1.txtに以下のようなファイルが生成される

gr1//
start//
[[-2.5,6.25],[-2.475,6.12563],[-2.45,6.0025],[-2.425,5.88062],[-2.4,5.76],[-2.375,5.64062]]//
(中略)
[[2.325,5.40563],[2.35,5.5225],[2.375,5.64062],[2.4,5.76],[2.425,5.88062],[2.45,6.0025]]//
[[2.475,6.12562],[2.5,6.25]]//

Extractdata(データ名, 属性)

ReadOutData() で読み込んだデータに属性をつける。

【例】WriteOutDataの説明で書き出したファイルを読み込んでdr,2属性をつける

Draw

Initialization

KeyTyped

Ketinit();
ReadOutData("gr1.txt");
Extractdata("gr1",["dr,2"]);

Windispg();

use("KetCindyPlugin");
Dircdy=loaddirectory;
setdirectory(gethome());
import("ketcindy.ini");
Usegraphics("tikz")

kL=keydownlist();
if(length(kL)>0,
  if(kL==[17,70], //Ctr+f (Figures)
    Viewtex();
    kc();
  );
  if(kL==[16,17,80], //Ctr+Shift+p (Parent)
    if(length(Shellparent)>0,
      Makeshell(),Makebat();
    );
    WritetoSci(2);
    kc();
  );
  if(kL==[17,74], //Ctr+j (Ketjsoff)
    Mkketcindyjs(append(KETJSOP,"Web=n"));
  );
  if(kL==[16,17,74], //Ctr+Shift+j (Ketjson)
    Mkketcindyjs(append(KETJSOP,"Web=yj"));
  );
);

クリックで拡大