このファイルはウィキメディア・コモンズのものであり、他のプロジェクトで使用されている可能性があります。
ウィキメディア・コモンズでのファイル解説ページにある説明を以下に示します。
概要
Scilab source
clear all;
//固有角振動数
ome1 = 19.77 // rad/s
ome2 = 69.54 // rad/s
ome3 = 119.5 // rad/s
//モード減衰比
ze1 = 6.59*10^-4
ze2 = 2.3*10^-3
ze3 = 4.0*10^-3
//モード剛性
K1 = 0.342*1500 // N/m
K2 = 2.83 *1500 // N/m
K3 = 3.08 *1500 // N/m
//計算する振動数の範囲
w = linspace(0,170,10000)
//周波数応答関数
f1 = 1 ./( 1 - (w./ome1).^2 + %i .* 2 .* ze1 .* (w./ome1) )
f2 = 1 ./( 1 - (w./ome2).^2 + %i .* 2 .* ze2 .* (w./ome2) )
f3 = 1 ./( 1 - (w./ome3).^2 + %i .* 2 .* ze3 .* (w./ome3) )
//固有モード
phi11 = 1
phi21 = 0.739
phi31 = 0.382
phi12 = -0.449
phi22 = 1
phi32 = 0.838
phi13 = 0.045
phi23 = -0.379
phi33 = 1
//質点pが入力、質点qが応答としてGqp
G23 = phi21 .* phi31 ./ K1 .* f1 + phi22 .* phi32 ./ K2 .* f2 + phi23 .* phi33 ./ K3 .* f3
fre = w ./ 2 /%pi
data_y1 = abs(G23')
data_y2 = atan(imag(G23'),real(G23'))*180/%pi
data_x = fre'
//値をcsvで吐き出す。グラフ化はexcelなどで。
csvWrite([data_x data_y1],'write1.csv')
csvWrite([data_x data_y2],'write2.csv')
ライセンス
この作品の著作権者である私は、この作品を以下のライセンスで提供します。
|
このファイルはクリエイティブ・コモンズ CC0 1.0 全世界 パブリック・ドメイン提供のもとで利用可能にされています。
|
| ある作品に本コモンズ証を関連づけた者は、その作品について世界全地域において著作権法上認められる、その者が持つすべての権利(その作品に関する権利や隣接する権利を含む。)を、法令上認められる最大限の範囲で放棄して、パブリック・ドメインに提供しています。
この作品は、たとえ営利目的であっても、許可を得ずに複製、改変・翻案、配布、上演・演奏することが出来ます。
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse
|
ファイルの履歴
過去の版のファイルを表示するには、その版の日時をクリックしてください。
| 日時 | サムネイル | 寸法 | 利用者 | コメント |
| 現在の版 | 2021年3月13日 (土) 13:01 |  | 779 × 662 (74キロバイト) | wikimediacommons>Yapparina | Uploaded own work with UploadWizard |
ファイルの使用状況