Scilabで数値微分 その3

Scilabで数値微分 その1で紹介した数値微分の近似式をScilabのfunctionにまとめました。

// *** 前進差分 ***
function df = diff_f1(x, dx, func)
df = (func(x + dx) - func(x)) ./ dx
endfunction

// *** 中心差分 ***
function df = diff_f2(x, dx, func)
df = (func(x + dx) - func(x - dx)) ./ (2 * dx)
endfunction

// *** 前進差分に対するRomberg1段 ***
function df = diff_f1r(x, dx, func)
df = 2 * (diff_f1(x, dx, func) - 0.5 * diff_f1(x, 2 * dx, func))
endfunction

// *** 中心差分に対するRomberg1段 ***
function df = diff_f2r(x, dx, func)
df = (4 / 3) * (diff_f2(x, dx, func) - 0.25 * diff_f2(x, 2 * dx, func))
endfunction



上記の内容をdifferential.sciのように別ファイルにまとめておけば、以下のように呼び出して使えます。

clear;

// *** 関数の定義を読み出し ***
exec('differential.sci',0);

// *** 計算範囲と刻み幅 ***
n = 10;
xmin = 0;
xmax = 2 * %pi;
dx = 1 / 2 ^ n;
x = linspace(0,xmax);

// *** 正弦波とその微分 ***
y = sin(x);
//dy = diff_f1(x, dx, sin); // 前進差分
//dy = diff_f2(x, dx, sin); // 中心差分
//dy = diff_f1r(x, dx, sin); // 前進差分に対するRomberg1段
dy = diff_f2r(x, dx, sin); // 中心差分に対するRomberg1段

// *** グラフのプロット ***
// グラフの描画
plot(x, y, '-b');
plot(x, dy,'--r');
// グラフの装飾
legend(["sin(x)","d(sin(x))/dx"],3);
zoom_rect([xmin,-1,xmax,1]);


数値微分なので、微分値が具体的な数値として求まります。
xには微分したいxの値を、dxには微小な値を入力しますが、具体的にどの程度の数値が必要なのかはScilabで数値微分 その2を参考に決めます(hの値がこのエントリにおけるdxに相当します)。

そもそも関数の解析的な積分はできない場合が多い反面、微分はできてしまうことが多いので、数値的に微分値を求める需要はあまり多くないのかもしれませんが。

関連エントリ




付録


このエントリで使用したScilabのシミュレーション用ファイルを添付します。ファイル名末尾の".txt"を削除して、"_"を"."に変更すれば使えるはずです。(参考:ねがてぃぶろぐの付録)


参考文献/使用機器




フィードバック



にほんブログ村 その他趣味ブログ 電子工作へ

 ↑ 電子工作ブログランキング参加中です。1クリックお願いします。


コメント・トラックバックも歓迎です。 ↓      


 ↓ この記事が面白かった方は「拍手」をお願いします。


tag: Scilab 数値微分 

comment

Secret

FC2カウンター
カテゴリ
ユーザータグ

LTspiceAkaiKKRmachikaneyamaScilabKKRPSoC強磁性OPアンプPICCPA常微分方程式モンテカルロ解析ecaljodeトランジスタ状態密度インターフェースDOS定電流スイッチング回路PDS5022半導体シェルスクリプトレベルシフト乱数HP6632AR6452AI2C可変抵抗分散関係トランジスタ技術ブレッドボード温度解析反強磁性確率論バンドギャップセミナー数値積分熱設計非線形方程式ソルババンド構造絶縁偏微分方程式ISO-I2CLM358フォトカプラ三端子レギュレータカオスLEDシュミットトリガGW近似A/Dコンバータ発振回路PC817C直流動作点解析USBマフィンティン半径数値微分アナログスイッチTL43174HC4053カレントミラーサーボ量子力学単振り子チョッパアンプ補間2ちゃんねる開発環境bzqltyFFT電子負荷LDAイジング模型BSch基本並進ベクトルブラべ格子パラメトリック解析標準ロジックアセンブラ繰り返し六方最密充填構造SMPコバルトewidthFET仮想結晶近似QSGW不規則合金VCAMaximaGGA熱伝導cygwinスレーターポーリング曲線キュリー温度スイッチト・キャパシタ失敗談ランダムウォークgfortran抵抗相対論位相図スピン軌道相互作用VESTA状態方程式TLP621ラプラス方程式TLP552条件分岐NE555LM555TLP521マントル詰め回路MCUテスタFXA-7020ZR三角波過渡解析ガイガー管自動計測QNAPUPSWriter509ダイヤモンドデータロガー格子比熱熱力学awkブラウン運動起電力スーパーセル差し込みグラフ第一原理計算フェルミ面fsolveCIFxcrysden最大値最小値ubuntu最適化平均場近似OpenMPシュレディンガー方程式固有値問題井戸型ポテンシャル2SC1815TeX結晶磁気異方性OPA2277非線型方程式ソルバフラクタルFSM固定スピンモーメントc/agnuplotPGA全エネルギーfccマンデルブロ集合縮退正規分布キーボード初期値interp1multiplotフィルタ面心立方構造ウィグナーザイツ胞L10構造半金属二相共存ZnOウルツ鉱構造BaOSIC重積分磁気モーメント電荷密度化学反応クーロン散乱岩塩構造CapSenseノコギリ波デバイ模型ハーフメタルRealforceフォノンquantumESPRESSOルチル構造スワップ領域リジッドバンド模型edelt合金等高線凡例軸ラベル線種シンボルトラックボールグラフの分割MAS830LPIC16F785トランス入出力CK1026PC直流解析パラメータ・モデル等価回路モデル不規則局所モーメント関数フィッティング日本語ヒストグラムTS-112ExcelGimp円周率TS-110LMC662片対数グラフ三次元specx.fifortUbuntu文字列疎行列不純物問題ジバニャン方程式ヒストグラム確率論マテリアルデザインP-10境界条件連立一次方程式AACircuit熱拡散方程式HiLAPW両対数グラフ陰解法MBEナイキスト線図負帰還安定性Crank-Nicolson法EAGLE最小二乗法

最新コメント
リンク

にほんブログ村 その他趣味ブログ 電子工作へ