1 / 4

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

地球流体電脳ライブラリ (DCL). 地球流体の研究者に優しい 欠損値処理が簡単 地図投影が簡単 Fortran  で書ける。 Fortran90 対応 研究教育資源として最適 タダである 学生が自由に使える. DCL  の構造. 構造化されている 移植が容易 (UNIX/ Windows 対応 ). program hop use dcl integer, parameter :: n=400 real, dimension(n) :: x, y !------------ data definition -------------

vesta
Download Presentation

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

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

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. 出力結果

More Related