【１】概要

　(仮称)十進BASICは，さまざまな数理現象を考察するための道具です。複雑な計算手順を分かりやすく表現することができ，また，その結果をグラフ化して視覚的に表現することが簡単にできます。
　また，構造化が可能なことや，デバッグ機能も備えているため，授業で用いるのに適しています。

【２】主な特徴

1. JIS Full BASICを文法の基本に採用
2. 構造化プログラミング
3. 数値の扱い方の4つのモード
   （ 十進演算，1000桁モード，2進16桁モード，複素数モード）
4. 行番号，goto文は不要
5. 問題座標系
   （利用者が定めた数学上の座標系：画面の左右端の x座標と上下端の y座標を指定）
6. 基本的にプログラミングウインドウ，テキストウィンドウ，グラッフィックウインドウが存在

【３】活用の具体例

1. 絵の変形
   　　（ここで取り上げたぞうさんの絵は，札幌新川高校の中村文則先生のオリジナルです。）
   

   座標平面上に好きな絵を描き，その絵を次のように変換して描画せよ。 　(1) x軸方向に2，y軸方向に1だけ平行移動する。 　(2) x軸方向に-2倍，y軸方向に2倍に拡大する。 　(3) 原点を中心として30°だけ回転する。 　(4) 水平方向に30°だけ傾ける。

   
   

   
   picture  zou
   
      set line color p
   
      plot lines:0,0;0.5,0;0.5,0.4;1.2,0.4;1.2,0;1.7,0;1.7,1;
   
      plot lines:1.8,1;1.8,0.2;2,0.2;2,1.8;1.8,2;0,2;
   
      plot lines:-0.2,1;0,1.6;0,0
   
      plot lines:1.3,1.6;1.1,1.6;0.9,1.2;1,1;1.2,1.12
   
      plot lines:1.7,1.4;1.64,1.28;1.58,1.32;
   
   end picture
   
   
   
   set window -6,6,-6,6
   
   option angle degrees
   
   DRAW grid
   
   let p=2
   
   DRAW zou
   
   LET  p=4
   
   DRAW zou WITH SHIFT(2, 1)
   
   DRAW zou WITH SCALE(2, 3)
   
   DRAW zou ROTATE(30)
   
   DRAW zou WITH SHEAR(30)
   
   

   　
   　
   
2. 例外処理　｢WHEN 〜 END WHEN｣
   

   次の関数のグラフを描画せよ。 　(1) f(x)=1/x　　　　(2) f(x)=tan x

   
   

   

   
   (1)
   
   LET x1=-5
   
   LET x2=5
   
   LET y1=-5
   
   LET y2=5
   
   DEF f(x)=1/x
   
   SET WINDOW x1,x2,y1,y2
   
   DRAW GRID
   
   FOR x=x1 TO x2 STEP 0.1
   
      WHEN EXCEPTION IN
   
         PLOT LINES: x,f(x);
   
      USE
   
         PLOT
   
      END WHEN
   
   NEXT x
   
   

   
   

   
   (2)
   
   LET x1=-100
   
   LET x2=500
   
   LET y1=-5
   
   LET y2=5
   
   OPTION ANGLE DEGREES
   
   DEF f(x)=TAN(x)
   
   SET WINDOW x1,x2,y1,y2
   
   DRAW grid(90,1)
   
   FOR x=-100 TO 500 
   
      WHEN EXCEPTION IN
   
         PLOT LINES: x,f(x);
   
      USE
   
         PLOT
   
      END WHEN
   
   NEXT x
   
   

   
   
3. 再帰呼び出し
   

   角度を入力して樹木曲線を描画せよ。

   
   

   
   PICTURE vein(s)
   
      IF s<2/px THEN
   
         PLOT POINTS: 0,0
   
      ELSE
   
         SET POINT COLOR 2
   
         DRAW vein(s*r) WITH SCALE(1,-1)*SCALE(r)*ROTATE(alfa)
   
         SET POINT COLOR 4
   
         DRAW vein(s*2/3) WITH SHIFT(-1,0)*SCALE(1,-1)*SCALE(2/3)*SHIFT(1,0)
   
      END IF
   
   END PICTURE
   
   OPTION ANGLE DEGREES
   
   let r=1/SQR(3)
   
   INPUT PROMPT "角度=":alfa
   
   SET WINDOW -0.5,1.5,-1,1
   
   ASK PIXEL SIZE px,py
   
   SET POINT STYLE 1
   
   DRAW vein(1)
   
   

   　

【４】その他

1. 動作環境
   

   ＯＳ	Windows95，WindowsNT4.0
   実行ファイル	BASIC.EXE
   注意事項	・BASIC.HLPとBASIC.CNTはBASIC.EXEと同じフォルダに置く ・拡張子が.BAS，.LIBのファイルはテキストファイル

2. 使用言語
   Delphi3.1

3. 最新情報の入手方法
   十進BASICのページ （http://www.vector.co.jp/authors/VA008683/）

4. ダウンロードファイルとサイズ
   

   	ダウンロードファイル(サイズ)	実行ファイル(サイズ)
   本体	basicw32.lzh(約510KB) basicw32.EXE (自己解凍ファイル 約509KB)	BASIC.EXE(約687KB)
   サンプルファイル		フォルダ数14，ファイル数約275(約104KB)
   マニュアル		Basic.hlp(約123KB)

5. 使用規定
   再配布の場合は，事前に連絡

6. 連絡先
   343 越谷市南荻島3337　文教大学教育学部　白石和夫 （cxn03127@niftyserve.or.jp）