气象绘图软件.DOCVIP

气象绘图软件 条型图 例：：SCI_EX_01 让我们来考察一下某工厂季平均产值（万元）的年变化情况： 第一季度 第二季度 第三季度 第四季度 1995年 300 350 402 380 解：1、数据分析： X轴：文本型，取为四个季度，并标注为“第一季度、第二季度、第三季度和第四季度”。 Y轴：数值型，表示产值。共有三组数据，分别以年份区分。 折线：共有三条，表示不同年份季平均产值。宜用不同颜色、符号区分。 程序清单： ! ---SCI_EX_01.F90 ! ---THIS PROGRAM USES SCIGRAPH PACKAGE TO DRAW BAR_GRAPH. ! USE MSFLIB USE SCIGRAPH PARAMETER(num_RANGES=3,num_AXIS=2,num_perange=4,num_Labels=4, num_legends=3 ) ! ---TO DIMENSION VARIABLES. INTEGER i_quit RECORD /GraphSettings/ barGraph RECORD /DataSettings/ barDataSets(num_RANGES) ! number of data sets (ranges) RECORD /AxisSettings/ barAxes(num_AXIS) ! number of axes REAL*4 barData(num_RANGES,num_perange) CHARACTER*20 barLabels(num_Labels) ! the x labels for the bar graph CHARACTER*20 barDataLegends(num_legends) ! number of data range legends INTEGER retcode INTEGER setLegends RECORD /windowconfig/ wc ! TO SET THE DATA SETS FOR YOUR GRAPH. DATA barData / 300.0, 350.4, 402.5, 380.1, 450.6, 395.7, 410.2, 450.9, 500.2, 550.1, 520.4, 590.8/ DATA barLabels / 第一季度,第二季度,第三季度,第四季度/ DATA barDataLegends / 1995年, 1996年, 1997年 / i_quit = setexitqq(QWIN$EXITPERSIST) if( .not. GetWindowConfig(wc) ) stop Window Not Open ! WHEN YOU PLOT GRAPH WITH SCIGRAPH PACKAGE, ! CALL GetGraphDefaults() first. retcode=GetGraphDefaults($GTBAR,barGraph) barGraph.setGraphMode=.FALSE. barGraph.x2=wc.numxpixels-1 barGraph.y2=wc.numypixels-1 barGraph.title=某工厂连续三年季平均产值 barGraph.title2=单位：百万元 barGraph.titlecolor=$ciblack barGraph.graphbgcolor=$ciwhite barGraph.graphcolor=$ciblack ! THEN, CALL GetLabelMultiDataDefaults() TO SET LABEL DATA. retcode=GetLabelMultiDataDefaults(barGraph,nu