PostScriptで数値積分

PC

PostScript言語で定積分の計算 - その他（プログラミング・開発） 締切済み| 【OKWAVE】に触発されて組みました。GhostScriptで動作確認済みです。

%!PS-Adobe-2.0
% f(x)の定義
% 例としてf(x)=x^2
/F { dup mul } def

% 積分範囲の定義
% 例として0から1
/Start 0 def
/End 1 def

% 微小区間への分割数の定義
/Imax 100 def

% 区間幅を計算するマクロ
/Span { End Start sub Imax div } def

% 中点則で数値積分
/Integ {
	0
	Start Span 2 div add Span End Span 2 div sub { F add } for
	Span mul
} def

% main
Integ =

Bugfix