関数のグラフ

Plotdata(name , 式 , 変数と定義域 , options)

関数のグラフを描く。プロットデータの名前は，gr

説明

式で表された関数のグラフを，指定された定義域で描く。 式，定義域は ” ” でくくって文字列とする。定義域は x=に続いてリストで指定。 options は次の通り。

線種 ”dr, n”, ”da,m,n” , ”do,m,n”
”Num=数値” 描画時の分割数
”Dis=数値” 値が指定数値以上ジャンプする場合は不連続点とみなす。
”Exc=数値リスト リストで示された点は除外する。
”Exc=関数” 関数の零点は除外する。
”Color=RGB” 色指定。RGB は CMYK でもよい。

【例】3 次関数 $f(x) = x^3+2x^2+2x+1$ のグラフを定義域指定なしで描く。

Draw

Initialization

KeyTyped

Ketinit();

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

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"));
  );
);

クリックで拡大

【例】三角関数 $f(x) = \cos x$ のグラフを定義域$0\leq x \leq 2\pi$で描く。

Draw

Initialization

KeyTyped

Ketinit();

Plotdata("3","cos(x)","x=[0,2*pi]");

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. Disオプションで不連続点を結ばない
2. floor()のグラフ

1

Plotdata("3","sin(x)/sqrt(sin(x)^2)","x",["Dis=1","Num=2000"]);

2

Ketinit();

Plotdata("1","floor(x)^2/4","x",["Num=1000","Dis=0.1"]);
Drwxy();
repeat(10,s,start -> -5,
Pointdata(text(s+3),[s+1,floor(s)^2/4],["Inside=0","Size=3"]);
);

Implicitplot(name, 式,x の定義域,y の定義域, options)

陰関数のグラフを描く。

説明

陰関数の式を与えてグラフを描く。式，定義域とも文字列。
options は，”r”,”m”,”Wait=n” が指定できる。Wait の初期値は 10。
”r”,”m”に関しては，オプションなしのとき

1. データファイルがなければ，新しく作る
2. データファイルが既にあればそれを読み込む
   ”m”のとき，強制的にデータファイルを作り直す。
   ”r” のとき，すでにあるデータファイルを読み込む。

【例】カッシーニの卵形線を描く。

Draw

Initialization

KeyTyped

Ketinit();

Implicitplot("1","(x^2+y^2)^2-2*2.5^2*(x^2-y^2)-(3^4-2.5^4)=0","x","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"));
  );
);

クリックで拡大

info

Deqplotは保留

Paramplot(name , 式 , 変数と定義域,options)

媒介変数表示の曲線を描く。

説明

式は””でくくった媒介変数表示のリストで与える。
定義域も ” ” でくくって文字列とし，t=に続いてリストで指定する。
options は線種が有効

【例】リサージュ図形を描く。

Draw

Initialization

KeyTyped

Ketinit();

Paramplot("1","[cos(5*t),sin(7*t)]","t=[0,2*pi]",["Num=2000"]);

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"));
  );
);

クリックで拡大

optionsの使用例

1. 太線
2. 破線
3. 点線

1

Paramplot("2","[2*cos(t),sin(t)]","t=[0,2*pi]",["dr,2"]);

2

Paramplot("3","[2*cos(t)+5,sin(t)]","t=[0,2*pi]",["da"]);

3

Paramplot("4","[2*cos(t)+10,sin(t)]","t=[0,2*pi]",["do"]);

Polarplot(name , 式 , 変数と定義域,options)

極座標表示 $r = f(\theta)$ の曲線を描く。

【例】アルキメデスの螺旋を描く。

Draw

Initialization

KeyTyped

Ketinit();

Polarplot("1","t/5","t=[0,6*pi]",["Num=2000"]);

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"));
  );
);

クリックで拡大

Periodfun(定義式, 周期,options)

周期関数のグラフを描く。戻り値は Maxima 形式の式と period のリスト。

説明

周期関数の式を定義してグラフを描く。定義式は，関数式（文字列），区間，分割数のリスト。 この関数固有のオプションは ”Con=” で，不連続点を線で結ぶか否かと，その時の色。初期設定は破線。結ばない場合は ”Con=n”，色指定は線種に続いてコンマで区切って指定する。たとえば，”Con=do,Color=red”。
周期（描画回数）は，数またはリストで指定する。周期が $m$のとき，$2m+1$ 周期分描かれる。
注意）関数は左右対称な定義域 $[-a,a]$ で定義すること。

【例】周期2のクロックを描く

Draw

Initialization

KeyTyped

Ketinit();
addax(0);
defL=["0",[-1,0],1,"1",[0,1],1];
Periodfun(defL, 2,["Con=dr,3","dr,3"]);

repeat(11,i,start -> -5,
Listplot(text(i+10),[[i,-1],[i,2]],["da,2,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"));
  );
);

クリックで拡大

info

Fourierseriesは保留

Tangentplot(name , PD , 位置 , options)

接線を描く。プロットデータの名前は，lntn

説明

曲線 PD の指定した位置での接線を描く。位置は ”x=n” で指定する。

【例】$y=\sin x$の$x=1$での接線を描く。

Draw

Initialization

KeyTyped

Ketinit();

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

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"));
  );
);

クリックで拡大