地球流体電脳ライブラリ (DCL) - PowerPoint PPT Presentation

slide1 n.
Download
Skip this Video
Loading SlideShow in 5 Seconds..
地球流体電脳ライブラリ (DCL) PowerPoint Presentation
Download Presentation
地球流体電脳ライブラリ (DCL)

play fullscreen
1 / 4
地球流体電脳ライブラリ (DCL)
174 Views
Download Presentation
vesta
Download Presentation

地球流体電脳ライブラリ (DCL)

- - - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript

  1. 地球流体電脳ライブラリ(DCL) • 地球流体の研究者に優しい欠損値処理が簡単地図投影が簡単 • Fortran で書ける。Fortran90対応 • 研究教育資源として最適タダである学生が自由に使える

  2. DCL の構造 • 構造化されている移植が容易(UNIX/ Windows対応)

  3. 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 サンプルプログラム

  4. 出力結果