categoryFORTRAN覚書

3種類の平均値

trackback0  comment0
プログラミング覚書 Fortran-008

3種類の平均値
----------------------------------------------------------------------

!----- 3種類の平均値 -----
PROGRAM Example_1_1
REAL :: a, b, av1, av2, av3
READ *, a, b
av1 = (a + b)/2.0 ! 算術平均
av2 = (a*b)**0.5 ! 幾何平均
av3 = 2.0/(1.0/a + 1.0/b) ! 調和平均
PRINT*, av1, av2, av3
END

関連記事
 









        
 
http://greenwind888.blog.fc2.com/tb.php/190-0cd6db57