【TOP】 【BACK】
(仮称)十進BASIC
このレポートは(仮称)十進BASIC Ver.3.37をもとに作成しました.

【1】概要

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

【2】主な特徴

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

【3】活用の具体例

  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)
    
    
     

【4】その他

  1. 動作環境
    OS 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

【TOP】 【BACK】