PR
くぴん７４
くぴんのブログへようこそ！ 計算力学１級を持っているＣＡＥエンジニアです。読んだ本の紹介を中心に日々の出来事などを綴っています。
フリーページ
おすすめCD
DREAM THEATER
EXTREME
DEF LEPPARD
MR.BIG
METALLICA
MEGADETH
LOSTPROPHETS
HOOBASTANK
TRAPT
FOO FIGHTERS
EAGLES
System Of A Down
ローンの計算方法
橘玲
クレジットカードのしくみ
大切な言葉集
この世界を混乱に導く悪魔のルール
ETF140銘柄チャート画像取得マクロ
エクセルVBAで高速フーリエ変換
株・資産運用
1.株式会社の始まり
2.資産形成の方程式
3.利回りに対する理解
4.単利と複利
5.債券価格
6.キャピタルゲインとインカムゲイン
7.株式投資の投資戦略
8.BS(貸借対照表)とPL(損益計算書)の関係
9.リスクと不確実性について
10.72の法則
11.家賃から物件価格を推定する方法
12.レバレッジ
13.ファンダメンタル指標
14.サラリーマンの生涯賃金
15.BPS+EPS×10の有効性
16. 裁定取引 (arbitrage)
fortran90で高速フーリエ変換
カレンダー
2024～25主力株概況3…
New!
みきまるファンドさん
DOW 44860.31 +123.7… New! どらりん0206さん
楽天ラッキーくじ更…
じゃっかすさん
自分を愛することは… まりあのじいじさん
パワーアシストロボ… jhiranoさん
DOW 44860.31 +123.7… New! どらりん0206さん
楽天ラッキーくじ更…
じゃっかすさん自分を愛することは… まりあのじいじさん
パワーアシストロボ… jhiranoさん
キーワードサーチ
▼キーワード検索
2016年01月08日
テーマ： プログラミングあれこれ(231)
カテゴリ： プログラミング
ベクトルを返り値にする関数って、どうすればいいのかわからず、調べていると構造型というものが見つかった。
type 構造型名
型 :: 成分名
…
end type 構造型名
例えば、ベクトル2つを入力して、ベクトルの外積を返す関数は以下になる。
構造型の成分は%をつけて定義する。
-----ここから
program outer_product
double precision :: x, y, z
end type vector
type(vector) :: a, b, c
a%x=1.0d0
a%y=0.0d0
a%z=0.0d0
b%x=1.0d0
b%y=1.0d0
b%z=0.0d0
c = vector_product(a,b)
write(*,*) c
function vector_product( u, v) result(w)
type(vector) :: u, v, w
w%x = u%y * v%z - u%z * v%y
w%y = u%z * v%x - u%x * v%z
w%z = u%x * v%y - u%y * v%x
end program outer_product
-----ここまで
↓参考URL
http://www7b.biglobe.ne.jp/~fortran/education/fortran90/sec9.html
にほんブログ村
type 構造型名
型 :: 成分名
…
end type 構造型名
例えば、ベクトル2つを入力して、ベクトルの外積を返す関数は以下になる。
構造型の成分は%をつけて定義する。
-----ここから
program outer_product
double precision :: x, y, z
end type vector
type(vector) :: a, b, c
a%x=1.0d0
a%y=0.0d0
a%z=0.0d0
b%x=1.0d0
b%y=1.0d0
b%z=0.0d0
c = vector_product(a,b)
write(*,*) c
function vector_product( u, v) result(w)
type(vector) :: u, v, w
w%x = u%y * v%z - u%z * v%y
w%y = u%z * v%x - u%x * v%z
w%z = u%x * v%y - u%y * v%x
end program outer_product
-----ここまで
↓参考URL
http://www7b.biglobe.ne.jp/~fortran/education/fortran90/sec9.html
にほんブログ村
お気に入りの記事を「いいね！」で応援しよう
[プログラミング] カテゴリの最新記事
-
Pyxel Python向けレトロゲームエンジン 2024年01月08日
-
pythonでテトリス 2024年01月07日
-
誕生日のパラドクス 2023年07月29日
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
