計算用紙 CalcPad

# 樹を描きます。与えられたパラメータと乱数を使って樹木の樹形を描きます。
# 描ける樹は今のところ一般的な広葉樹や針葉樹で、竹、ヤシなどの特徴の強い樹は描けません。
# 処理能力の関係で枝葉の数はかなり抑えぎみになっています。雰囲気が出ていればよしとしてください。
# 枝葉が多いと描くのに非常に時間がかかりますが、実際に樹を育てるよりは速いです。
# 一本の樹を描くのに数十分から一日程度かかりますのでひまつぶしにどうぞ。

var SCRN_Height = 480; // グラフィック画面の高さ。
var SCRN_Width  = 640; // グラフィック画面の幅。
var Height, Width, Thick, HKAry; // 樹の高さ、幅、太さ、葉形状。
var EdaIro = ["r":128, "g": 128, "b":128]; // 枝の色。樹種の指定で変更可。
var HaIro1 = [], HaIro2 = []; // 枝先, 枝元の葉の色。
var AdultAge, TreeAge; // 成木年、樹齢。

// パラメータ設定。タイトル、パラメータ番号、パラメータ名、値の配列、備考 など。
var ctitle = ["", "標準", "下限", "上限"]; // 項目タイトル。
var n, pn = [], ptitle = [], param = [], pinfo  = [];
n=0; pn."樹高" = n; ptitle[n] = "樹高"; param[n] = [0.8, null, null];
 pinfo[n] = "樹の縦方向への成長率。成木樹高の画面高さに対するおよその比率。";
++n; pn."樹幅" = n; ptitle[n] = "樹幅"; param[n] = [0.6, null, null];
 pinfo[n] = "樹の横方向への成長率。樹の高さに対しておよその比率。";
++n; pn."樹径" = n; ptitle[n] = "樹径"; param[n] = [1.0, null, null];
 pinfo[n] = "樹の幹や枝の太さあるいは太る速度。太さは樹齢等に応じてほぼ相応に描かれますが樹齢が大きいと太くなりすぎたりするので好みで調整してください。";
++n; pn."芽出態" = n; ptitle[n] = "芽出態"; param[n] = [1, null, null];
 pinfo[n] = "葉や花の芽の付き方。1:互生、2:対生、3〜:束生あるいは輪生(描画上区別しない)。1未満だと葉っぱの出方がランダムになります。";
++n; pn."葉数" = n; ptitle[n] = "葉数"; param[n] = [4, null, null];
 pinfo[n] = "葉枝(1～3年枝)の各枝につくおよその葉の数。";
++n; pn."葉形状" = n; ptitle[n] = "葉形状"; param[n] = ["1,1,3,5,5,3,1"]; // ここは文字列1個。
 pinfo[n] = "葉の概略形状。単葉のみ。葉の幅(葉柄含む)を元から先へ順次\",\"で区切って。実際に描かれた絵はせいぜい針状、板状程度の区別しかできません。";
++n; pn."葉寸法" = n; ptitle[n] = "葉寸法"; param[n] = [1, null, null];
 pinfo[n] = "葉の大きさ。0.5:小葉、1:標準 ～ 2:大葉。負の値なら葉枝の寸法は確保しますが葉っぱはつけません(冬枯れの景色)。";
++n; pn."葉間隔" = n; ptitle[n] = "葉間隔"; param[n] = [0.5, null, null];
 pinfo[n] = "枝の新芽ひいては葉や新枝の出る間隔。およそ葉の長さに対する比率。";
++n; pn."葉色枝先" = n; ptitle[n] = "葉色枝先"; param[n] = ["'r':0, 'g':160, 'b':0"]; // ここは文字列。
 pinfo[n] = "枝先の葉の色。三原色'r'(赤), 'g'(緑), 'b'(青)の各値を0～255で指定。";
++n; pn."葉色枝元" = n; ptitle[n] = "葉色枝元"; param[n] = ["'r':0, 'g':120, 'b':0"]; // ここは文字列。
 pinfo[n] = "枝元の葉の色。三原色'r'(赤), 'g'(緑), 'b'(青)の各値を0～255で指定。";
++n; pn."若枝分枝度" = n; ptitle[n] = "若枝分枝度"; param[n] = [2, null, null];
 pinfo[n] = "若枝や葉枝の新しい枝を出す度合。若枝は5年、葉枝は3年としています。数値は感覚的なもの。通常1～3くらい。";
++n; pn."古枝分枝度" = n; ptitle[n] = "古枝分枝度"; param[n] = [1, null, null];
 pinfo[n] = "古枝の分枝度合い。実質樹齢までの枝の生存度合も含めます。通常0.5～2くらい。";
++n; pn."分枝角" = n; ptitle[n] = "分枝角"; param[n] = [45, null, null];
 pinfo[n] = "元枝に対し側枝が分枝する角度(度)。葉にも適用。20 ～ 70程度。";
++n; pn."枝開き" = n; ptitle[n] = "枝開き"; param[n] = [0, null, null];
 pinfo[n] = "幹から出る枝の角度が徐々に開く、あるいは閉じていく傾向。-5:閉じる ～ 0:変わらない ～ 5:開く。";
++n; pn."枝向き" = n; ptitle[n] = "枝向き"; param[n] = [0, null, null];
 pinfo[n] = "枝先が上または下に向かう性質。-10:しだれ性 ～0:変わらない ～ 10:立ち性。樹によっては葉がつくと垂れて葉が枯れると持ち上がる場合もあります。";
++n; pn."下垂性" = n; ptitle[n] = "下垂性"; param[n] = [0, null, null];
 pinfo[n] = "枝葉の重さ等で枝が垂れ下がる現象。効果は年々累積していくので古い枝ほど大きく垂れます。0 ～ 10位。";
++n; pn."枝上り" = n; ptitle[n] = "枝上り"; param[n] = [3, null, null];
 pinfo[n] = "低い位置では分枝しないか下枝が枯れてなくなる傾向。0:根元からも分枝、1:根元の少し上から分枝、枝上りしない ～ 10:枝上り傾向極大。";
++n; pn."直幹性" = n; ptitle[n] = "直幹性"; param[n] = [3, null, null];
 pinfo[n] = "幹や枝をまっすぐ伸ばす性質。あるいは幹枝曲り傾向の逆。0:直幹性なし ～ 10:直幹性高。";
++n; pn."成木年" = n; ptitle[n] = "成木年"; param[n] = [50, null, null];
 pinfo[n] = "はっきりした定義はありませんがほぼ成木の樹形になり成長が遅くなり始める年数。10～100年程度。";
++n; pn."樹齢" = n; ptitle[n] = "樹齢"; param[n]   = [100, null, null];
 pinfo[n] = "描く木の年齢。";
//// 本当は三次元座標を使って樹を育て、遠近法で平面画像に変換すればいいのだが...とてもできない。
//// 以下はさらに考慮すればいいパラメータやルールとは思うが今のところ組み込めていない。
// 下枝が上の枝の日陰になり成長速度や枝枯れに影響する効果。
// 主枝、側枝の区分の弱い枝の成長形態がまれにある。ミツマタなど。
// 葉の詳細設定。裂葉、複葉などの形状、一箇所から何枚葉を出すかなど。
// 幹に模様をつけり、花や実もつけてみたいが...

var treenum = "";
	println("樹を描きますがとても時間がかかります。まずはベースとなる樹種を選択してください。");
	println("番号を入力するか、あるいは樹種をクリックしてください。");
	println("0: 終了");
	println("1: 庭園の松");
	println("2: 盆栽の松(傘松仕立て)");
	println("3: 湯島の白梅");
	println("4: 旧家のしだれ桜");
	println("5: 銀座の柳");
	println("6: けやき公園のケヤキ(時間がかかります)");
	println("7: 冬枯れのケヤキ(時間がかかります)");
	println("8: 山寺のもみぢ");
	println("9: 峠の一本杉(葉っぱの数が多くすさまじく時間がかかります)");
//	println("10: 花水木");

treenum = (int)input("樹種の番号：");
	if(!treenum){ exit "終了します。"; }
	else if(treenum == 1){ println("庭園の松を描きます。"); settree("庭園の松"); }
	else if(treenum == 2){ println("盆栽の松(傘松仕立て)を描きます。ただし剪定は上手ではありませのでなかなかいい形になりません。"); settree("盆栽の松(傘松仕立て)"); }
	else if(treenum == 3){ println("湯島の白梅を描きます。花は葉っぱを白にしてごまかします。"); settree("湯島の白梅"); }
	else if(treenum == 4){ println("旧家のしだれ桜を描きます。花は葉っぱをピンクにしてごまかします。"); settree("旧家のしだれ桜"); }
	else if(treenum == 5){ println("銀座の柳を描きます。"); settree("銀座の柳"); }
	else if(treenum == 6){ println("けやき公園のケヤキを描きます。かなり時間がかかります。"); settree("けやき公園のケヤキ"); }
	else if(treenum == 7){ println("冬枯れのケヤキを描きます。かなり時間がかかります。"); settree("冬枯れのケヤキ"); }
	else if(treenum == 8){ println("山寺のもみぢを描きます。"); settree("山寺のもみぢ"); }
	else if(treenum == 9){ println("峠の一本杉を描きます。花粉は出しませんのでご安心を。でもすさまじく時間がかかります。"); settree("峠の一本杉"); }
//	else if(treenum == 10){ println("花水木を描きます。"); settree("花水木"); }
	else{ println("該当の樹種がありません。仮パラメータを設定しますので適当に変えてください。"); settree(""); } // defaultを設定。

tree();
	exit "終了します。";

function tree(){
	// 条件入力。
	println('\n以下のパラメータを使って樹を育てます。希望に応じて数値を変更してください。');
	println('上限下限値が設定されれば標準値に加味して樹の成長はある程度ランダム化されます。');
	table_input(3, arylen(param), param, ctitle, ptitle, pinfo); // パラメータの提示と変更、入力。

var starttime = time();

// 描画画面を設定。
	screenstyle('border:1px solid gray;');
	newscreen(SCRN_Width, SCRN_Height);
	// 背景。空と地面を描く。
	var sp, hp, ep, vp, startcolor, endcolor, r,g,b;
	sp = 0; hp = SCRN_Height / 1.618; ep = SCRN_Height;
	// 空。晴天で。
	pen(2, "round", "round");
	startcolor = [120, 160, 255], endcolor = [160, 200, 255];
	for(vp = sp; vp <= hp; vp++){ // r,g,b値は整数でないとだめなブラウザあり。
		r = (int)(startcolor[0] + (endcolor[0] - startcolor[0]) * (vp - sp) / (hp - sp));
		g = (int)(startcolor[1] + (endcolor[1] - startcolor[1]) * (vp - sp) / (hp - sp));
		b = (int)(startcolor[2] + (endcolor[2] - startcolor[2]) * (vp - sp) / (hp - sp));
		color('rgb('+r+','+g+','+b+')', 'rgb('+r+','+g+','+b+')');
		c_line(0, vp, SCRN_Width, vp);
	}
	// 地面。
	startcolor = [160, 200, 140], endcolor = [100, 160, 80]; // 上, 下。
	for(vp = hp; vp <= ep; vp++){ // r,g,b値は整数でないとだめなブラウザあり。
		r = (int)(startcolor[0] + (endcolor[0] - startcolor[0]) * (vp - hp) / (ep - hp));
		g = (int)(startcolor[1] + (endcolor[1] - startcolor[1]) * (vp - hp) / (ep - hp));
		b = (int)(startcolor[2] + (endcolor[2] - startcolor[2]) * (vp - hp) / (ep - hp));
		color('rgb('+r+','+g+','+b+')', 'rgb('+r+','+g+','+b+')');
		c_line(0, vp, SCRN_Width, vp);
	}

//  樹を植えて育てて描く。
	plant(["x":320,"y":40], ["h":360*random()-180,"v":90], 1);
	println("\nTime=", ceil((time()-starttime)/60000), "分");
}

// まずは樹を植えて育てるデータをそろえる。
function plant(pos=["x":320,"y":40], drc=["h":-90,"v":90], viewfactor=1){
	// 育成最後までグローバルに使うパラメータを再設定。
	if((AdultAge = param_value("成木年")) <= 0){ // 成木年。
		println('\n成木年の指定値が不適当です。'); exit "終了します。";
	}
	if((TreeAge = param_value("樹齢")) < 0){ // 樹齢。
		println('\n樹齢の指定値が不適当です。'); exit "終了します。";
	}
	var heightfactor = param_value("樹高");
	if((Height = SCRN_Height * heightfactor) <= 0){ // 樹高。
		println('\n樹高の指定値が不適当です。'); exit "終了します。";
	}
	if((Width = Height * param_value("樹幅")) <= 0){ // 樹幅。
		println('\n樹幅の指定値が不適当です。'); exit "終了します。";
	}
	if((Thick = heightfactor * param_value("樹径") * max(total_grow(TreeAge)**0.33, 0.5) * 10) <= 0){ // 幹太さ。係数は見てくれから決めた。
		println('\n樹径の指定値が不適当です。'); exit "終了します。";
	}
	if(calc('HKAry=['+param[pn."葉形状"][0]+'];', 1) === error){ // 葉形状を配列に。
		println('\n葉形状がデータ変換できません。');exit;
	};
	if(calc('HaIro1=['+param[pn."葉色枝先"][0]+'];', 1) === error){ // 葉色枝先データを配列に。
		println('\n葉色枝先がデータ変換できません。');exit;
	};
	if(calc('HaIro2=['+param[pn."葉色枝元"][0]+'];', 1) === error){ // 葉色枝元データを配列に。
		println('\n葉色枝元がデータ変換できません。');exit;
	};

store(); // 描画パラメータ退避。
	// 樹を描く。
	anchor(pos["x"], SCRN_Height-pos["y"]);
	scale(viewfactor, viewfactor);
	branch(TreeAge, TreeAge, pos, drc);
	restore(); // 描画パラメータ戻し。
}

// 幹や枝を描く。
// branchge:枝年齢、myage:描画枝の年齢(樹齢→0へと)、pos:枝分枝位置、drc:伸枝方向、
// branchcount:分枝回数(制限用)。
function branch(branchage, myage, pos, drc, branchcount=0){
	static branchmax = 4; // 枝の分枝回数制限。枝が増えすぎて描ききれなくなるのを少し予防。
	if(branchage < myage || myage < 0){ return; }
	var twigage = 5; // 若枝として描画する年枝。枝出しを少し多くし3年枝以下には葉っぱをつける。
	if(myage <= twigage){ twig(myage, pos, drc); return; }
	// 枝の仮成長係数。縦横の成長係数、枝向きなど考慮。
 var growfactor = param_value("樹高") * max(sind(drc["v"]), 0) + param_value("樹高") * param_value("樹幅")/2 * abs(cosd(drc["v"])); // 成長能力は枝向きで変わるらしい。
	var parting = 10 + 2*param_value("古枝分枝度"); // 分割度合い。枝が多いときは分割も細かく。
	var partage = 1/partial_grow(TreeAge-myage, TreeAge-myage+1)/parting; // 成長度合いがほぼ均等になるよう分割するが、
	partage = min(max(partage, 1), AdultAge/2); // 上限下限は設ける。
	if(myage - 1.5 * partage < twigage){ // 若枝描画境界を飛び越えないよう、また少しの残りは入れ込む。
		partage = myage - twigage;
	}
	var toage = myage - partage;
 // 区間で成長する画面上の長さ。
 var partlen = Height * growfactor * partial_grow(TreeAge-myage, TreeAge-toage);
 // 枝を伸ばし分枝度に応じて新枝を伸ばす。
 var basepos = copy pos, newpos = copy pos; // 新枝の伸びる位置。
	var basedrc = copy drc, newdrc = copy drc; // 新枝の伸びる方向。
	// 新枝を出す基本枝回り角。
	static startturnangle = 0;
 startturnangle = (startturnangle + 137) % 360;
	var stepturnangle = 360 / max(param_value("芽出態"), 2);
	var turnangle, tafactor, modifiedturnangle;

// 分枝頻度。徐々に古枝分枝度から若枝分枝度に近づける。
	var bsf1 = param_value("古枝分枝度"), bsf2 = param_value("若枝分枝度");
	var edadashi = growfactor * (bsf1 + (bsf2-bsf1)*((TreeAge-myage)/TreeAge));
	var bthick = Thick, newthick = Thick; // Thick(太さ)を変更するときの記憶用。
	var fromwidth, towidth;
	var edagrow1 = 0, edagrow2 = 0, edagrow3 = 0;
	var edacolor = "rgb("+EdaIro["r"]+","+EdaIro["g"]+","+EdaIro["b"]+")";
	// 枝より奥の側枝。
	if(branchcount <= branchmax){
		turnangle = startturnangle;
		do{
			if(cosd(drc["h"]+turnangle) < 0 && (edadashi-edagrow1) > random()){
				if(total_grow(branchage-myage)/total_grow(branchage) > (param_value("枝上り")-1)/10){
					color(edacolor, edacolor);
					edagrow1 += newbranch();
				}
			}
		}while((turnangle += stepturnangle) < startturnangle + 360);
	}

// 主幹。ある程度育つまでは消失させない。側枝がないとき消失するとぼうず枝になるのでこのときは主幹を伸ばす。
	if(myage <= TreeAge || param_value("直幹性") >= 5*random() || !edagrow1){
		if(branchcount > branchmax){ // 分枝制限。枝出しは終りにして葉っぱ枝をつける。ぼうず枝にはしない。
			twig(twigage, basepos, basedrc);
		}
		else{ // 主幹・枝幹を伸ばす。
			// 下垂性考慮。枝元ほど効かす。枝に累積したのを元枝の角度に入れ込む。
			var ksfactor = partlen * param_value("下垂性") * min(total_grow(myage),1)**2;
			basedrc["v"] -= ksfactor * cosd(basedrc["v"]) * 0.2;
			if(basedrc["v"] < -20){ basedrc["v"] = -20; } // 下方向へは限度を設ける。限度はあるらしい。
			// 方向を少しランダマイズすると枝が曲って自然っぽく見える。
			var rfactor = partlen * min(max((1 - param_value("直幹性")/10), 0), total_grow(TreeAge-toage))**2;
			newdrc["v"] = basedrc["v"] + rfactor * (random()-0.5) * 5.0;
			newdrc["h"] = basedrc["h"] + rfactor * (random()-0.5) * 3.0;
			// 枝向き考慮。枝先ほど効かす。
			var emfactor = partlen * param_value("枝向き");
			newdrc["v"] += emfactor * ((branchage-toage+twigage)/branchage)**2 * cosd(newdrc["v"]) * 0.2;
			if(newdrc["v"] < -20){ newdrc["v"] = -20; } // 下方向へは限度を設ける。限度はあるらしい。
			color(edacolor, edacolor);
			if(edagrow1 && param_value("芽出態") < 2){ // 互生では枝が出たら幹を半分伸ばす。
				fromwidth = stickwidth(bthick, myage, twigage);
				towidth = stickwidth(Thick, (myage=(myage+toage)/2), twigage);
				bthick = Thick;
				stick(basepos, (partlen /= 2), basedrc, newdrc, fromwidth, towidth, basepos, basedrc);
			}
			fromwidth = stickwidth(bthick, myage, twigage);
			towidth = stickwidth(Thick, toage, twigage);
			bthick = Thick;
			stick(basepos, partlen, basedrc, newdrc, fromwidth, towidth, newpos, newdrc);
			branch(branchage, toage, newpos, newdrc, branchcount);
			Thick = bthick;
			edagrow2++;
		}
	}

// 枝より手前の側枝。
	if(branchcount <= branchmax){
		turnangle = startturnangle;
		do{
			if(cosd(drc["h"]+turnangle) >= 0 && (edadashi-edagrow3) >= random()){
				if(total_grow(branchage-myage)/total_grow(branchage) > (param_value("枝上り")-1)/10){
					color(edacolor, edacolor);
					edagrow3 += newbranch();
				}
			}
		}while((turnangle += stepturnangle) < startturnangle + 360);
	}
	return; // このあとのfunction定義を関数実行の度に処理しないように。なくてもいいけど。

// 新しい枝を出す。引数はとらず親関数内の変数を直に参照するのでわかりやすいよう関数内に定義。
	function newbranch(){
		// 枝出し角に枝開き考慮。
		var ehfactor = param_value("枝開き") * myage/(0.5*AdultAge+TreeAge);
		var forkangle = param_value("分枝角") + 10 * ehfactor * sind(basedrc["v"]);
		forkangle = min(max(forkangle, 15), 110); // 限度はあるらしい。
		// 枝出しの枝回り角修正係数。斜めの枝は横に枝を出す傾向を入れ込み修正。
		tafactor = haply_value(cosd(drc["v"]), 0.0, 1.0, 2.0);
		modifiedturnangle = turnangle * (1-tafactor)
			+ (turnangle<0 ? -1 : 1)*(90-sind(drc["v"]-45)*10) * tafactor;
		growdirection(basedrc, modifiedturnangle, forkangle, newdrc);
		if(branchcount >= 1){
		// 基本剪定。下がり枝、不要な立ち枝はカット。それ以上の形づくりはやらない。
			// 下がり枝。
			if(newdrc["v"] < -15){ return 0; }
			// 立ち枝。上伸性がある場合は制限を緩める。
			if(newdrc["v"] > 75 + 1.0*(param_value("枝向き")-ehfactor)){ return 0; }
			// 内向き枝は判定が難しいのでやらない。
		}
		// 枝を伸ばす。枝を出したら太さを振り分ける。
		bthick = Thick;
		Thick = Thick * 0.7 * (1 - (max(Height-Width, 0) / Height));
		newthick = sqrt(bthick * bthick - Thick * Thick);
		fromwidth = stickwidth(Thick, myage, twigage);
		towidth = stickwidth(Thick, toage, twigage);
		stick(basepos, partlen, newdrc, newdrc, fromwidth, towidth, newpos, newdrc);
		branch(toage, toage, newpos, newdrc, branchcount+1);
		Thick = newthick;
		return 1;
	}
}

// 幹や枝の本体の一節を描く。近似的にだがなるべくなめらかに太さと方向を変える。
// 最終位置を配列newpos、方向をnewdrcに返す。
function stick(basepos, length, fromdrc, todrc, fromwidth, towidth, newpos, newdrc){
	if(length <= 0){ newpos = copy basepos; newdrc = copy todrc; return; } // 処理不要。元の値をそのまま返す。
	// ループの中での配列アクセスを減らすため単純変数に置き換え。
	var bposx = basepos["x"], bposy = basepos["y"];
	var fdrch = fromdrc["h"], fdrcv = fromdrc["v"];
	var tdrch = todrc["h"], tdrcv = todrc["v"];
	var fposx, fposy, tposx, tposy, nposx0, nposy0, nposx1, nposy1, width;
	nposx0 = bposx; nposy0 = bposy;
	for(var ln = 0; ln <= length; ln++){
		// 幹を描画。
		fposx = bposx + ln * sind(fdrch) * cosd(fdrcv);
		fposy = bposy + ln * sind(fdrcv);
		tposx = bposx + ln * sind(tdrch) * cosd(tdrcv);
		tposy = bposy + ln * sind(tdrcv);
		nposx1 = (fposx * (length-ln) + tposx * ln) / length;
		nposy1 = (fposy * (length-ln) + tposy * ln) / length;
		width = (fromwidth * (length-ln) + towidth * ln) / length;
		pen(width, "round", "round");
		c_line(nposx0, SCRN_Height-nposy0, nposx1, SCRN_Height-nposy1);
		nposx0 = nposx1; nposy0 = nposy1;
	}
	newpos["x"] = nposx0; newpos["y"] = nposy0;
	newdrc["h"] = tdrch; newdrc["v"] = tdrcv;
}

// 枝の太さを決める。古枝と若枝とのつなぎに少し留意。
// 太さは樹齢に対し0.33乗(立方根)が実感に近い。0.5乗では太くなりすぎる。
function stickwidth(thick, myage, twigage){
	if(myage == 0){ return 0.3; }
	thick = max(thick, 1);
	return max((thick*myage/TreeAge)*myage**0.33, 0.3*twigage**0.33);
}

// 若枝を描く。枝出しを普通の枝より少し多くし葉っぱをつける。
function twig(myage, pos, drc){
	if(TreeAge < myage || myage < 0){ return; }
	static jsseted = false; if(!jsseted){ jsset(); jsseted = true; } // 葉っぱを描く関数登録。
	var partlen, hncut; // 葉間長さと芽の剪定位置。剪定位置を枝出しの都合上概略計算で先に決めておく。
	if(myage == 0){ // 芽が地上まで伸びて最初の葉が開いた状態を樹齢0とする。
		partlen = 5; // ちょこっと茎を。
		hncut = 1; // 最初の1芽のみ。
	}
	else if(myage <= 3){ // 葉っぱをつける枝については葉数に応じて芽の寸法を確保。
		// 枝は葉位置で分割描画する。
		partlen = max(abs(param_value("葉寸法")), 0.3) * param_value("葉間隔") * strlen(param[pn."葉形状"][0])/2;
		// 葉っぱをつける枝については葉数に応じて芽の寸法を確保。
		hncut = param_value("葉数") / max(param_value("芽出態"), 1);
	}
	else{
		partlen = partial_grow(TreeAge-myage, TreeAge-myage+min(1, myage))
		 * Height * Width / sqrt((Height * cosd(drc["v"]))**2 + (Width * sind(drc["v"]))**2);
		hncut = 1;
	}
	// 新枝を伸ばす度合。
	var edadashi = param_value("若枝分枝度") / max(param_value("芽出態"), 1)**2 * 0.3;
	var basepos = copy pos, newpos = new pos; // 枝や葉の伸びる位置。
	var basedrc = copy drc, newdrc = []; // 枝や葉の伸びる方向。
	var startturnangle = haply_value(90, 0, 180, 2); // 新枝や葉を出す枝回り角。
	var stepturnangle = 360 / max(param_value("芽出態"), 2);
	var turnangle, forkangle;
	var edacolor = "rgb("+EdaIro["r"]+","+EdaIro["g"]+","+EdaIro["b"]+")"; // 枝の色。
	var emfactor = partlen * (param_value("枝向き")); // 枝向き考慮係数。
	var hn, medashi, tafactor, modifiedturnangle;

// 葉っぱをつけるか枝を伸ばす。
	for(hn = 0; (hn <= hncut || hn < hncut+1 && hncut%1 > random()); hn++){
		medashi = param_value("芽出態");
		// 枝や葉軸の方向を決める。枝向きを少し多く考慮。
		basedrc["v"] += emfactor * cosd(basedrc["v"]) * 0.1;
		basedrc["v"] = min(max(basedrc["v"], -90), 90);
		if(cosd(drc["h"]+startturnangle) == 0){ startturnangle += 1; } // 境界条件回避。

// 枝より奥の葉っぱまたは枝。
		if(hn >=1){
			turnangle = startturnangle;
			do{
				if(cosd(drc["h"]+turnangle) < 0
				 && (medashi >= 2 || medashi >= 1 && hn % 2 == 0 || medashi % 1 > random())){
					forkangle = param_value("分枝角"); // 分枝角。元枝から離れる角度。葉軸の角度にも流用。
					if(myage > 1 && edadashi*(hn/hncut)**2 > random()){ // 枝を伸ばす。枝先ほど新枝は出やすいようだ。
						// 枝出しの枝回り角修正係数。斜めの枝は横に枝を出す傾向だが新枝はランダム性が強い。
						tafactor = haply_value(cosd(drc["v"]), 0.0, 1.0, 1.0);
						modifiedturnangle = turnangle * (1-tafactor)
							+ (turnangle<0 ? -1 : 1)*(90-sind(drc["v"]-45)*10) * tafactor;
						growdirection(basedrc, modifiedturnangle, forkangle, newdrc);
						twig(myage-1, basepos, newdrc);
					}
					if(myage <= 3){ happa(); } // 葉っぱをつける。
				}
			}while((turnangle += stepturnangle) < startturnangle + 360);
		}

// 枝先なら新枝を出す。
		if(myage > 1 && hn >= hncut){
			if(myage > 3 || edadashi > random()){
				twig(myage-1, basepos, basedrc);
			}
		}
		else if(hn < hncut){ // あるいは元枝を伸ばす。
			if(edadashi > 0){
				newpos["x"] += partlen * sind(basedrc["h"]) * cosd(basedrc["v"]);
				newpos["y"] += partlen * sind(basedrc["v"]);
				pen(stickwidth(Thick, myage-hn/hncut, myage));
				color(edacolor, edacolor);
				c_line(basepos["x"], (SCRN_Height-basepos["y"]), newpos["x"], (SCRN_Height-newpos["y"]));
			}
		}

// 枝より手前の葉っぱまたは枝。
		turnangle = startturnangle;
		if(hn >= 1){
			do{
				if(cosd(drc["h"]+turnangle) >= 0
				 && (medashi >= 2 || medashi >= 1 && hn % 2 == 1 || medashi % 1 > random())){
					forkangle = param_value("分枝角");
					if(myage > 1 && edadashi*(hn/hncut)**2 > random()){ // 枝を伸ばす。枝先ほど新枝は出やすいようだ。
						// 枝出しの枝回り角修正係数。斜めの枝は横に枝を出す傾向だが新枝はランダム性が強い。
						tafactor = haply_value(cosd(drc["v"]), 0.0, 1.0, 1.0);
						modifiedturnangle = turnangle * (1-tafactor)
							+ (turnangle<0 ? -1 : 1)*(90-sind(drc["v"]-45)*10) * tafactor;
						growdirection(basedrc, modifiedturnangle, forkangle, newdrc);
						twig(myage-1, basepos, newdrc);
					}
					if(myage <= 3){ happa(); } // 葉っぱをつける。
				}
			}while((turnangle += stepturnangle) < startturnangle + 360);
		}

// 継続判定。
		if(hn >= hncut){ break; } // 葉数制限で剪定された。
		// 剪定されていなければ次の成長パラメータを設定しさらなる成長を願う。
		basepos["x"] = newpos["x"];
		basepos["y"] = newpos["y"];
		if((startturnangle += (stepturnangle % 180)*0.618) > 180){ startturnangle -= 360; }
	}
	return; // このあとのfunction定義を毎回処理しないように。なくてもいいけど。

// 葉っぱを描く。葉っぱの数が多く時間がかかるのでjavascriptで直接描くことにした。少し速くなった。
	// 引数はとらず親関数内の変数を直に参照するのでわかりやすいよう関数内に定義。
	function happa(){
		var hsize = param_value("葉寸法");
		if(hsize <= 0){ return; }
		// 枝先と元で少し色を変える。
		var hcolor, hcf; // 葉っぱの寸法、色と色決め変数。
		if(myage <= 1){ hcf = (1/(1+0.3*(hncut-hn))); }else{ hcf = 0; }
		hcf = haply_value(hcf, 0, 1, 0.3); // さらに少しランダマイズ。
		hcolor = "rgb(" + floor(HaIro1["r"]*hcf+HaIro2["r"]*(1-hcf))
			+ "," + floor(HaIro1["g"]*hcf+HaIro2["g"]*(1-hcf))
			+ "," + floor(HaIro1["b"]*hcf+HaIro2["b"]*(1-hcf)) + ")"; // rgb()が整数でないと誤動作するブラウザあり。
		color(hcolor, hcolor);
		// javascriptの葉っぱ描画関数を呼び出す。引数もすべて文字列としてjseval()で呼び出す。
		jseval('\
			pos["x"]='+basepos["x"]+'; pos["y"]='+basepos["y"]+';\
			basedrc["h"]='+basedrc["h"]+'; basedrc["v"]='+basedrc["v"]+';\
			jshappa(pos, '+hsize+', basedrc, '+turnangle+', '+forkangle+');\
		');
		return;
	}
}

// 葉っぱを一枚一枚描くのに時間がかかるのでjavascriptで直接描く関数を登録。
function jsset(){
jseval('
var HKAry = ['+param[pn."葉形状"][0]+'];
function sind(angle){ return Math.sin(angle * Math.PI / 180); }
function cosd(angle){ return Math.cos(angle * Math.PI / 180); }
function asind(value){ return Math.asin(value) * 180 / Math.PI; }
function atand(value){ return Math.atan(value) * 180 / Math.PI; }
function abs(value){ return value < 0 ? -value : value; }
var pos = [], basedrc = [];
// 葉っぱを描く。
function jshappa(pos, size, basedrc, turnangle, forkangle){
	if(size <= 0){ return; }
	var hcdrc = []; // 葉柄及び葉軸の角度。
	growdirection(basedrc, turnangle, forkangle, hcdrc)
	var hnmax = ' + arylen(HKAry) + ';
	var hn, wh, wv, hcpos = [], h1pos = [], h2pos = [];
	CTX.lineWidth = size;
	for(hn = 0; hn <= hnmax; hn++){
		// 葉柄及び葉の中心線の位置。
		hcpos["x"] = pos["x"] + size * hn * sind(hcdrc["h"]) * cosd(hcdrc["v"]);
		hcpos["y"] = pos["y"] + size * hn * sind(hcdrc["v"]);
		// 葉の幅の両端の位置。
		if(' + param_value("芽出態")+ ' <= 2){
			// 葉が互生や対生の樹は葉面が上を向く傾向。但しやりすぎると皆線状になりおもしろくない。
			wh = size * (HKAry[hn]-1)/2 * cosd(turnangle) * cosd(basedrc["h"]);
			wv = size * (HKAry[hn]-1)/2 * sind(turnangle) * cosd(basedrc["v"]) * 0.5;
		}
		else{
			// 葉面は枝先を向く。
			wh = size * (HKAry[hn]-1)/2 * cosd(turnangle) * cosd(basedrc["h"]);
			wv = size * (HKAry[hn]-1)/2 * sind(turnangle) * cosd(basedrc["v"]);
		}
		// 線の寸法が小さいと何も描かないブラウザあり。0.1あれば問題ないようだ。
		if(Math.abs(wh) < 0.1){ wh = wh < 0 ? -0.1 : 0.1; }
		if(Math.abs(wv) < 0.1){ wv = wv < 0 ? -0.1 : 0.1; }
		h1pos["x"] = hcpos["x"] - wh;
		h2pos["x"] = hcpos["x"] + wh;
		h1pos["y"] = hcpos["y"] + wv;
		h2pos["y"] = hcpos["y"] - wv;
		CTX.beginPath();
		CTX.moveTo(h1pos["x"], ('+SCRN_Height+'-h1pos["y"]));
		CTX.lineTo(h2pos["x"], ('+SCRN_Height+'-h2pos["y"]));
		CTX.closePath();
		CTX.strokeStyle = GSC_MainColor[G_Num]; CTX.fillStyle = GSC_SubColor[G_Num];
		CTX.globalAlpha = GSC_MainOpacity[G_Num];
		CTX.stroke();
	}
}

// 元枝からturnangle方向に分枝角forkangleで分枝した枝の角度をnewdrcに返す。
// これはCALCのコードと全く同じものをjavascriptに登録。
function growdirection(basedrc, turnangle, forkangle, newdrc){
	// 三次元座標を求める。
	var bdh = basedrc["h"], bdv = basedrc["v"];
	var x, y, z; // x:左右(右+)、y:上下(上+)、z:前後(手前+)。
	x = cosd(forkangle)*sind(bdh)*cosd(bdv)
	+ sind(forkangle)*sind(turnangle)*cosd(bdh)
	+ sind(forkangle)*cosd(turnangle)*sind(bdh)*sind(bdv);
	y = cosd(forkangle)*sind(bdv)
	- sind(forkangle)*cosd(turnangle)*cosd(bdv);
	z = cosd(forkangle)*cosd(bdh)*cosd(bdv)
	- sind(forkangle)*sind(turnangle)*sind(bdh)
	+ sind(forkangle)*cosd(turnangle)*cosd(bdh)*sind(bdv);
	// 角度に戻す。0割と計算誤差による範囲外を回避する必要がある。
	if(abs(x) < 0.001){ if(z >= 0){ newdrc["h"] = 0; }else{ newdrc["h"] = 180; } }
	else if(x > 0){ newdrc["h"] = 90-atand(z/x); }
	else{ newdrc["h"] = -90-atand(z/x); }
	if(y >= 1){ newdrc["v"] = 90; }else if(y <= -1){ newdrc["v"] = -90; }
	else{ newdrc["v"] = asind(y); }
}
');
}

// 元枝からturnangle方向に分枝角forkangleで分枝した枝の角度をnewdrcに返す。
// javascriptで葉っぱを描くコードにも同じものが登録されている。
// いきなり角度で計算するのはとてもわかりにくい。いったん三次元座標を求めて再度角度に直す。
function growdirection(basedrc, turnangle, forkangle, newdrc){
	// 三次元座標を求める。
	var bdh = basedrc["h"], bdv = basedrc["v"];
	var x, y, z; // x:左右(右+)、y:上下(上+)、z:前後(手前+)。
	x = cosd(forkangle)*sind(bdh)*cosd(bdv)
	+ sind(forkangle)*sind(turnangle)*cosd(bdh)
	+ sind(forkangle)*cosd(turnangle)*sind(bdh)*sind(bdv);
	y = cosd(forkangle)*sind(bdv)
	- sind(forkangle)*cosd(turnangle)*cosd(bdv);
	z = cosd(forkangle)*cosd(bdh)*cosd(bdv)
	- sind(forkangle)*sind(turnangle)*sind(bdh)
	+ sind(forkangle)*cosd(turnangle)*cosd(bdh)*sind(bdv);
	// 角度に戻す。0割と計算誤差による範囲外を回避する必要がある。
	if(abs(x) < 0.001){ if(z >= 0){ newdrc["h"] = 0; }else{ newdrc["h"] = 180; } }
	else if(x > 0){ newdrc["h"] = 90-atand(z/x); }
	else{ newdrc["h"] = -90-atand(z/x); }
	if(y >= 1){ newdrc["v"] = 90; }else if(y <= -1){ newdrc["v"] = -90; }
	else{ newdrc["v"] = asind(y); }
}

// 木の成長曲線としてゴンペルツ成長曲線(修正)を使う。
// 成木年でほぼ0.7の値になる。成長に応じて0から1+αの間の数値を返す。
function total_grow(age){ // age:現在の樹齢。
	// ゴンペルツ式は老木になるとほぼ完全に成長が止まる(動物用？)。
	// 老木になっても少しづつ成長するよう基礎成長率を加える。
	// 係数はそこそこ妥当そうなとこで決めた。本当は樹種によって違うかもしれないが。
	var x = age / AdultAge;
	return (0.05**exp(-2.0 * x) - 0.05) / 0.95 + 0.05 * x;
}

// 木の成長割合。成長曲線より樹齢fromageからtoage年間に成長した割合を返す。
function partial_grow(fromage, toage){
	return total_grow(toage)-total_grow(fromage);
}

// パラメータの[標準値, 最小値, 最大値]に乱数による偶然性を加味して数値を決める。
function param_value(pname){
	var standard, lower, upper;
	// おかしな値が指定されたら標準値をそのまま返す。標準値が数値解釈できない場合エラー停止。
	if((standard = (float)param[pn[pname]][0]) === error){
		if(ptitle[pn[pname]]){ println('\n'+ptitle[pn[pname]]+'の標準値が数値として解釈できません：'+param[pn[pname]][0]+''); }
		else{ println('\n標準値が数値として解釈できません：'+param[pn[pname]][0]+''); }
		exit;
	}
	if((lower = (float)param[pn[pname]][1]) === error){ return standard; }
	if((upper = (float)param[pn[pname]][2]) === error){ return standard; }
	return haply_value(standard, lower, upper, 0.5);
}

// [標準値, 最小値, 最大値]に乱数による偶然性を加味して数値を決める。
// 標準値はほぼ最も出現確率の高い値。comcentrationは標準値への集中度(>=0)。
function haply_value(standard, lower, upper, concentration=1){
	// おかしな値が指定されたら標準値をそのまま返す。
	if(lower > upper || concentration < 0){ return standard; }
	// 標準値が範囲を外れて指定されたら標準値を外れた側の範囲値に修正。
	if(standard < lower){ standard = lower; }else if(standard > upper){ standard = upper; }
	// 中心値0、範囲±1で中心値密度の高い分布をrandomで作成する。
	// 正規分布は範囲外の値の処理に難があったので使わない。
	var value = (2*random()-1) * random()**concentration; // 最初の1個だけに符号必要。
	// 分布の範囲と位置を調整。
	if(value < 0){ value *= (standard - lower); }
	else{ value *= (upper - standard); }
	value += standard;
	return value;
}

// 入力テーブルを作成し入力を配列として得る。得られる配列の要素は文字列。
// clms:項目数、rows:行数、input_aryに答え、ctitle_ary:項目タイトル、ptitle_ary:行タイトル。
// input_aryに値が設定されていれば初期値として入力欄に挿入される。
function table_input(clms, rows, input_ary, ctitle_ary=null, ptitle_ary=null){
	var tinum = time();
	var printstr, rn, cn, preval;
	var correct = false, corrected = false;
	printstr = '<table id="INTABL'+tinum+'" style="margin:4px;max-width:100%;border:2px solid gray;font-family:monospace;">';
	for(rn = 0; rn <= rows; rn++){
		if(rn == 0 && isarray(ctitle_ary) < 1){ continue; }
		printstr += '<tr>';
		for(cn = 0; cn <= clms; cn++){
			if(cn == 0 && isarray(ptitle_ary) < 1){ continue; }
			if(rn == 0){
				if(cn == 1){
					printstr += '<td style="border:1px solid gray;border-bottom:2px solid gray;padding:0px 2px;text-align:center;color:blue;font-weight:bold;white-space:nowrap;">';
				}
				else{
					printstr += '<td style="border:1px solid gray;border-bottom:2px solid gray;padding:0px 2px;text-align:center;color:blue;white-space:nowrap;">';
				}
				if(isarray(ctitle_ary) >= 1 && ctitle_ary[cn]){ printstr += ctitle_ary[cn]; }
				else{ printstr += ' '; }
				printstr += '</td>';
			}
			else if(cn == 0){
				printstr += '<td style="border:1px solid gray;padding:0px 4px;color:blue;white-space:nowrap;">';
				if(isarray(ptitle_ary) >= 1 && ptitle_ary[rn-1]){ printstr += ptitle_ary[rn-1]; }
				else{ printstr += ' '; }
				printstr += '</td>';
			}
			else if(ptitle_ary[rn-1] == "葉形状" || ptitle_ary[rn-1] == "葉色枝先" || ptitle_ary[rn-1] == "葉色枝元"){ //// 特殊要素。
				if(cn == 1){
					preval = input_ary[rn-1][cn-1];
					printstr += '<td colspan="3" id="TD'+tinum+'_'+rn+'_'+cn+'" style="border:1px solid gray;padding:0px 2px;text-align:center;font-weight:bold;white-space:nowrap;">';
					printstr += '<input id="IN_'+rn+'_'+cn+'" type="text" value="'+preval+'" autocomplete="off" style="width:100%;margin:0;border:none;padding:0;text-align:center;font-weight:bold;font-family:inherit;font-size:inherit;" />';
					printstr += '</td>';
				}
			}
			else{
				preval = "";
				if(isarray(input_ary[rn-1]) >= 1 && (input_ary[rn-1][cn-1] || input_ary[rn-1][cn-1] === 0)){
					preval = input_ary[rn-1][cn-1];
				}
				if(cn == 1){ // 標準値。太字にする。
					printstr += '<td id="TD'+tinum+'_'+rn+'_'+cn+'" style="min-width:80px;border:1px solid gray;padding:0px 2px;text-align:center;font-weight:bold;white-space:nowrap;">';
					printstr += '<input id="IN_'+rn+'_'+cn+'" type="text" value="'+preval+'" autocomplete="off" style="width:80px;margin:0;border:none;padding:0;text-align:center;font-weight:bold;font-family:inherit;font-size:inherit;" />';
					printstr += '</td>';
				}
				else{ // それ以外。
					printstr += '<td id="TD'+tinum+'_'+rn+'_'+cn+'" style="min-width:80px;border:1px solid gray;padding:0px 2px;text-align:center;white-space:nowrap;">';
					printstr += '<input id="IN_'+rn+'_'+cn+'" type="text" value="'+preval+'" autocomplete="off" style="width:80px;margin:0;border:none;padding:0;text-align:center;font-family:inherit;font-size:inherit;" />';
					printstr += '</td>';
				}
			}
		}
		if(rn == 0){ printstr += '<td style="border:1px solid gray;border-bottom:2px solid gray;padding:0px 2px;text-align:center;color:blue;">備考'; }
		else{ printstr += '<td style="border:1px solid gray;font-size:90%;color:blue;padding:0px 4px;">'; }
		if(isarray(pinfo) >= 1 && pinfo[rn-1]){ printstr += pinfo[rn-1]; }
		printstr += '</td>';
		printstr += '</tr>';
	}
	printstr += '</table>';
	print(printstr);
	jseval('document.getElementById("IN_1_1").selectionStart = document.getElementById("IN_1_1").value.length;');
	jseval('document.getElementById("IN_1_1").selectionEnd = document.getElementById("IN_1_1").value.length;');
	jseval('document.getElementById("IN_1_1").focus();');
	print(' => <input id="SUBMIT'+tinum+'" type="button" value="入力完了" style="cursor:pointer;" onclick="putinput(\'\');" />');
	secretinput('');
	var value = [];
	for(rn = 1; rn <= rows; rn++){
		if(isarray(input_ary[rn-1]) < 1){ input_ary[rn-1] = new []; }
		for(cn = 1; cn <= clms; cn++){
			if(cn > 1 && (ptitle_ary[rn-1] == "葉形状" || ptitle_ary[rn-1] == "葉色枝先" || ptitle_ary[rn-1] == "葉色枝元")){ continue; } //// 特殊要素。
			value[cn] = trim(jseval('document.getElementById("IN_'+rn+'_'+cn+'").value;'));
			if((float)value[cn] !== error){ // 値が数値なら数値範囲をチェック。
				value[cn] = (float)value[cn];
				if(cn == 2 && value[cn] > value[1]){ // 下限がはずれたら勝手に修正。
					value[cn] = value[1]; correct = corrected = true;
				}
				if(cn == 3 && value[cn] < value[1]){ // 上限がはずれたら勝手に修正。
					value[cn] = value[1]; correct = corrected = true;
				}
			}
			input_ary[rn-1][cn-1] = (string)value[cn];
			jseval('document.getElementById("TD'+tinum+'_'+rn+'_'+cn+'").style.width = document.getElementById("TD'+tinum+'_'+rn+'_'+cn+'").getBoundingClientRect().width+"px";');
			if(correct){ jseval('document.getElementById("TD'+tinum+'_'+rn+'_'+cn+'").style.color = "red";'); correct = false; }
			jseval('document.getElementById("TD'+tinum+'_'+rn+'_'+cn+'").innerHTML = "'+value[cn]+'";');
		}
	}
	jseval('document.getElementById("INTABL'+tinum+'").style.background = "#F0F0F0";');
	jseval('document.getElementById("SUBMIT'+tinum+'").disabled = true;');
	jseval('document.getElementById("SUBMIT'+tinum+'").style.cursor = "default";');
	if(corrected){ print(':上限あるいは下限値の外れたものがあったので勝手に修正しちゃいました。'); }
	println();
}

// 樹木パラメータの定義。樹種名を指定。
function settree(name){
	switch(name){
		default :
			param[pn."樹高"]       = [10.7, null, null];
			param[pn."樹幅"]       = [0.4, null, null];
			param[pn."樹径"]       = [1.0, null, null];
			param[pn."芽出態"]     = [2,   null, null];
			param[pn."葉数"]       = [8,  null, null];
			param[pn."葉形状"]     = ["1,4,7,9,9,7,5,3,1"];
			param[pn."葉寸法"]     = [1.0, null, null];
			param[pn."葉間隔"]     = [0.7, null, null];
			param[pn."葉色枝先"]   = ["'r':0, 'g':160, 'b':0"];
			param[pn."葉色枝元"]   = ["'r':0, 'g':120, 'b':0"];
			param[pn."若枝分枝度"] = [1.5, null, null];
			param[pn."古枝分枝度"] = [1.0, null, null];
			param[pn."分枝角"]     = [45,  null, null];
			param[pn."枝開き"]     = [2,   null, null];
			param[pn."枝向き"]     = [-2,   null, null];
			param[pn."下垂性"]     = [3,   null, null];
			param[pn."枝上り"]     = [3,   null, null];
			param[pn."直幹性"]     = [5,   null, null];
			param[pn."成木年"]     = [30,  null, null];
			param[pn."樹齢"]       = [68,  null, null];
			EdaIro = ["r":128, "g": 128, "b":128];
			break;

// 松の形態は非常に幅広く縦に伸びるもの横に広がるもの等いろいろ。
		// 遺伝的要素が強いと思われるが詳しいことはわからない。
		case "庭園の松" :
			param[pn."樹高"]       = [0.8, null, null];
			param[pn."樹幅"]       = [0.35, null, null];
			param[pn."樹径"]       = [1.2, null, null];
			param[pn."芽出態"]     = [5,   null, null];
			param[pn."葉数"]       = [15,  null, null];
			param[pn."葉形状"]     = ["1,1,1,1,1,1,1,1,1,1,1,1,1,1,1"];
			param[pn."葉寸法"]     = [0.6, null, null];
			param[pn."葉間隔"]     = [0.3, null, null];
			param[pn."葉色枝先"]   = ["'r':40, 'g':160, 'b':0"];
			param[pn."葉色枝元"]   = ["'r':20, 'g':120, 'b':0"];
			param[pn."若枝分枝度"] = [2.0, null, null];
			param[pn."古枝分枝度"] = [1.3, null, null];
			param[pn."分枝角"]     = [45,  null, null];
			param[pn."枝開き"]     = [3,   null, null];
			param[pn."枝向き"]     = [5,   null, null];
			param[pn."下垂性"]     = [9,   null, null];
			param[pn."枝上り"]     = [3,   null, null];
			param[pn."直幹性"]     = [3,   null, null];
			param[pn."成木年"]     = [30,  null, null];
			param[pn."樹齢"]       = [68,  null, null];
			EdaIro = ["r":160, "g": 128, "b":128];
			break;

case "盆栽の松(傘松仕立て)" :
			param[pn."樹高"]       = [0.5, null, null];
			param[pn."樹幅"]       = [1.0, null, null];
			param[pn."樹径"]       = [2.0, null, null];
			param[pn."芽出態"]     = [5,   null, null];
			param[pn."葉数"]       = [7,   null, null];
			param[pn."葉形状"]     = ["1,1,1,1,1,1,1,1,1,1,1,1,1,1,1"];
			param[pn."葉寸法"]     = [0.6, null, null];
			param[pn."葉間隔"]     = [0.3, null, null];
			param[pn."葉色枝先"]   = ["'r':40, 'g':160, 'b':0"];
			param[pn."葉色枝元"]   = ["'r':20, 'g':120, 'b':0"];
			param[pn."若枝分枝度"] = [2.5, null, null];
			param[pn."古枝分枝度"] = [2.0, null, null];
			param[pn."分枝角"]     = [45,  null, null];
			param[pn."枝開き"]     = [0,   null, null];
			param[pn."枝向き"]     = [3,   null, null];
			param[pn."下垂性"]     = [5,   null, null];
			param[pn."枝上り"]     = [3,   null, null];
			param[pn."直幹性"]     = [6,   null, null];
			param[pn."成木年"]     = [15,  null, null];
			param[pn."樹齢"]       = [30,  null, null];
			EdaIro = ["r":160, "g": 128, "b":128];
			break;

// 花は葉っぱの色を白に変えてごまかしている。
		case "湯島の白梅" :
			param[pn."樹高"]       = [0.6, null, null];
			param[pn."樹幅"]       = [0.8, null, null];
			param[pn."樹径"]       = [1.0, null, null];
			param[pn."芽出態"]     = [0.5, null, null];
			param[pn."葉数"]       = [5,   null, null];
			param[pn."葉形状"]     = ["5,9,9,9,5"];
			param[pn."葉寸法"]     = [0.8, null, null];
			param[pn."葉間隔"]     = [2,   null, null];
			param[pn."葉色枝先"]   = ["'r':255, 'g':240, 'b':240"];
			param[pn."葉色枝元"]   = ["'r':240, 'g':240, 'b':240"];
			param[pn."若枝分枝度"] = [0.8, null, null];
			param[pn."古枝分枝度"] = [0.5, null, null];
			param[pn."分枝角"]     = [45,  null, null];
			param[pn."枝開き"]     = [0,   null, null];
			param[pn."枝向き"]     = [3,   null, null];
			param[pn."下垂性"]     = [3,   null, null];
			param[pn."枝上り"]     = [2,   null, null];
			param[pn."直幹性"]     = [1,   null, null];
			param[pn."成木年"]     = [30,  null, null];
			param[pn."樹齢"]       = [150, null, null];
			EdaIro = ["r":128, "g": 128, "b":128];
			break;

// 花は葉っぱの色をピンクに変えてごまかしている。
		case "旧家のしだれ桜" :
			param[pn."樹高"]       = [0.8, null, null];
			param[pn."樹幅"]       = [1.0, null, null];
			param[pn."樹径"]       = [1.0, null, null];
			param[pn."芽出態"]     = [3,   1,    3];
			param[pn."葉数"]       = [30,  null, null];
			param[pn."葉形状"]     = ["3,5,7,9,9,7,5,3"];
			param[pn."葉寸法"]     = [0.6, null, null];
			param[pn."葉間隔"]     = [1.0, null, null];
			param[pn."葉色枝先"]   = ["'r':255, 'g':200, 'b':200"];
			param[pn."葉色枝元"]   = ["'r':240, 'g':180, 'b':180"];
			param[pn."若枝分枝度"] = [1.8, null, null];
			param[pn."古枝分枝度"] = [1.5, null, null];
			param[pn."分枝角"]     = [45,  null, null];
			param[pn."枝開き"]     = [0,   null, null];
			param[pn."枝向き"]     = [-8,  null, null];
			param[pn."下垂性"]     = [3,   null, null];
			param[pn."枝上り"]     = [4,   null, null];
			param[pn."直幹性"]     = [3,   null, null];
			param[pn."成木年"]     = [50,  null, null];
			param[pn."樹齢"]       = [68,  null, null];
			EdaIro = ["r":128, "g": 128, "b":128];
			break;

case "銀座の柳" :
			param[pn."樹高"]       = [0.7, null, null];
			param[pn."樹幅"]       = [0.4, null, null];
			param[pn."樹径"]       = [1.0, null, null];
			param[pn."芽出態"]     = [1,   null, null];
			param[pn."葉数"]       = [20,  null, null];
			param[pn."葉形状"]     = ["1,1,2,2,2,2,2,2,1"];
			param[pn."葉寸法"]     = [1.0, null, null];
			param[pn."葉間隔"]     = [0.5, null, null];
			param[pn."葉色枝先"]   = ["'r':0, 'g':180, 'b':0"];
			param[pn."葉色枝元"]   = ["'r':0, 'g':140, 'b':0"];
			param[pn."若枝分枝度"] = [1.0, null, null];
			param[pn."古枝分枝度"] = [0.6, null, null];
			param[pn."分枝角"]     = [30,  null, null];
			param[pn."枝開き"]     = [0,  null, null];
			param[pn."枝向き"]     = [-10,  null, null];
			param[pn."下垂性"]     = [5,   null, null];
			param[pn."枝上り"]     = [4,   null, null];
			param[pn."直幹性"]     = [5,   null, null];
			param[pn."成木年"]     = [20,  null, null];
			param[pn."樹齢"]       = [68,  null, null];
			EdaIro = ["r":128, "g": 128, "b":128];
			break;

case "けやき公園のケヤキ" :
			param[pn."樹高"]       = [0.8, null, null];
			param[pn."樹幅"]       = [0.5, null, null];
			param[pn."樹径"]       = [1.0, null, null];
			param[pn."芽出態"]     = [1,   null, null];
			param[pn."葉数"]       = [8,   null, null];
			param[pn."葉形状"]     = ["1,1,3,5,5,3,2,1"];
			param[pn."葉寸法"]     = [1.0, null, null];
			param[pn."葉間隔"]     = [0.4, null, null];
			param[pn."葉色枝先"]   = ["'r':0, 'g':180, 'b':0"];
			param[pn."葉色枝元"]   = ["'r':0, 'g':140, 'b':0"];
			param[pn."若枝分枝度"] = [1.1, null, null];
			param[pn."古枝分枝度"] = [0.8, null, null];
			param[pn."分枝角"]     = [45,  null, null];
			param[pn."枝開き"]     = [-4,  null, null];
			param[pn."枝向き"]     = [-4,   null, null];
			param[pn."下垂性"]     = [5,   null, null];
			param[pn."枝上り"]     = [2,   null, null];
			param[pn."直幹性"]     = [8,   null, null];
			param[pn."成木年"]     = [30,  null, null];
			param[pn."樹齢"]       = [68,  null, null];
			EdaIro = ["r":128, "g": 128, "b":128];
			break;

case "冬枯れのケヤキ" :
			param[pn."樹高"]       = [0.8, null, null];
			param[pn."樹幅"]       = [0.5, null, null];
			param[pn."樹径"]       = [1.0, null, null];
			param[pn."芽出態"]     = [1,   null, null];
			param[pn."葉数"]       = [8,   null, null];
			param[pn."葉形状"]     = ["1,1,3,5,5,3,2,1"];
			param[pn."葉寸法"]     = [-1.0, null, null];
			param[pn."葉間隔"]     = [0.4, null, null];
			param[pn."葉色枝先"]   = ["'r':0, 'g':180, 'b':0"];
			param[pn."葉色枝元"]   = ["'r':0, 'g':140, 'b':0"];
			param[pn."若枝分枝度"] = [1.1, null, null];
			param[pn."古枝分枝度"] = [0.8, null, null];
			param[pn."分枝角"]     = [45,  null, null];
			param[pn."枝開き"]     = [-4,  null, null];
			param[pn."枝向き"]     = [4,   null, null];
			param[pn."下垂性"]     = [5,   null, null];
			param[pn."枝上り"]     = [2,   null, null];
			param[pn."直幹性"]     = [8,   null, null];
			param[pn."成木年"]     = [30,  null, null];
			param[pn."樹齢"]       = [68,  null, null];
			EdaIro = ["r":128, "g": 128, "b":128];
			break;

// 花は葉っぱの色を赤に変えてごまかしている。
		case "山寺のもみぢ" :
			param[pn."樹高"]       = [0.7, null, null];
			param[pn."樹幅"]       = [1.0, null, null];
			param[pn."樹径"]       = [1.0, null, null];
			param[pn."葉形状"]     = ["1,1,7,9,9,7"];
			param[pn."芽出態"]     = [2,   null, null];
			param[pn."葉数"]       = [12,  null, null];
			param[pn."葉寸法"]     = [1.0, null, null];
			param[pn."葉間隔"]     = [1.0, null, null];
			param[pn."葉色枝先"]   = ["'r':255, 'g':40, 'b':20"];
			param[pn."葉色枝元"]   = ["'r':200, 'g':130, 'b':20"];
			param[pn."若枝分枝度"] = [1.5, null, null];
			param[pn."古枝分枝度"] = [1.2, null, null];
			param[pn."分枝角"]     = [45,  null, null];
			param[pn."枝開き"]     = [2,   null, null];
			param[pn."枝向き"]     = [-3,  null, null];
			param[pn."下垂性"]     = [3,   null, null];
			param[pn."枝上り"]     = [4,   null, null];
			param[pn."直幹性"]     = [0,   null, null];
			param[pn."成木年"]     = [30,  null, null];
			param[pn."樹齢"]       = [100, null, null];
			EdaIro = ["r":128, "g": 128, "b":128];
			break;

case "峠の一本杉" :
			param[pn."樹高"]       = [0.8, null, null];
			param[pn."樹幅"]       = [0.2, null, null];
			param[pn."樹径"]       = [1.0, null, null];
			param[pn."芽出態"]     = [5,   null, null];
			param[pn."葉数"]       = [8,   null, null];
			param[pn."葉形状"]     = ["3,3,3,3,2,2,1,1"];
			param[pn."葉寸法"]     = [1.0, null, null];
			param[pn."葉間隔"]     = [0.6, null, null];
			param[pn."葉色枝先"]   = ["'r':0, 'g':160, 'b':0"];
			param[pn."葉色枝元"]   = ["'r':0, 'g':100, 'b':0"];
			param[pn."若枝分枝度"] = [3.0, null, null];
			param[pn."古枝分枝度"] = [2.5, null, null];
			param[pn."分枝角"]     = [30,  null, null];
			param[pn."枝開き"]     = [3,   null, null];
			param[pn."枝向き"]     = [1,   null, null];
			param[pn."下垂性"]     = [9,   null, null];
			param[pn."枝上り"]     = [2,   null, null];
			param[pn."直幹性"]     = [9.8,   null, null];
			param[pn."成木年"]     = [50,  null, null];
			param[pn."樹齢"]       = [100, null, null];
			EdaIro = ["r":128, "g": 128, "b":128];
			break;

// 花は葉っぱの色をピンクに変えてごまかしている。
		case "花水木" :
			param[pn."樹高"]       = [0.7, null, null];
			param[pn."樹幅"]       = [0.6, null, null];
			param[pn."樹径"]       = [1.0, null, null];
			param[pn."芽出態"]     = [4,   null, null];
			param[pn."葉数"]       = [4,   null, null];
			param[pn."葉形状"]     = ["1,4,7,9,9,7,4"];
			param[pn."葉寸法"]     = [0.8, null, null];
			param[pn."葉間隔"]     = [1.0, null, null];
			param[pn."葉色枝先"]   = ["'r':240, 'g':120, 'b':160"];
			param[pn."葉色枝元"]   = ["'r':240, 'g':120, 'b':120"];
			param[pn."若枝分枝度"] = [3.0, null, null];
			param[pn."古枝分枝度"] = [0.8, null, null];
			param[pn."分枝角"]     = [45,  null, null];
			param[pn."枝開き"]     = [0,   null, null];
			param[pn."枝向き"]     = [10,  null, null];
			param[pn."下垂性"]     = [7,   null, null];
			param[pn."枝上り"]     = [4,   null, null];
			param[pn."直幹性"]     = [3,   null, null];
			param[pn."成木年"]     = [10,  null, null];
			param[pn."樹齢"]       = [30,  null, null];
			EdaIro = ["r":128, "g": 128, "b":128];
			break;
	}
}

<!DOCTYPE html>
<html lang="ja">
<head>
<meta charset="utf-8" />
<style type="text/css"></style>
<title>CalcPad Information</title>
</head><body style="background:#EEE;">
<div class="center">CalcPadのご案内</div>
◆ 概要 ◆ 
「計算用紙 CalcPad」(以下CALCと略)は気軽な計算などに軽く使えるよう作成したC言語類似の簡単なインタプリタです。 
使い方はごく簡単で、ページ上部のPROGRAM窓にプログラムを書き、あるいは読み込み、そのすぐ下の[実行]ボタンで実行させます。 
その下のCONSOLE窓で実行の入出力、あるいはグラフィックの描画などを行います。 
 
もともと計算主体で作り始めたものですが、数値は複素数が使えるように拡張しさらには高制度計算もできるようにしてあり、変数、配列、関数、基礎的な制御構造なども使えます。グラフィック機能もありSVGとcanvasを使って簡単なグラフや絵などを描くことができます。 
CALCでは初期の構造化言語の基本機能はほぼ実装しており、プログラムを書いてすぐにその場で実行できますので、ちょっとした仕事の計算、遊びやプログラミングの勉強などには充分使えます。

以下、言語の概略説明です。

◆ 数値 ◆ 
数値は整数、浮動小数点数、複素数(虚数単位として"i"または"j")が使えます。整数はさらに通常の10進数表記のほかに2進数(例:%1101)、8進数(例:036)、16進数(例:0x3F)などの表記ができます。

◆ 常数 ◆ 
常数としてp,PI:円周率 通称パイ(3.14159...)、e:自然対数の底(2.71828...)、true:真偽値の真、false:真偽値の偽、null:値なし、error:一部の演算子や関数がエラー通知に返す値、void:無効な(使えない)値(未定義、不定、ゴミ値など)、undefined:定義されていない値 が組み込まれています。

◆ 文字列 ◆ 
文字列は''または""で囲って表現します。文字列とコメントは内部に日本語を使うことができます。特殊文字として、\(改行):改行打ち消し、\\:\そのもの、\0:ヌル文字、\b:バックスペース、\t:タブ、\n:改行、\f:フォームフィード、\r:復帰、\':シングルクオート、\":ダブルクオート、\xhh:16進コードhhの文字 が定義されています。

◆ 変数 ◆ 
変数の宣言の書式は キーワード 変数名[=値], ... ; の形で"=値"はconst宣言およびstatic宣言以外ではなくてもかまいません。 
変数の値の型は内容に応じて自動的に設定されます。変数宣言は通常初期化時(static変数やconst常数)あるいは実行時(var変数)に登録されますが、実際に値が代入されて有効になります。 変数名に使用できる文字はアルファベット、数字、アンダスコア("_")ですが、頭はアルファベットまたは"_"で数字は除かれます。 変数名には制御用の語句(ifとかforとかいわゆる予約語)、その他組込の常数名や関数名などは使用できません。また最終的にはjavascriptで処理する場合もありえますのでjavascriptで意味をもつ語も使わないほうが安全です。 変数のスコープは、実行側(function宣言された)関数の引数や関数内でのみ使われる変数および関数内でglobal以外で宣言された変数は関数内ローカル変数となり、通常その関数内とその関数内で定義された関数内でのみ参照できます。それ以外の変数の検索は関数内から順次上位の関数、トップレベルへと行われます。 変数宣言は 宣言キーワード 変数名[=値], ... ; の形で以下のキーワードが使えます。 ●global: 関数内からグローバル変数を参照します。globalに加えvarやconstなどの宣言をするか"="で値を指定すればグローバル領域に変数がなければ作られますが、関数内からグローバル変数をつくった場合その所有権は関数を離れエラー検知や制御等が充分できません。関数を再定義したり復数の関数で同じ変数を宣言したりするとバグの原因になりやすいです。 ●static: 静的変数を宣言します。globalをつければ広域、なしで関数内なら局所変数になります。初期値の設定は変数の作成時(通常プログラム初期化時)に一回だけ行われます。すなわち同じ変数名のstatic変数の初期化を複数書いても有効な初期化は一つだけです。宣言時に"="で有効な値を指定する必要があります。いったん作成されたstatic変数はvarで再宣言するとか、delete()で関数ごとそっくり、あるいは個々に消去される場合を除き、関数が再実行されたりあるいは再定義されたり再初期化されても変数と値はそのまま残ります。 ●const: 常数の作成を宣言します。必ず宣言時に"="で有効な値を指定してください。以後var等で再宣言しない限り値の変更はできません。 ●var: 型可変型変数の作成を宣言します。なくても新しい変数名に値を代入すれば変数が作られますが最初に書いておくとわかりやすいですし、うっかりすでにあるグローバル変数と混同してしまう等のバグが避けられます。 その他キーワードとしてint, float, complex, string, booleanが使えますがこれらは現在はvarと同じ扱いになります(将来的には型指定型変数を導入しようなどと当初は考えていましたが...)。覚えの意味で使うなら問題ありません。 これらの宣言の属性は変数が新たな変数に代入されても必ずしも継承はされません。 変数の宣言についてはjavascript同様の宣言巻き上げを設定してありますので変数を使うところで都度宣言しても良いのですが、たよりにするとバグのもとになるかもしれません。変数宣言はなるべく関数の最初にやるようにしましょう。 関数の内部変数は実は関数実行終了後もそのまま残っており、メンバーアクセス演算子"."を使って fncname.varname の形でアクセスできます。 また宣言は組み合わせて使うこともできますが、関数の内外や宣言場所含めてすべての組み合わせについて確実に確認したわけでもありません。

◆ 配列 ◆ 
配列も定義できます。書式は、配列名 = [値1, 値2, ...]; もしくは、配列名 = array(値1, 値2, ...);で、キーは指定しなければ0から初期化されます。ary=[[1,2,..],[3,4,..],..];などとして配列の中に配列を入れるのも可能です。[]内または()内は別途キー(必要なら)と値を定義するなら空でもかまいません。値のところは キー => 値, あるいは キー : 値, としてキーと値を指定することも可能です。キーは0か正の整数、もしくは"."を含まない文字列(できるだけ名前文字に準じる)です。 配列要素の追加あるいは変更は 配列名[キー(空なら自動)] = 値; で行います。配列や配列要素の削除にはdelete()をお使いください。配列名はC言語と同じく常に参照値であり、オブジェクトとするjavascriptとは少し異なります。すなわち配列を別の変数に 代入演算子"=" で代入した場合や関数の引数として渡した場合、値のコピーではなく配列への参照値が渡されますので受け渡し先で要素を書き換えると元の配列が書き換わります。そうしたくない場合はなるべく最後のほうで "copy"を使って参照を解除してください。配列を再定義した場合は前の配列は自動的に消去されます。

◆ 関数 ◆ 
function f(...){...}の形で関数を定義できます。定義には必ずfunction宣言が必要で()や{}は省略できません。実行はf(...)の形で行います。 関数については最後の方に少し詳しく書いてありますのでそれを参照してください。

◆ 制御構造 ◆ 
単純な文(式;)のほかに、制御構造(制御文)として if-else, for、foreach, while, do-while, switch-case, break, continue, return, exit および複合文{ } が使えます。使い方はC言語より派生した多くの言語と同じですので、ごくごく簡単な説明にとどめます。{ 実行式;... }の部分はswitch-caseを除き実行式;が１つだけならば無理に{}はいりませんが書いておいた方がわかりやすいです。 
 <table width="100%" style="border:1px solid gray"><tbody>
 <tr style="border-top:1px solid gray"><td colspan="2">if(条件式){ 実行式１;... }else{ 実行式２;... }</td></tr><tr><td>……</td><td>条件式が真のとき{ 実行式１;... }、偽のとき{ 実行式２;... }を実行します。条件式は省略できません。elseに続いてifを記述するときはelse ifと区切ってください(elseifとかelifというのは使えません)。</td></tr>
 <tr style="border-top:1px solid gray"><td colspan="2">for(初期化式; 条件式; 再初期化式){ 実行式;... }</td></tr><tr><td>……</td><td>最初初期化式を実行、続いて条件式が真なら{ 実行式;... }を実行、再初期化式を実行後再度条件式を評価し真なら再び{ 実行式;... }を実行、偽ならforは終わりとなります。forの初期化式、条件式、再初期化式は省略でき、条件式を省略した場合条件は真とみなされます。</td></tr>
 <tr style="border-top:1px solid gray"><td colspan="2">foreach(ary as [id =>] val){ 実行式;... }</td></tr><tr><td>……</td><td>配列aryの要素を順次valに取り出します(php方式です)。順番は制御できません。id => があればidに配列のインデックス(文字列)も取り出します。id, valは変数名であれば他の名前でもかまいません。配列の中の配列の値までは取り出しません。</td></tr>
 <tr style="border-top:1px solid gray"><td colspan="2">while(条件式){ 実行式;... }</td></tr><tr><td>……</td><td>条件式が真なら{ 実行式;... }を実行、偽ならwhileは終わりとなります。whileの条件式は省略できません。</td></tr>
 <tr style="border-top:1px solid gray"><td colspan="2">do{ 実行式;... }while(条件式);</td></tr><tr><td>……</td><td>無条件に一度{ 実行式;... }を実行、その後whileのあとの条件式を評価して真なら再度{ 実行式;... }を実行、偽ならdo-whileは終わりとなります。do-whileの条件式は省略できません。最後のwhile();の";"をお忘れなく。</td></tr>
 <tr style="border-top:1px solid gray"><td colspan="2">switch(比較値){ case 値1: 式1;...; case 値2: 式2;...; default: 式d;...; };</td></tr><tr><td>……</td><td>比較値を各caseのあとの値と比較し同値ならそのあとの式;から(最後まで)実行します。合う値がなければdefault:のあとから(最後まで)実行します。一部だけ実行するならbreak;で流れを止めます。switch文の比較値と{}は省略できません。</td></tr>
 <tr style="border-top:1px solid gray"><td colspan="2">break;</td></tr><tr><td>……</td><td>for, foreach, while, do-while, switch-caseで途中で処理を止めコントロールを抜けるのに使用します。</td></tr>
 <tr style="border-top:1px solid gray"><td colspan="2">continue;</td></tr><tr><td>……</td><td>for, foreach, while, do-whileの途中で以後の処理を止め、再判定して真なら再度ループを実行します。</td></tr>
 <tr style="border-top:1px solid gray"><td colspan="2">return 式;</td></tr><tr><td>……</td><td>関数内ならその関数を、そうでないならCALCを終了し式の値を返します。値を使わないなら式はなくてもかまいません。</td></tr>
 <tr style="border-top:1px solid gray"><td colspan="2">exit 式;</td></tr><tr><td>……</td><td>全体(CALC)の処理を終了(停止)し式の値を返します。式はなくてもかまいません。</td></tr>
 <tr style="border-top:1px solid gray"><td colspan="2">{式; 式; ...}</td></tr><tr><td>……</td><td>復数の文をまとめいわゆる複合文を形成します。あるいは制御構造や関数などの適合範囲を規定します。</td></tr>
 </tbody></table>
これらの文や制御構造についてはC言語、php、javascriptなどとほとんど同じですので、概略おわかりになると思います。

◆ 演算子 ◆ 
以下の演算子が使えます。優先度は数字の大きいほど(下のものほど)高くなります。こちらもC言語、php、javascriptなどとほとんど同じですので、詳しくはそちらの参考書などをご覧ください。
 <table style="width:100%;" class="border"><tbody>
 <tr><td>優先度</td><td>演算子</td><td>書式</td><td>結合性</td><td>説明</td></tr>
 <tr><td class="right">0</td><td>式の区切り</td><td>;</td><td class="left">左→</td><td>必ずしも演算子ではありませんが、式を区切っていわゆる文を形成します。式は空でもかまいません。CALCでは単純な文や制御文も値(概ね最後の実行結果)を返します(もともと式や文を書いて最後の結果を表示する計算用紙の動作を踏襲したため)。それでその値を式で使えないこともありませんが、その場合必ず文や制御構造をそっくり()で囲んで式の中に入れてください。()で囲わずそのまま入れますと式の処理が途中で中断されたりエラーになったり、場合によってはエラーにならずに式の結果がおかしな値になったりします。</td></tr>
 <tr><td class="right">1</td><td>順次演算子</td><td>,</td><td class="left">左→</td><td>左から右へ順次式を評価し、最後の式の値をその値とします。空(",,"や",;"など)は許されません。関数などの引数の区切りの","とはちがいます。</td></tr>
 <tr><td rowspan = "2" class="right">2</td><td>代入演算子 (単純代入)</td><td>=</td><td class="right">←右</td><td>変数(左辺値)に右辺値を代入します。数値及び文字列、論理値についてはその値が代入され、配列については配列への参照値が代入されます。配列の値そのものを代入したいなら 変数 = copy 配列名; とします。また関数名を変数に代入した場合実行コードのみが代入され、内部変数等は実行時に変数名所有で新しく作られます(同様に内部変数もコピーしたいなら 変数 = copy 関数名; とします)。</td></tr>
 <tr><td>代入演算子 (演算代入)</td><td class="nowrap">+=, *=, /=, %=, **=, |=, ^=, &=, <<=, >>=, >>>=</td><td class="right">←右</td><td>変数(左辺値)に左辺値を右辺値で演算した結果を代入します。演算代入の場合演算によっては値は整数型でなくてはならないなどの制限がありますが、これについては該当する演算を参考にしてください。"+="では少なくとも片方が文字列の場合は文字列連結、それ以外では数値演算されます。</td></tr>
 <tr><td class="right">3</td><td>三項演算子 (条件演算子)</td><td class="nowrap">a ? b : c</td><td class="right">←右</td><td>aが真ならb, 偽ならcを値とします。三項演算子の中にさらに三項演算子を入れる場合は極力()を使ってください。言語によって結合性が異なります。CALCでは a ? b : c ? d : f はC言語やJava,javascript等と同じく a ? b : (c ? d : f) として処理されます。</td></tr>
 <tr><td class="right">4</td><td>論理和</td><td>||</td><td class="left">左→</td><td>いずれかが真の値ならtrueを、すべて偽の値ならfalseを値とします。偽の値とは数値の0, 空文字列"", 空の配列[], 論理値のfalse, その他null, undefined(未定義), void, errorです。</td></tr>
 <tr><td class="right">5</td><td>論理積</td><td>&&</td><td class="left">左→</td><td>すべて真の値ならtrueを、いずれかが偽の値ならfalseを値とします。</td></tr>
 <tr><td class="right">6</td><td>ビットOR</td><td>|</td><td class="left">左→</td><td>ビットごとの論理和(少なくとも一方が1なら1、両方0なら0)をそのビットの値とします。整数にのみ適用できる演算です。</td></tr>
 <tr><td class="right">7</td><td>ビットXOR</td><td>^</td><td class="left">左→</td><td>ビットごとの排他的論理和(一方だけが1なら1、両方0か1なら0)をそのビットの値とします。整数にのみ適用できる演算です。</td></tr>
 <tr><td class="right">8</td><td>ビットAND</td><td>&</td><td class="left">左→</td><td>ビットごとの論理積(両方1なら1、少なくとも一方が0なら0)をそのビットの値とします。整数にのみ適用できる演算です。</td></tr>
 <tr><td class="right">9</td><td>等値比較</td><td class="nowrap">==, !=, ===, !==</td><td class="left">左→</td><td class="left">等しいか否かの比較演算を行い結果としてtrueまたはfalseを返します。===, !==は型が等しいか否かの判定も含めますが数値同士なら型は同じとみなされます。たとえば 0 === 0.0 は数値型が違っても型は同じとみなされ値が同じなので真、型比較をしない 0 == false はともに偽の値なので結果は真、 型比較をする 0 === false は型が違うので偽となります。その他型が違う場合の比較は実際やってみて確認してください("0"==false、"1"==1 など)。</td></tr>
 <tr><td class="right">10</td><td>大小比較</td><td class="nowrap">>, <, >=, <=</td><td class="center">なし</td><td class="left">大小の比較演算を行い結果としてtrueまたはfalseを返します。=がある場合は同値も含めます。実数のみに適用でき複素数には適用できません。</td></tr>
 <tr><td class="right">11</td><td class="nowrap">ビットシフト</td><td class="nowrap"><<, >>, >>></td><td class="left">左→</td><td>左辺の整数を右辺の整数分ビット移動します。<<は左、>>は右、>>>は符号なし整数扱いで右シフトします。左辺値は整数、右辺値は0から31の整数です。</td></tr>
 <tr><td class="right">12</td><td>加減算</td><td>+, -</td><td class="left">左→</td><td>算術演算の +:足し算、-:引き算です。それに加え + 演算は文字列の結合に使用します。右辺か左辺のいずれかが文字列の場合もう一方も文字列に変換され結合されます。</td></tr>
 <tr><td class="right">13</td><td>乗除算</td><td class="nowrap">*, /, %, *の省略形</td><td class="left">左→</td><td>算術演算の *:掛け算、/:割り算、%:剰余算です。加えて純粋な数値表現(変数,関数などと混同しないもの)あるいは括弧"(式)"に虚数単位iまたはjはもちろん、eやEの指数表現と混同しない変数名や括弧"(式)"が空白なしで続いたときは乗算記号"*"が省略されたものとみなしますが、数式計算のなごりですのでその点ご承知おきください。</td></tr>
 <tr><td class="right">15</td><td>符号</td><td>+, -</td><td class="right">←右</td><td>-で数値の正負を反転します。+では変わりませんが演算子の+や++と区別しにくくかえってわかりずらくなりますので+はつけない方がいいでしょう。</td></tr>
 <tr><td class="right">16</td><td>累乗</td><td>**</td><td class="right">←右</td><td>左辺値を右辺値で累乗した結果を返します。結合性は右結合(すなわち2**2**3は2**(2**3)で、64ではなく256)で、さらに符号より優先順位が高く-1**2は1ではなく-1です(数学記法に合わせたものです)。またこの演算子は言語によってかなり優先順位がちがうのでその点にもお気をつけください。関数pow()を使うのが確かかもしれません。</td></tr>
 <tr><td class="right">14</td><td>キャスト (型変換)</td><td class="nowrap">(int), (float) (complex), (real), (image), (img), (arg), (string), (str)</td><td class="right">←右</td><td>データの型を変換します。右辺値は数値もしくは純粋に数値を表す文字列です。文字列を数値に変換する場合に限りうまく変換できないときはエラー停止や途中までの変換でOKとはせず常数errorを返します。CALCには複素数に関する変換があり、(complex):複素数、(real):実数部取出((float)と同じ)、(image),(img):虚数部取出、(arg):複素角です。0の複素角は定義されずエラーになります。(image)と(img)、(string)と(str)は同じです。</td></tr>
 <tr><td class="right" rowspan="4">17</td><td>否定</td><td>!</td><td class="right">←右</td><td>右辺値が数値の0、空文字列""、論理値のfalse、null、未定義変数などの偽の値の場合trueを返し、それ以外falseを返します。</td></tr>
 <tr><td>前置増減</td><td>++, --</td><td class="right">←右</td><td>"++"で変数に1を加算、"--"で1を減算し、その結果の値を評価値とします。演算対象は変数でその内容は数値でなくてはなりません。</td></tr>
 <tr><td>ビット反転</td><td>~</td><td class="right">←右</td><td>ビットを反転した値を返します。右辺値は整数でなくてはなりません。</td></tr>
 <tr><td>コピー</td><td>new copy</td><td class="right">←右</td><td>右辺の配列や関数の内容をそっくりコピーしたものを新しく作成します。配列は中に配列への参照があった場合も参照から値に展開されてコピーされます。関数はその内部変数もそっくりコピーされます。関数をコピーするのは主に関数を構造体などの代わりに使う場合です。コピーされる内容は実行時点での内容で、定義された時点のものではありません。主に 変数 = new 配列または関数;、変数 = copy 配列または関数; などの代入形式で使い、単独だとメモリーを浪費するだけであまり意味はありません。"new"と"copy"はまったく同じです。状況に応じて意味のわかりやすい方をお使いください。現在動作対象は配列と関数のみで、それ以外の場合は単に右辺の値が返されます。</td></tr>
 <tr><td class="right" rowspan="3">18</td><td>後置増減</td><td>++, --</td><td class="left">左→</td><td>変数の値を評価後"++"で変数に1を加算、"--"で1を減算します。演算対象は変数でその内容は数値でなくてはなりません。</td></tr>
 <tr><td>関数実行</td><td>()</td><td class="left">左→</td><td>()内の引数で関数を実行します。</td></tr>
 <tr><td class="nowrap">メンバーアクセス</td><td class="nowrap">[], .</td><td class="left">左→</td><td>配列やユーザ関数の中のいわゆるメンバーにアクセスします。主に"[]"は配列、"."は関数内のメンバーにアクセスするのに使います。また文字列からの1文字取り出しには"[]"が使えます("."は使えません)。左辺値は配列名や関数名で、"."の右辺値はメンバー名(単に名前)とみなされますが、"[]"の中は値もしくは変数でもかまいません。メンバー名に名前文字以外(記号等)を含む場合は""か''で囲ってください。</td></tr>
 <tr><td class="right">19</td><td>カッコ</td><td>()</td><td class="center">なし</td><td>一般的な用法として式の優先順位を変更します。それに加えCALCでは文を式化して文の値(最後の文の実行結果)を値として取り出します。これにより式の位置にも文を書くことができます。</td></tr>
 </tbody></table>

◆ 関数 ◆ 
以下の数学関数が使えます。引数と返り値は、int:整数型実数、float:実数(浮動小数点数または整数)、complex:複素数または実数です。
 <table style="width:100%;" class="border"><tbody>
 <tr><td>float abs(complex)</td><td>絶対値。</td></tr>
 <tr><td>float abs2(complex)</td><td>絶対値の2乗。実はこちらが元でabs()はabs2()の平方根。</td></tr>
 <tr><td>complex sqrt(complex)</td><td>平方根。</td></tr>
 <tr><td>complex sin(complex)</td><td>三角関数 正弦、サイン。三角関数の角度の単位はラジアンです。難しいので詳細省略。(以下同様)</td></tr>
 <tr><td>complex cos(complex)</td><td>三角関数 余弦、コサイン。</td></tr>
 <tr><td>complex tan(complex)</td><td>三角関数 正接、タンジェント。</td></tr>
 <tr><td>complex asin(complex)</td><td>逆三角関数 逆正弦、アークサイン。</td></tr>
 <tr><td>complex acos(complex)</td><td>逆三角関数 逆余弦、アークコサイン。</td></tr>
 <tr><td>complex atan(complex)</td><td>逆三角関数 逆正接、アークタンジェント。</td></tr>
 <tr><td>float sind(float) float cosd(float) float tand(float) float asind(float) float acosd(float) float atand(float)</td><td>上記6つの三角関数で角度の単位は度です。引数の数値は実数でなくてはなりません。</td></tr>
 <tr><td>complex sinh(complex)</td><td>双曲線関数 双曲線正弦、ハイパボリックサイン。</td></tr>
 <tr><td>complex cosh(complex)</td><td>双曲線関数 双曲線余弦、ハイパボリックコサイン。</td></tr>
 <tr><td>complex tanh(complex)</td><td>双曲線関数 双曲線正接、ハイパボリックタンジェント。</td></tr>
 <tr><td class="nowrap">complex log(complex)</td><td>自然対数。</td></tr>
 <tr><td class="nowrap">complex log10(complex)</td><td>10を底とする対数。</td></tr>
 <tr><td class="nowrap">complex exp(complex)</td><td>自然対数の底(e)を底とする指数関数。</td></tr>
 <tr><td class="nowrap">complex exp10(complex)</td><td>10を底とする指数関数。</td></tr>
 <tr><td class="nowrap">complex pow(complex, complex)</td><td>累乗。第一引数を第二引数で累乗します。演算子**と同じ結果を返します。</td></tr>
 <tr><td class="nowrap">float real(complex)</td><td>複素数の実数部。</td></tr>
 <tr><td class="nowrap">float image(complex)</td><td>複素数の虚数部。</td></tr>
 <tr><td class="nowrap">float arg(complex)</td><td>複素数の複素角。単位はラジアン。</td></tr>
 <tr><td class="nowrap">float factorial(int)</td><td>階乗。nの階乗(数学記号n!)はn*(n-1)*(n-2)*...*1。引数は0以上170以下の整数。返り値は整数または実数。</td></tr>
 <tr><td class="nowrap">float min(float,...)</td><td>最小値。引数は1個以上何個でも。実数のみ。複素数にはなぜか使えません。</td></tr>
 <tr><td class="nowrap">float max(float,...)</td><td>最大値。同上。</td></tr>
 <tr><td class="nowrap">float random()</td><td>乱数。0.0から1.0までの間の乱数を返します。引数はありません。</td></tr>
 <tr><td class="nowrap">int ceil(float)</td><td>切り上げ。小数点以下を切り上げます。実数のみ。</td></tr>
 <tr><td class="nowrap">int round(float)</td><td>四捨五入。小数点以下を四捨五入して切り捨てまたは切り上げします。実数のみ。</td></tr>
 <tr><td class="nowrap">int floor(float)</td><td>切り下げ。小数点以下を切り捨てます。実数のみ。</td></tr>
 <tr><td colspan="2">その他に以下の組込み関数が使えます。引数と返り値は、int:整数型実数、float:実数(浮動小数点数または整数)、complex:複素数または実数、str:文字列、bool:論理値、x:文字列あるいは数値、void:無効な値、mix:その他各種 です。</td></tr>
 <tr><td>int parseInt(x[, n])</td><td>基本的には文字列を整数に変換します。nが与えられればn進法での表記と解釈して変換します。演算子の(int)とは少し違い、変換できるところまで変換してあとは無視します。全く変換できないときはNaNを返します。第一引数は数値でもいいようですが、第一引数を文字列で与えた場合と数値で与えた場合とで結果が異なります(parseInt("5.5e-2")は5、parseInt(5.5e-2)は0になります)。処理はjavascriptのparseInt()をそのまま呼んでいます。</td></tr>
 <tr><td>float parseFloat(x)</td><td>基本的には文字列を実数に変換します。演算子の(float)とは少し違い、変換できるところまで変換してあとは無視します。全く変換できないときはNaNを返します。処理はjavascriptのparseFloat()をそのまま呼んでいます。</td></tr>
 <tr><td>str date()</td><td>現在の日時(ローカル表示)を文字列で返します。</td></tr>
 <tr><td>int time()</td><td>現在の内部の時計の値を返します。返り値は整数でミリ秒の単位です。</td></tr>
 <tr><td>int arylen(array) int isarray(mix)</td><td>arylen()は配列の要素数を返します。空の配列では0を返します。また配列の中の配列はその要素数にかかわらず(空でも)1と数えます。引数が配列でないならエラーになります。 isarray()は引数が配列か否かの判定をし、配列でないなら−１を、配列ならarylen()と同様にその要素数を返します。判定と要素数の取得をいっぺんにやってしまおうという魂胆です。どちらも文字列も配列とみなしますがなるべく文字列にはstrlen()を使いましょう。絵文字の入った文字列の長さは保証できません。</td></tr>
 <tr><td>int strlen(str)</td><td>引数の文字列の長さを返します。ただし絵文字の入った文字列の長さは保証できません。</td></tr>
 <tr><td>int strpos(str, str[, pos])</td><td>第一引数の文字列の中に含まれる第二引数の文字列の位置を返します。位置posが指定されればそこから検索を開始します。最初に見つかった位置を返しますが見つからなければ-1を返します。文字列先頭の位置が0です。</td></tr>
 <tr><td>str substr(str, pos[, len])</td><td>第一引数の文字列のpos位置からlenの長さの文字列を取り出します。文字列先頭の位置が0でposが負の場合位置は後ろから数えます。lenが指定されないか残りの長さを越えていれば最後までです。</td></tr>
 <tr><td>str trim(str)</td><td>引数の文字列の前後の空白文字を取り除いた文字列を返します。空白文字にはスペースのほかにタブや改行なども含まれますが、javascriptのtrim()をそのまま呼んでおり全角スペースの扱いなどはブラウザによって違いが出ることがあります。</td></tr>
 <tr><td>bool isalpha(str)</td><td>引数の文字(文字列なら最初の1文字)が半角アルファベットの場合trueを、そうでなければfalseを返します。</td></tr>
 <tr><td>bool isdigit(str)</td><td>引数の文字(文字列なら最初の1文字)が半角数字文字(0-9)の場合trueを、そうでなければfalseを返します。</td></tr>
 <tr><td>bool isspace(str)</td><td>引数の文字(文字列なら最初の1文字)が半角の空白文字(" ", "\n", "\r", "\t")の場合trueを、そうでなければfalseを返します。</td></tr>
 <tr><td>void clear()</td><td>コンソール画面を消去します。引数と返り値はありません。</td></tr>
 <tr><td>void print(x1, x2,...) void println(x1, x2,...) str sprint(x1, x2,...) str sprintln(x1, x2,...)</td><td>print(),println()はコンソール画面に引数の内容を出力します。引数は文字列または数値で、0個(実質出力なし)から複数個あればそれらを順次出力します。println()は最後に改行します。途中改行するには"\n"を書きます。返り値はありません。 もし内部にHTMLタグを含めるときは終了タグまで一回で(一個のprint()で)書き出してください。そうしないとブラウザが勝手に終了タグを追加しておかしな表示になることがあります。 sprint(),sprintln()は出力するかわりにその文字列を返します。</td></tr>
 <tr><td class="nowrap">str input("msg"[, ans]) str secretinput("msg"[, ans]) str answer()</td><td>input()はコンソールに入力メッセージ(msg)を表示し、ユーザからの入力文字列を受け取り返り値として返します。結果を受け取る変数ansが指定されていればそれにも代入されます。ansは他の名前でもかまいませんしなくてもかまいません。またansに値(数値または文字列)が設定されていれば入力欄にそれが事前挿入されます。値を事前挿入するだけならansは変数でなく数値や文字列でもかまいません。 受け取るデータは文字列ですので数値が必要なら(float)などのキャスト演算子で数値に変換するか、calc(input("msg"))として式の評価をして使ってください。キャスト演算子やcalc()は共に変換に失敗するとerrorを返しますのでそのチェックもお忘れなく。[Enter]キーまたは「入力」ボタンで入力完了、[↑][↓]キーで入力履歴を呼び出せます。 secretinput()はinputとほぼ同等ですが入力欄を表示しません。完全にプログラム中からputinput()等で値を入力するのに使用します。"msg"は書式の互換上必要なだけで空("")でかまいません(あっても表示されないので)。 answer()は直前のinput()の返答を返り値として返します。引数はありません。他の関数で結果をローカル変数に受け取った場合でも取得できます。</td></tr>
 <tr><td class="nowrap">str getinput() str setinput("str") str putinput("str")</td><td>割込動作でプログラム中からinput入力を操作するための関数です。getinput()は現在入力欄(input)に入力されている値を取得します。setinput()は入力欄(input)にプログラム中から値"str"を入力し表示します。ディフォルト値などをあらかじめ入力しておく等に便利です。もし"str"中に改行"\n"があればそこでインプットは完了します。 putinput()はインプット入力に"str"を設定し入力を完了させます("str"途中に改行"\n"があったらそこで完了します)。 使い方は、input()のあとに書いても入力待ちになってしまいこれらの関数は実行されませんので、事前に&lt;tag onclick="putinput(...)"&gt;とするとか、screenmouseclick()、settimer()などを使って割込を設定しておく必要があります。いずれも設定または取得した文字列を返します。 </td></tr>
 <tr><td>void wait(ms)</td><td>時間待ちします。時間はミリ秒で0から10000(10秒)までですが0では動作はしません。0以外では実際は動作のオーバーヘッドやタイミングロス分(1～数ms程度)が加算されるため時間はさほど正確ではありません。SVGグラフィックの図形の移動や書き換え等のスピード調整などに使用できます。返り値はありません。</td></tr>
 <tr><td>void sleep(s)</td><td>一眠りします。時間は秒で0から100(100秒)までです。時間単位がちがうのみで実質wait()と同じです。返り値はありません。</td></tr>
 <tr><td>obj settimer("command", time) void cleartimer(obj)</td><td>settimer()はタイマーで指定時間(time:単位ms)後にCALCの式または文"command"を実行します。"command"は文字列で指定します。タイマーのIDを返しそのIDを使ってcleartimer(ID)で実行前の指定を解除できます。cleartimer()の引数が空なら設定されているすべてのタイマーを解除します。なおこのタイマー動作は割込で処理されますが割込処理中はブラウザとのやりとりは行われません。そのため一部の関数(input()等)は使えず(エラーになります)、画面書き換え等も割込処理が終了してからの動作となります。いったんsettimer()しますとCALCが正常終了したあとも有効になっていますので必要なければ終了時に解除してください。「リセット」ボタンと「実行」ボタンを押したときは自動的に解除されます。</td></tr>
 <tr><td class="nowrap">obj setinterval("command", time) void clearinterval([obj])</td><td>setinterval()はタイマーで指定時間(time:単位ms)ごとににCALCの式または文"command"を繰り返し実行します。"command"は文字列で指定します。インターバルタイマーのIDを返しそのIDを使ってclearinterval(ID)で実行を解除できます。clearinterval()の引数が空なら設定されているすべてのインターバルタイマーを解除します。なおこのインターバルタイマー動作は割込で処理されますが割込処理中はブラウザとのやりとりは行われません。そのため一部の関数(input()等)は使えず(エラーになります)、画面書き換え等も割込処理が終了してからの動作となります。いったんsetinterval()しますとCALCが正常終了したあとも有効になっていますので必要なければ終了時に解除してください。「リセット」ボタンと「実行」ボタンを押したときは自動的に解除されます。</td></tr>
 <tr><td class="nowrap">mix setcookie("name", value[, life]) mix getcookie("name")</td><td>ブラウザにcookieを書込、あるいは読み出しします。"name"はcookie名で文字列1文字以上、valueは値で文字列です(数値でもかまいませんが文字列に変換されます)。lifeは有効期間で0か無指定ならブラウザ終了まで、数値なら秒、あとは文字列で"1day"などと指定できます。指定できる時間単位は"sec", "min", "hour", "day", "week", "month", "year" です。消去するにはlifeに-1を指定します。どちらも読み出した値(文字列です)を返しますがcookieがない場合や無効の場合はfalseを返します(空文字との区別のため)。数値を保存しても読み出し値は文字列になりますのでお気をつけください。</td></tr>
 <tr><td>mix calc("str"[, errmsg])</td><td>引数の文字列をCALCの式や構文としてCALCの処理系で評価します。返り値は評価結果の値ですが、エラーが起こった場合でもエラー停止はせずに常数errorを返します。またerrmsgに真の値が設定されていればエラーが起こった場合その内容を画面に出力します。 また同名の関数がjavascriptにも登録してあり、タグ内の onclick="calc('...');" などからcalc内の変数を変えたりすることもできます。こちらは割込で優先処理されます。 </td></tr>
 <tr><td>str longcalc("siki") str longmode("mode") str longseido("keta") str longseidocut("cut") str longadd("n1", "n2") str longsub("n1", "n2") str longmul("n1", "n2") str longdiv("n1", "n2") str longmod("n1", "n2") str longpow("n1", "n2") str longfact("n") str longroot(["n1", ]"n2") str longtoE("n"[, "keta"[, "cut"]])</td><td>高精度文字列計算関係の関数です。引数および返り値はすべて文字列です。 longcalc()は引数の文字列で表された式を計算し結果を数字文字列で返します。数値文字列は整数、小数点表記実数、指数表記実数(1.234E5など)のいずれでもかまいません。エラーが起こった場合はエラー内容を表示し定数errorを返します。 可能な演算は(1)加算減算"+,-", (2)乗算除算剰余算"*,/,%", (3)符号"+,-"("+"はなくてよい), (4)累乗"**"(累乗数は0か正の数で小数部はあっても１桁か２桁), (5)階乗"!"(0か正の整数に対して一重のみ、!!はエラー), (6)優先括弧の"()"、及び(7)関数root()(rootはlongrootの組込名)です。優先順位は(1)->(7)の順に高くなります。 longmode()は計算・表示モードを設定します。"mode"が"."ならば整数.小数モード、"E"または"e"なら指数モードです。指数モードでも指数が0の場合のE0はつきません(0だから)。整数.小数モードの方が概ね計算は速いです。 longseido()は以下の計算での計算精度として有効桁数を指定します。整数.小数モードでは精度は小数部のみに適用され整数部の桁数は無制限です(もともと長整数の計算から出発したのでその互換のため)。指定精度以下の値は評価や計算の都度longseidocut()で指定された方法で丸められますので誤差の累積により最後の1,2桁が少し狂うことがあります。精度のディフォルトは24です。引数がなければ現在の値を文字列で返します。longseidocut()は指定精度での丸めの方法を指定します。引数は"ceil"(切上げ),"round"(四捨五入),"floor"(切捨て),あるいは切り捨てる上限の数字("0"～"9")です。ディフォルトは"4"(四捨五入)です。 その他longadd()からlongfact()は各々の演算の個別関数で引数は数字文字列、返り値は結果の数字文字列です。longroot("n1","n2")は"n2"の"n1"乗根を求めます。平方根の場合のみ第一引数を省略してlongroot("n2")でもかまいません。 longtoE()は数字文字列"n"を有効数字"keta"(指定されなければ100)、"cut"で指定された丸めの方法("ceil","round","floor"など、指定されなければ"round")で指数表記(1.234E+5などの形)に変換します。有効数字の指定は整数部含めて適用されます。 計算する数字の桁数(結果も含めて)、精度(有効数字)共にあまり大きいと、特に計算負荷の高い累乗、階乗、root()などの演算でタイムオーバーすることがありますのでご注意。</td></tr>
 <tr><td>mix jseval("str")</td><td>引数の文字列をjavascriptの式や構文としてjavascriptの処理系で評価し、結果を数値,文字列,論理値,配列のいずれかで返します。内部ではjavascriptのeval()関数を文字列引数で呼出し、返り値は数値,文字列,論理値,配列のいずれかでなければ文字列に変換します(javascriptのわけのわからないObjectなどを返されても困るからです)。CALCに用意されていない文字列処理、配列処理、あるいは正規表現処理などを実行するのに使えます。CALCを動かすスクリプトレベルでの処理なので名前がかぶったり文法ミスがあったりすると何が起こるかわからず、エラーならまだしも固まって操作不能になることも起こりえますので気をつけてお使いください。</td></tr>
 <tr><td>bool delete(var[, var ...])</td><td>与えられた引数の変数,配列,関数などを消去します。配列,関数の場合はその内部要素もそっくり消去されます。ユーザ定義の変数,配列,関数はもとより組込の常数や関数も消去できます(虚数単位i,jは特殊な数値であり変数ではないので消去はできません)…意識的に組込の常数や関数を書き換えたいときのために一切チェックはしないということです。いったん消去したら再定義するまでの間その名前の変数や関数は使えません。離して記述するとわかりにくくなりますので、できるだけ再定義と対でお使いください。 メモリーの開放についてはjavascriptのガーベージコレクションで行われますので実際のメモリー開放とは必ずしもイコールではありませんし、特別大量のメモリーを喰っていない限りdeleteの必要はありません。すべての変数の削除に成功したらtrue,それ以外(変数がないか変数があって削除に失敗したとき)falseを返します。引数がないか変数でない引数(数字や文字列など)を与えたときはエラーになります。いったん消去した変数や関数を元に復活する関数はありません(退避用の変数に保存しておいて戻せばできますが)。</td></tr>
 <tr><td>bool usestrict(mix)</td><td>プログラムチェック用に多少厳密なチェックを有効あるいは無効にします。引数はtrue/false(または1/0)で真の値なら有効、偽の値なら無効となります。有効に設定された場合true、無効に設定された場合falseを返します。 厳密チェックモードを有効にすると次のような場合エラーになります。多少プログラミングは窮屈になりますがバグの発生は抑えられます。 ●変数が宣言されずに、あるいは宣言前に使用された。●同じ名前の関数または変数が競合して多重に宣言された(但し宣言がif-elseなどの条件文の中だと必ずしもうまく動作しない場合があります)。●実行関数の引数(仮引数)と同じ名前の変数が関数内で宣言された。●関数に期待されない引数が渡された(例:isalpha()に文字か文字列以外を渡した場合など)。 ●ユーザ関数への引数が省略されて呼び出された(引数省略機能を使った)。 検出や動作は必ずしも完璧ではありません。あくまで参考にプログラミングの補助機能としてプログラム作成時だけにお使いください。関数calc()の中では効きません(変数を使うのにいちいちvar宣言とかめんどうなので)。</td></tr>
 </tbody></table>

◆ グラフィック ◆ 
ほんのおまけでごく簡単なグラフィックを描くこともできます。グラフィックはSVGとcanvasが両方同時に使えます。ただし大量のSVGグラフィックを描くとだんだんグラフィック処理が重くなって遅くなり最後にはブラウザが固まるかこけますのでSVGグラフィックの要素の数(SVG描画関数の呼出回数)は数千が限度でしょう。canvasにはこの制限はありません。細かい点を多数操作するならcanvasをお使いください。 以下の説明は基本的にSVGでの説明でcanvasではタグidは返さずidでの書き換えはできません。 その他SVGとcanvasでは微妙なちがいが出ることがあります。どちらを使うかは実際に試して決めてください。 以下、グラフィック関係の関数で頭に"c_"がついているものはcanvasの描画関数でそれ以外はSVGの描画関数です。色などの描画パラメータはcanvasとSVGとで共通です。寸法の単位はすべてpx(ピクセル)です。 描いたグラフィックはCONSOLE右上の「画像保存」ボタンで画像として保存できますが、ブラウザによってはtextの文字や空白が表示と異なる場合があります。インターネットエクスプローラ11(Trident/7)ではSVG部分は保存されず、またインターネットエクスプローラ10以下ではグラフィックそのものが使えません。その他ブラウザによる違いなどがあり実際にやって確認してください。 グラフィック[SVG保存]ボタンでSVGデータの保存ができますがHTML5ブラウザ向けですのでブラウザ以外の画像ソフトでの表示には多少修正が必要かもしれません。 スクリーンあるいはSVG描画タグは描画条件を変えたり描画内容を変えることができ、その指定はsid.screen(...)やtid.text(...)といったid.fnc()形式で行います。sidやtidは関数が返すスクリーンタグや描画タグのオブジェクト識別idです(実態は単なる整数ですが)。なおいったん投入したグラフィック関係のタグの削除はできません。消したり無効にしたい場合は色を透明にしたり表示範囲外に移動するなどして対応してください。 グラフィック関係の関数では一部の関数(screen(),pendash())を除きユーザ関数と同様に引数の省略機能が動作します。すなわちいったん与えた引数は次回以降省略すると同じ値が使われ同じことを毎回記述せずにすみます。
 <table style="width:100%;" class="border"><tbody>
 <tr><td>int consolewidth()</td><td>コンソール画面の幅を取得します。いちおうスクロールバーや余白の余裕を見た値です(ブラウザによって少し異なります)。コンソール画面のサイズに合わせてグラフィックしたいときに使います。引数はありません。</td></tr>
 <tr><td>int consoleheight()</td><td>コンソール画面の高さを取得します。いちおうスクロールバーや余白の余裕を見た値です(ブラウザによって少し異なります)。コンソール画面のサイズに合わせてグラフィックしたいときに使います。引数はありません。</td></tr>
 <tr><td>int [sid.]mpx() int [sid.]mpy()</td><td>マウスがスクリーン上にあるとして各々そのx座標、y座標を返します(いちいちスクリーン内かどうかまでは調べません)。sidはスクリーンidで、省略された場合はマウスの乗っている(重なっている場合は一番上の)スクリーンです。</td></tr>
 <tr><td>sid [sid.]screenstyle("style")</td><td>SVGとcanvasに共通です。グラフィック画面の外観をCSSスタイルを使って設定または変更します。newscreen()やscreen()で設定する内部の描画用パラメータとは別です。引数のstyleはCSSスタイル形式で指定します。初期値は""(空)でこれでよければ特に実行する必要はありません。枠をつけるならscreenstyle("border:2px solid silver;");などとします。sidはスクリーンのid番号ですが、指定されなければこれからnewscreen()で作成されるスクリーンすべてに、指定されれば(すでにある)その番号のスクリーンにのみ適用します。不要な書き直しを避けるために基本的にはスクリーン作成前に指定してください。適用したスクリーンのidを返します。 ...参考までによく使いそうな"style"設定を例としてあげておきます。スタイルなし:""、背景色:"background:#def;"、枠:"border:2px solid silver;"、幅:"width:400px;"、高さ:"height:300px;"、左マージン:"margin-left:50px;"、上マージン:"margin-top:10px;"、右マージン:"margin-right:8px;"、下マージン"margin-bottom:8px;"、非表示:"visivirity:hidden;"、表示:"visibility:visible;"、はみだし部分も表示する:"overflow:visible;" など。</td></tr>
 <tr><td class="nowrap">sid newscreen(w,h,zw,zh,dx,dy,so)</td><td>SVGとcanvasに共通です。新しいグラフィック画面(領域)を準備し描画対象スクリーンに設定します。引数は、w,h:描画領域の幅,高さ(int)、zw,zh:描画内容の拡大縮小率(float)、dx,dy:描画内容の位置補正(int)、so:canvasとSVGの重ね順で"cs"ならcanvasの上にSVG、"sc"ならSVGの上にcanvasです。"sc"は重ね合わせた画像の保存がうまくできず、canvasかSVGのいずれか一方しか保存できません。初期値は w=400, h=300, zw=1.0, zh=1.0, dx=0, dy=0, so="cs" で、以上は与えられた引数の値のみ前の値から変更されます(引数省略機能が動作します)。描画領域外にはみ出た部分は表示されません。作成されたスクリーンのidを返します。作成するスクリーンのidの指定はできません(自動的に1から順番になります)。</td></tr>
 <tr><td class="nowrap">sid [sid.]screen(w,h,zw,zh,dx,dy,so)</td><td>SVGとcanvasに共通です。スクリーンパラメータを変更しそれを使って内容を書き換えますが描画対象スクリーンは変更されません。スクリーンidを指定しない場合現在の描画スクリーンを対象としますがまだスクリーンがなければ特別サービスで新しく作成します。引数はnewscreen()と同じですが、与えた引数のパラメータのみ変更(再設定)されます(引数省略機能は動作しません)。すでにあるSVG画像は新しいパラメータで書き直されますがcanvas画像は書き直されません。変化させる画像とさせない画像の使い分けには利用できます。SVGは画像データによっては書き直しに時間がかかります。変更を適用したスクリーンのidを返します。</td></tr>
 <tr><td>sid [sid.]screenselect()</td><td>SVGとcanvasに共通です。引数はありません。スクリーンidの指定があればそのスクリーンを描画対象スクリーンに変更します。id指定がなければそのまま描画対象スクリーンのidを返しますが、まだスクリーンがなければ0が返されるのでスクリーンの有無の判定もできます。</td></tr>
 <tr><td>sid [sid.]screencopy()</td><td>SVGとcanvasに共通です。引数
はありません。グラフィックスクリーンをコピー表示します。すなわち同じ画像が表示されます。描画対象スクリーンは変更されません。作ったアイコン画像を並べたいときなどにお使いください。sidはnewscreen()で返されたコピー元のスクリーンidで、指定されなければ現在有効なスクリーンです。返り値は新しくコピーして作ったスクリーンのidでidの指定はできません。</td></tr>
 <tr><td class="nowrap">sid [sid.]screenmouseall('siki') sid [sid.]screenmouseover('siki') sid [sid.]screenmouseout('siki') sid [sid.]screenmousemove('siki') sid [sid.]screenmousedown('siki') sid [sid.]screenmouseup('siki') sid [sid.]screenmouseclick('siki')</td><td>SVGとcanvasに共通です。グラフィックスクリーン上でのマウスイベントの処理を指定します。mouseallはすべてのマウスイベントにまとめて設定します。常に同じカーソル表示をする場合などいちいち個別に設定しなくてすみます。 'siki'は式を文字列として記載しCALCの式として評価されます。解除するなら''(空文字)またはnullを設定します。文字列を返すとマウスがスクリーン内にあるときカーソル位置に表示されます。なお上記設定によらずグラフィック番号("Graphic1"とか)は常に表示されます(画像保存の番号選択のため)。sidはスクリーンidですが省略されると現在の描画スクリーンに対して設定します。設定したスクリーンのidを返します。なおこの動作は割込で処理されますが割込処理中はブラウザとのやりとりは行われません。そのため一部の関数(input()等)は使えず(エラーになります)、画面書き換え等も割込処理が終了してからの動作となります。 同じスクリーンに複数のイベントを設定した場合ブラウザによってイベントの発生の有無や順序が異なり(特にclick,down,up)なかなか思い通りにならなかったり、またマウスの動きが速いと(特にmoveで)追従や動作しない場合があります。</td></tr>
 <tr><td colspan="2">スクリーン画面をダブルクリックするとマウス座標を表示して10秒間その値を記憶し、その間にプログラムの座標を記入したいところをクリックすればそこに座標が"X,Y"の形で挿入されます。描画関数の引数に位置の値を入れるのに使用します。慣れると描画タグのコピーペーストと組み合わせて楽にタグを書き込めます。10秒以内にスクリーン画面で再度ダブルクリックすると表示と記憶は消されます。座標が記憶されている間はダブルクリックしたマウスカーソルの位置にその旨表示されているので判別が可能です。XとYはスクリーン内部の描画座標、(x,y)は画面上の見かけのピクセル数で、挿入されるのは描画座標のほうです。スクリーンへの拡大縮小や位置補正がかかっていなければこれらは同じで描画座標のみ表示されます。描画タグへの位置補正zoom,rotate,shiftが有効の場合値がずれますのでご注意ください。</td></tr>
 <tr><td colspan="2">以下グラフィック描画パラメータの設定関数です。SVGとCANVASに共通で現在選択されているスクリーンに対し設定します。</td></tr>
 <tr><td>void pen(w,"lc","lj")</td><td>図形を描く筆を準備します。wは太さ(float)で初期値は1.0、1以下を指定すると色が薄くなりそれらしくみえます。lcは筆先の形状で文字列"butt","round","square"のいずれか(初期値は"butt")、ljは接続部の形状で"miter","round","bevel"のいずれか(初期値は"miter")です。詳しくはSVGのstroke-linecap,stroke-linejoinを検索参照してください。与えられた引数の値のみセット(変更)されます。</td></tr>
 <tr><td>void pendash([l1,l2,...])</td><td>破線を描く設定をします。引数は描画する線の長さ,描画しない線の長さを交互に指定します。与えた引数のみでセットされます(引数省略機能は動作しません)。引数が1個か与えられなければ普通の直線にリセットされます。一部のブラウザのcanvasではうまく動作しません。</td></tr>
 <tr><td>void color("c1","c2",o1,o2)</td><td>描画色および色の不透明度を設定します。c1,c2は色を表す文字列で、c1は主色(主に図形の外形、線の色、文字の色)、c2は副色(図形内部や文字の縁取り等)の色です。o1,o2は数値(float)で0.0～1.0の値、o1は主色の不透明度(0:透明,1:不透明)、o2は副色の不透明度です。不透明度は色の方にagba()を使って設定してもかまいませんが両方混ぜて使うと競合して思い通りになりませんのでどちらか一方だけにしておくのがいいです。色の表現は"transparent"(透明)のほか、"white","red","blue"などの色名称(WEB標準色)、3原色16進指定"#000"(黒)～"#FFF"(白)、"#000000"(黒)～"#FFFFFF"(白)、"rgb()"、"rgba()"などが可能です。空文字("")は透明になります。与えられた引数の値のみセット(変更)されます。初期値はc1が黒("black")、c2が透明("transparent")、o1,o2は共に1.0(不透明)ですが副色c2の初期値は色が設定されていないので実際には透明になります(色を指定したとき効果を発揮します)。</td></tr>
 <tr><td>void font("style","weight","family")</td><td>テキストを書くのに使用するフォントのスタイル、太さ、種類を設定します。styleは"normal"(標準体),"italic"(イタリック体),"oblique"(斜体...日本語フォントでは概ねitalicと同じ),"small-caps"(英小文字を小さな大文字で表示しますが無視される場合が多いです)で複数なら間を空白で区切ります。weightは"normal"(標準)、"bold"(太字)または"100"～"900"の太さを表す数字です。familyは書体(フォント)名ですが"monospace","sans-serif","serif","cursive","fantasy"等一般的なフォント指定で指定しておくのが安全そうです(なければPCやブラウザのディフォルトのフォントになるけどむしろもくろみからは遠いかもしれない)。ディフォルトは"normal","normal","monospace"です。与えられた引数の値のみ変更されます。返り値はありません。</td></tr>
 <tr><td>void anchor(x,y) void scale(zx,zy,zp) void zoom(zx,zy,zp) void rotate(angle) void turn(angle) void rotated(angle) void turnd(angle) void translate(x,y) void shift(x,y)</td><td>今後の描画時の描画位置などの補正をします。すでに描いてしまった図形には影響しません。またスクリーンそのものに設定する表示時の拡大縮小や位置の移動とは別です。 anchorはscale,zoom、およびrotate,turnの基準点を設定します。ディフォルト値はどちらも0です。 scale,zoomは拡大縮小で、縮尺は横方向zxと縦方向zyの位置や寸法、縮尺で線が細くあるいは太くなりすぎて見にくくなったときの線幅補正zp(縦横はなし、縮尺された線幅に対して)を指定できます。ディフォルト値はすべて1.0(等倍)です。scaleとzoomは同じです。 rotate,turnは回転で角度の単位はラジアン、時計回りが正の値です。rotated,turndは角度の単位は度(degree)です。ディフォルト値は0(回転なし)です。rotateとturnは同じです。 translate,shiftは横及び縦方向の平行移動で単位はピクセルです。ディフォルト値はどちらも0(移動なし)です。translateとshiftは同じです。translate,shiftは元の座標系で行われ、scale及びrotateの影響は受けません(そうしておかないと計算がめんどうでわけがわからなくなった)。 処理はscale->rotate->translateの順に行われます。いったん設定するとずっと有効になるので必要な処理が終わったら戻してください。save()とrestore()を使えばいちいち値を指定せず戻せます。 斜めの図形を描いたり、すでに書いてしまったコードで一部大きさや位置を変更・修正したり、またSVGではこれを使って図形を書き直すことにより動かしたりすることもできます。</td></tr>
 <tr><td>int save([idnum]) int store([idnum]) int restore([idnum])</td><td>save()とstore()は上記pen()からrotate()までの関数で設定されたパラメータを保存し、restore()はそれを復元します。saveとstoreは同じです。引数がないなら自動でデータをpush/popしますのでsave()とrestore()は正しく対応していないといけません。正の整数が引数idnumとして指定されればその番号で保存/復元しますがこの場合は自動的なpush/popはしません。手動指定する場合の引数の番号は引数なしの自動採番(1から)とかぶらないようある程度大きな番号を指定するのが確かです。保存された、あるいは復元されたパラメータのid番号を返します。</td></tr>
 <tr><td colspan="2">以下グラフィックの描画関数です。現在選択されているスクリーンに対し描画します。 頭がc_のものはCANVAS用でCANVASスクリーンに描画し、それ以外はSVGスクリーンに描画します。 SVGでは描画タグのid(tid)を返し、tid.line(...)などの形で書き換えができます。tidは1からタグ作成順につけられます。tidは手動での指定もできますが自動のid番号と重ならないような充分大きな値(推奨90000以上)をお薦めします。手動idのタグは自動作成されませんのでタグの作成は tid=90001;tid.line(...); あるいは 90001.text(...); などの形になります。同じ描画関数をスクリーンをまたいで使用するなどでタグidを固定したい場合に手動指定を使用します。 なおいったんグラフィックに投入した描画タグの削除はできません。</td></tr>
 <tr><td>tid [tid.]line(x1,y1,x2,y2) void c_line(x1,y1,x2,y2)</td><td>直線を引きます。x1,y1,x2,y2は各々始点のx座標,y座標、終点のx座標,y座標です。SVGでは描いた図形タグのidを返し、idが指定されればそのidの図形を書き換えます。線の長さは小数でもかまいませんが短いと何も描かないブラウザがあり限界はよくわかりません。0.1くらいあればいいようです。</td></tr>
 <tr><td>tid [tid.]rect(x,y,w,h,rx,ry) void c_rect(x,y,w,h)</td><td>四角形を描きます。x,y,w,hは各々左上のx座標,y座標、四角形の幅,高さ、rx,ryは角の丸さ(SVGのみ)です。SVGでは描いた図形のidを返し、idが指定されればそのidの図形を書き換えます。</td></tr>
 <tr><td>tid [tid.]circle(x,y,r) void c_circle(x,y,r)</td><td>丸(円ともいう)を描きます。x,y,rは各々中心のx座標,y座標、半径です。SVGでは描いた図形のidを返し、idが指定されればそのidの図形を書き換えます。</td></tr>
 <tr><td>tid [tid.]ellipse(x,y,rx,ry) void c_ellipse(x,y,rx,ry)</td><td>楕円を描きます。x,y,rx,ryは各々中心のx座標,y座標、横半径、縦半径です。SVGでは描いた図形のidを返し、idが指定されればそのidの図形を書き換えます。</td></tr>
 <tr><td>tid [tid.]text(x,y,"text","size","anc") void c_text(x,y,"text","size","anc")</td><td>テキストを書きます。xはテキストanc位置のx座標,yはテキストほぼ下側(フォントのベースライン?)のy座標、textはテキストの内容、sizeは大きさ("14px","12pt","1em","150%"などです。数字だけならピクセルとみなされます)、ancは左右基準位置の指定("start","left":文字の左下、"middle","center":中央下、"end","right":右下)です。テキストには改行は含ませない方が確かです。また表示されるテキストの長さはなぜかSVGとcanvasで、あるいは表示環境によってかなりのちがいが出て尻切れになることがあるので充分余裕をとってください。SVGでは描いた図形のidを返し、idが指定されればそのidの図形を書き換えます。</td></tr>
 <tr><td>tid [tid.]point(x,y,w,h) void c_point(x,y,w,h)</td><td>座標x,yを中心に四角の点を打ちます。x,y,w,hは各々中心のx座標,y座標、幅、高さです。pen()の値は使いません。SVGでは描いた図形のidを返し、idが指定されればそのidの図形を書き換えます。 ...ただしSVGで大量の点をうつとだんだんグラフィックデータが重くなり最後にはブラウザが固まるかこけます。数千ポイント程度を上限としてください。大量に点を打つならcanvas関数c_point()をお使いください。</td></tr>
 <tr><td>pid [pid.]path() void c_path() void c_drawpath()</td><td>path()は多角形、円弧、曲線など多彩な図形を描く手順(いわゆるパス)を設定します。svgでidが指定されなければ、あるいはcanvasでは新しいパスの開始を宣言しますがこの段階ではまだ何も描かれません。色や線の太さなどのパラメータはSVGではパス宣言時、canvasではc_drawpath()実行時に取り込まれ適用されます。新しいパスの最初のコマンドはmoveto()でなくてはなりません。SVGでは設定されたパスのidを返し、idが指定されればパスをそのidに切り替えパラメータを取り込み直して再描画します。一方canvasの場合(c_path())では(あれば)現行のパスを終了し新しいパスを設定しますが既存のパスはc_drawpath()を実行しないと何も描画されませんのでお気をつけください。 描画はSVGの場合描画コマンドの都度自動的に行われますがcanvasではc_drawpath()で行われます。canvasで都度描画しますと透明度を設定した場合上書きで効果が変わってきます(透明度を低く設定しておいて幾度も上書きしてじわっと表示するのには使えますが)。 以下はパスへの描画コマンドですが、いったんパスに投入された個々の描画コマンドの削除や変更はできません。</td></tr>
 <tr><td>pid [pid.]moveto(x,y) void c_moveto(x,y)</td><td>パスの始点として座標x,yを設定します。ペンをそこに持っていくイメージです。path(),c_path()を宣言したら最初に実行する必要があります。また描画コマンドの間でもかまいません。SVGでは設定したパスのidを返し、idにpath()で返されたid番号を指定するとそのパスに新しい始点の座標を設定します。</td></tr>
 <tr><td>pid [pid.]lineto(x,y) void c_lineto(x,y)</td><td>パスの始点から座標x,yに直線を引きx,yを新しい始点に設定します。多角形を描くときはlineto()を必要回数続けて最後にclosepath()します。SVGでは描画したパスのidを返し、idにpath()で返されたid番号を指定するとそのパスに描画します。</td></tr>
 <tr><td class="nowrap">pid [pid.]ellipseto(x,y,rx,ry,ro,sf) 
 <svg width="180" height="100" viewBox="0 0 240 180" preserveAspectRatio="none">
 <path d="M 120,60 A 60,40 15 0,0 100,120" stroke="red" fill="transparent" stroke-width="8" />
 <path d="M 120,60 A 60,40 15 0,1 100,120" stroke="blue" fill="transparent" stroke-width="8" />
 <path d="M 120,60 A 60,40 15 1,0 100,120" stroke="green" fill="transparent" stroke-width="8" />
 <path d="M 120,60 A 60,40 15 1,1 100,120" stroke="maroon" fill="transparent" stroke-width="8" />
 </svg>
 </td><td>楕円弧を描きますが話が難しいです。パスの始点から座標x,yを終点とし、x軸半径rx、y軸半径ryで、角度ro(単位は度)だけ回転した楕円の楕円弧を描きますが、そのような楕円は2つ考えられ、さらに始点から終点まで4つの弧が想定されます(左図参照、交点が始点終点)。だからsfの値0～3でその弧を選びます。半径の指定が小さく指定点を通らないなら半径は自動的に拡大されます。...真円ならともかく傾いた楕円ともなるとパラメータが直感的に設定しにくいのが難です。描画後x,yを新しい始点に設定します。idにpath()で返されたidを指定するとそのパスに描画します。描画したパスのidを返します。</td></tr>
 <tr><td>void c_arc(cx,cy,r,sa,ea,cc)</td><td>円弧を描きます。点(cx,cy)を中心として半径rの円または円弧を描きます。sa,eaは開始終了の円弧の角度で0から2*PI。ccは円弧を描く方向でtrueなら反時計回りになります。線は開始点から円弧のsaにあたる点に引かれ円弧が描かれ円弧の終了点が次のパスの開始点になります。値は返しません。</td></tr>
 <tr><td>void c_arcto(x1,y1,x2,y2,r) 
 <canvas id="CVS1" width="180" height="100"></canvas>
 <script>
 ctx = document.getElementById("CVS1").getContext("2d");
 ctx.fillStyle = "red"; ctx.fillRect(16, 26, 8, 8);
 ctx.font = "12px 'sans-serif'"; ctx.textAlign = "left"; ctx.fillText("moveto 20,30", 10, 45);
 ctx.fillStyle = "blue"; ctx.fillRect(146, 26, 8, 8);
 ctx.font = "12px 'sans-serif'"; ctx.textAlign = "right"; ctx.fillText("x1,y1=150,30", 170, 20);
 ctx.fillStyle = "green"; ctx.fillRect(146, 86, 8, 8);
 ctx.font = "12px 'sans-serif'"; ctx.textAlign = "right"; ctx.fillText("x2,y2=150,90", 140, 94);
 ctx.fillStyle = "purple";
 ctx.font = "12px 'sans-serif'"; ctx.textAlign = "right"; ctx.fillText("r=50", 140, 60);
 ctx.beginPath(); ctx.moveTo(20, 30); ctx.arcTo(150, 30, 150, 90, 50); ctx.stroke();
 </script>
 </td><td>円弧を描きますがこちらも話が難しいです。始点(x0,y0)からx1,y1への直線とx1,y1からx2,y2への直線に接する半径rの円を考え、始点から円との接点までの直線、その接点からもう一つの直線との接点まで円弧を描きます。canvasの場合は円で楕円にはなりません。値は返しません。</td></tr>
 <tr><td>pid [pid.]curveto(x,y,df) void c_curveto(x,y,df)</td><td>前回のパスを参考にしてパスの始点から座標x,yに曲線を引きx,yを新しい始点に設定します。少ない点でなめらかな曲線にしたいとき使用しますが、あまり細かい範囲で使用したり急に折れ曲がったりすると振動したりしてかえっておかしな描画になることがあります。引数dfはそれを抑えるためのダンパー係数で0.0～1.0を指定できます(ディフォルトは0.5、ダンパーなしが0.0、1.0だとフルダンパーで直線描画になります)。SVGではidにpath()で返されたid番号を指定するとそのパスに描画します。描画したパスのidを返します。</td></tr>
 <tr><td>pid [pid.]closepath() void c_closepath()</td><td>パスの最後の点からmoveto()で設定された最初の点へ直線を引き図形を閉じます。path()コマンドを閉じる(終了する)のではありません。多角形を描くときはlineto()を必要回数続けて最後にclosepath()します。SVGではidにpath()で返されたid番号を指定するとそのパスに描画します。描画したパスのidを返します。</td></tr>
 <tr><td>str [sid.]getsvgcode(sn)</td><td>編集・チェック用の関数です。指定された、あるいは無指定なら現在有効なグラフィックスクリーンのSVGコード(タグを表示用に変換したもの)を返します。引数snで単なる整数でのスクリーン指定も受け付けます(sn優先、テストあるいはチェック用)。canvas部分は取り除かれます。printすればSVGグラフィックのコードが表示されます。printして表示されたコードをそのまま他のホームページにコピーペーストしてSVG画像を表示させることもできます。</td></tr>
 <tr><td>void showpoint(r) void c_showpoint(r)</td><td>編集・チェック用の関数です。r>=1なら描画タグの指定点に○(canvasでは□)印を表示します。rは○(□)の大きさ(半径または片側)です。パスのmoveto()は緑、lineto()は青、curveto()は赤、その他のパスは紫、パス以外のタグ(point,c_pointを除く)は茶色で表示されます。</td></tr>
 </tbody></table>

◆ ユーザ定義関数 ◆ 
その他ユーザ定義関数が使えます。関数定義の書式は function fncname(a,b,...){ 式;...; } で()や{}は省略できません。関数の呼出(実行)は fncname(1,2,...) となります。基本的にはごく一般的な関数の使用法と同じですが、以下にいくつか注意事項を書いておきます。以下引数の()内と関数本体の{}内は省略します。
 <table style="width:100%;" class="border"><tbody>
 <tr><td class="nowrap">関数名</td><td>いわゆる予約語は使えません。またすでに定義されている常数名や組込関数名は使えません(先にdelete()で消去してしまえば可能ですが)。関数名に使える文字はアルファベット、数字、アンダスコア("_")ですが、頭はアルファベットか"_"で数字は除かれます。(以上変数名と同じです)。 関数の名前は必ずしもなくてもかまいません(いわゆる無名関数。内部的には動作上ひそかに名前をつけてはいますが)。 この場合名前でのアクセスはできませんので、(function(){})()としてその場で実行するか、f=function(){}; として変数に入れ、f()で実行するか、別の関数の返り値 function f1(){ ...; return function(){}; }として親関数を通して f1()() として実行するなどしなくてはならなくなります。</td></tr>
 <tr><td class="nowrap">属性の付加</td><td>関数を書換禁止にするには const function f(){} とします。変数とちがいvar宣言しなおしての書換はできません。関数内からグローバル関数を作成するには global function f(){} とします。これらの関数の属性に関する構文はconst等の宣言の中で関数を定義するのではなく、関数定義のfunctionに属性を付加するものとして解釈され、属性の適用はその関数定義にのみ一回きりです。</td></tr>
 <tr><td class="nowrap">定義位置</td><td>関数は通常トップレベルに記載しますが、関数内でに書いてもエラーにはなりません。関数内で定義した関数は通常その関数内でしか使えません(アクセス演算子"."を使えば外からでも可能)。 実は function の書かれた場所のチェックはしていませんので if-else 構文内や、その他の場所でも()で囲って式化してしまえば式の位置にでも書くことは可能かも...でもすべて確認したわけではありませんのでエラーにならずにちゃんと動作すればということで...。</td></tr>
 <tr><td class="nowrap">関数の再定義</td><td>ユーザ関数を再定義してもエラーにはなりません(厳密チェック(strict)モードではエラーになります)。実行時function定義を通過した時点で関数の実行コードは書き変わりstatic以外の内部変数等は消去されます。特に関数内関数は親関数の実行の度に再定義されます。またglobal宣言で外部に作成した変数や関数はめんどう見ません。通常同じ関数名を使い回す必要はないと思われますし実際にどの関数が動いているのかわからずバグの原因になりやすいのでなるべく再定義はしないようにしましょう。組込関数の再定義はエラーにしています(先にdelete()で消去すれば可能です)。</td></tr>
 <tr><td class="nowrap">引数</td><td>関数の引数は数値、論理値、文字列、配列等多くの型の使用が可能ですが、voidとundefinedは有効な引数としては認められません。 関数の引数の数は呼出側と実行側で合っているのが基本ですが、合っていない場合必ずしもエラーとはならず次のような動作となります。 ・CALCのユーザ関数とほとんどの組込グラフィック関数はいったん与えられた引数を覚えこみます。これを利用して2回目以降省略ができ同じ記述を幾度もせずにすみます。 ・関数定義の際引数変数に初期値を与えることもでき、たとえば function f(a,b=0,c=1){} などとするとbやcに呼出側で引数が与えらなければこの初期値が使われます。 ・実行側の引数が少ない場合、呼出側の余った引数は単に無視されエラーにはなりません。 ・呼出側の引数が少ない場合、関数定義で初期値を与えていなければ初回エラーになりますが、初回引数を与えて正常に実行した後ならば省略しても前の引数が使われエラーになりません。 ・引数の省略は順番さえ守れば一部省略一部与えるというのも可能です。優先順位は与えた引数、関数に記述した初期値、いったん与えて記憶された値の順です。 ・でもこの引数省略機能は必ずしも他の言語では使えませんのでご承知置きください(グラフィックの場合などとても便利だけど)。数学関数などではこの機能は動作せず引数の省略はできません。 ・関数引数の()内のNameSpaceは呼出側ではその関数の位置(呼出側関数の外側)、実行関数側(function宣言された側)ではその関数の内部と同じになります。引数()の内部で変数や関数を使う場合にはお気を付けください。さらに実行側関数の仮引数の名前がすでにあるグローバル変数の名前とかぶった場合、うっかり気がつかないと誤動作のもととなりますので仮引数の名前設定にはお気をつけください。 ・関数の今回呼出の引数(有効無効判定前)、および実際に使われ記憶された有効な引数は各々argc,argv[]およびargcm,argvm[]に入っていますので可変長引数関数なども書こうと思えば書けます。</td></tr>
 <tr><td class="nowrap">関数の初期化</td><td>関数の初期化は、プログラム実行開始時のいわゆるプログラム初期化時、実行がfunction定義を通過したとき(関数再定義)、および関数を変数に代入したとき(代入した変数側で)行われます。初期化ではstatic変数を除く関数内変数等はいったん削除され次の関数実行時に変数宣言等が再実行されます。よってfunction定義を実行プログラムの途中に書くとそこで初期化が起こり内部変数が予期せず書き換わることがあるのと無駄な初期化が起こるので、関数定義はなるべく最後に書くのが無難です。関数fを強制的に初期化するにはf=f;とすれば(static変数を除き)初期化されます(変数代入時の初期化)。</td></tr>
 <tr><td class="nowrap">関数の実行</td><td>通常は関数を function f1(){}で定義し、f1()で実行します。(function f1(){})()で定義してその場で実行することもできます。さらにはfunction f1(){}()でも実行します。(関数定義に直に続けて()を書いた場合。正しい書き方は(function f1(){})()なのですが。)。 その場で一回だけ実行すればいいなら関数名f1はなくてもかまいません。また下記のように変数に代入して実行することもできます。</td></tr>
 <tr><td class="nowrap">変数への代入実行</td><td>function f1(){} で関数f1を作成しておいてf=f1;で関数f1を変数fに代入し、f()で関数を実行することは可能です。内部変数等は代入時に初期化され、以後代入した変数fの所有としてf1とfの内部変数は分離されます。内部変数までそっくりコピーするなら f = copy f1;とすればその時点の変数名と値がそっくりコピーされますが、やはり変数の所有は分離されます。</td></tr>
 <tr><td class="nowrap">返り値</td><td>値を返すには return 式; を使います。return 式; の式、あるいはreturnそのものがない場合は値は返しません(正確に言うと無効な値voidを返します)。</td></tr>
 </tbody></table>

◆ コメント ◆ 
/*と*/で囲まれた範囲、//から行末まで、および#から行末まではコメントとなります。コメント内部には日本語が使えます。/* */は完結していないとエラーになります。コメントのネストは書き方によってはエラーになりますのでしないほうがいいでしょう。単なる"文字列";のみの文も実質コメントと同じですが最後に書けば結果として表示されます。

◆ その他 ◆ 
セキュリティー上ハードウェアにからむ操作(メモリ操作、ファイル操作、I/O操作など)はできません。 エラー検知についてはよくありそうなエラーはできるだけ検知して表示するようにしていますが必ずしも完璧ではなく、エラー検知できずに誤動作したりおかしな値になることも可能性としてはなきにしもあらずですのでご承知おきください。

</body></html>