Download
1 / 4
40 likes | 256 Views
地球流体電脳ライブラリ (DCL). 地球流体の研究者に優しい 欠損値処理が簡単 地図投影が簡単 Fortran で書ける。 Fortran90 対応 研究教育資源として最適 タダである 学生が自由に使える. DCL の構造. 構造化されている 移植が容易 (UNIX/ Windows 対応 ). program hop use dcl integer, parameter :: n=400 real, dimension(n) :: x, y !------------ data definition -------------
E N D
地球流体電脳ライブラリ(DCL) • 地球流体の研究者に優しい欠損値処理が簡単地図投影が簡単 • Fortran で書ける。Fortran90対応 • 研究教育資源として最適タダである学生が自由に使える
DCL の構造 • 構造化されている移植が容易(UNIX/ Windows対応)
program hop use dcl integer, parameter :: n=400 real, dimension(n) :: x, y !------------ data definition ------------- dt = 3.14159 / (n-1) a = 1.e5 b = 1.e-4 c = 1. x = a*sin( 6.*(/(dt*(i-1), i=1, n)/)) y = b*cos(14.*(/(dt*(i-1), i=1, n)/)) + c !---------------- graph ------------------- call DclOpenGraphics() call DclNewFrame call DclSetTitle ('X-TITLE', 'Y-TITLE') call DclDrawScaledGraph(x, y) call DclCloseGraphics end program program map3d2 use dcl ……. ………… データ定義 …. call DclOpenGraphics() call DclSetParm( 'ENABLE_SOFTFILL', .false. ) call DclNewFrame call DclSetWindow (xmin, xmax, ymin, ymax ) call DclSetViewport ( 0.1, 0.9, 0.1, 0.9 ) call DclSetSimilarity( 0.4, 0., 0. ) call DclSetMapProjectionAngle ( 135., 35., 0. ) call DclSetMapProjectionWindow(-180., 180., 0., 90. ) call DclSetTransNumber( 30 ) call DclSetTransFunction() call DclSetShadeLevel (level, pattern) call DclShadeContour ( p ) call DclSetContourLevel( p, 0.4 ) call DclDrawContour ( p ) call DclDrawMap( 'coast_world' ) call DclDrawGlobe call DclCloseGraphics end program サンプルプログラム
