UCDOS汉字系统下一个实用FORTRAN图形子程序 - Dator.PDF

水利水文 自动化 1996年第 3期 UCDOS汉字系统下一个实用 1 、 、 ／ FORTRAN 图形子程序 订 一；。 张火青 闽要武 P3 (武汉水利 电力大学) (长江水利委员会水文局) P33弓 n 提要 丰文提供了一个UCDOS汉字系统下的FORTRAN图形子程序。它年ll用UCDOS特 殊显示模块中的作图功能，可在屏幕上较精确地画出不同颤色的水位、流量或雨量过程缦。在水文 模拟和水文气象预报等工作中，需要对照计算与实捌过程线时，试程序特别实用． 在水文分析计算、水文摸拟和水文气象 WRITE (*，1) CHAR (14)，’ 预报中，经常需要 比较计算的和实测的水文 [CIOKB1，OCU1，()cO2R65，15，615， 时问序列，如计算水位和流量过程线同实测 375]’ 过程线的对比。在水文分析计算工作巾，目前 CHAR (14)和’[是 UCDOS特殊显示 广泛使用的计算机编程语言是 FORTRAN 控制命令的起始标志，] 是结束标志。CIO： 语言。对于非计算机专札的广大水文工作者 将屏幕清除为第0种颜色 (黑色){KB1，O：关 来说，用FORTRAN语言编制图形程序具有 闭UCDOS提示行 (KB1，l显示提示行)； 一 定难度 。因为这往往需要掌握FORTRAN CU1，0：禁止光标显示 (CU1，1：允许光标 语言以外的其他汁算机专业知识，因而只始 ．显示)；CO2：用第2种颜色作图；R65，15， 得到计算的数值结果。若要了解和分析计算 615t375：画一矩形，左上角和右下角的坐 同实测过程的拟台情况，就需要 由人工将数 标分别为 (65，15)和 (615，375)。 据点绘在坐标纸上．若不渐意，则需要重新 电脑屏幕的坐标原点在屏幕的左上角。 计算后再次绘图，很不方便。 本程序使用的屏幕分辨率为640×480 笔者在工作 巾编制了一个 FORTRAN WRITE (CID，’(12)’)IDX 图形于程序，它利用新一代汉字系统 UC· 将变量 IDx的值赋值给字符变量 CID。 [YOS3-1特殊显示填块巾的作用功能，能在屏 WRITE (*，1) CHAR (27)．’ 幕上 以不同颜色较精确地显示水文过程线 [22；’／／CID／／’H’ 在水文模拟和水文预报等工作中，将该子程 光标定位语句 将光标定位在22行．字符 序直接加入到您的工作程序中，可以挟速直 变量CID的值 (为字符常量)所代表的列 符 观地对比计算和实测过程 该程序具有坐标 号／／为字符连接符。详细请见参考文献1 换算的功能，调用电十分方便。同利用FOR- WRITE (*． 1) CHAR (14)， TRAN图形库绘图扣比 该程序较为简单． [c015I465，45．51O，453’ 易于为广大非计算机专、l的水文工作者所掌 以第15种颜色 (白色)划一条直线，直 握 、 线的起始年1I结束坐标分别是 (465，45)和 为便于读者理解并根据 自己的实际需要 (51o，45)。 进行修改 ．有必要