水电站动力设备CAD实验指导书

1、 水电站动力设备计算机辅助设计课程上 机 实 验 指 导 书 水动教研室目 录实验1：技术资料计算机处理水轮机型谱参数表的计算机存取 3实验2：技术资料计算机处理二元插值计算程序设计 4实验3：通用曲线绘图程序的设计 5实验1：技术资料计算机处理水轮机型谱参数表的计算机存取一、 实验目的与要求1） 了解技术资料计算机处理的基本方法2） 自行设计计算机数据存取程序3） 通过上机调试，检验程序的正确性4） 提交源程序与运行结果二、 实验内容1） 拟定水轮机型谱参数表计算机处理的原则与方法。2） 按照“顺序文件”方式存、取水轮机型谱参数，设计程序。分存储程序和读取程序两部分。3） 上机调试程序，修正

2、错误，获得正确结果并以表格形式打印输出计算结果。三、 程序设计指导1） 水轮机型谱参数表参考水轮机教材或水电站设计手册。2） 程序设计可用QB、C、FORTRON等任何语言。3） 要学习各种语言中关于“顺序文件”操作的技术，即文件的建立、数据写入、文件打开、数据读出、文件关闭等基本指令。先进行简单练习后再编写正式程序。4） 文件操作过程-1数据存储：打开一个新数据文件把数据赋给变量把变量写入数据文件关闭文件。5） 文件操作过程-2数据取出：定义需要的变量名打开一个已经建立的数据文件读取数据把数据赋给定义的变量显示或打印数据关闭文件。四、 上机实验指导1 上机时打开机器，进入自己需要的计算语言。

3、例如应用Tuber C 时，要在计算机安装有 Tuber C环境的情况下，找出Tuber C文件夹，打开“TC”环境，输入源程序。2 按照菜单提示运行程序，若有错误，根据提示修正错误。3 数据存储程序运行结果会在指定的磁盘区形成一个数据文件，若没有文件存在说明程序不正确。4 数据读取程序是顺序从磁盘文件中读出存储的数据，读取数据的数量、类型必须与存储的数据一致。可用显示数据的方法检验读取程序的正确性。五、 实验报告要求1. 说明程序设计思路2. 源程序3. 计算结果4. 计算结果分析实验2：技术资料计算机处理二元插值计算程序设计1、实验目的与要求1）二元插值计算的基本方法及在数据处理中的应用2

4、） 自行设计二元插值计算程序3） 通过上机调试，检验程序的正确性4） 提交源程序与运行结果2、实验内容1）以水轮机模型综合特性曲线的插值计算为例进行程序设计。2）插值程序包括二元数组输入、插值变量给定、插值计算、结果打印部分。3） 机调试程序，修正错误，获得正确结果并打印输出计算结果。3、程序设计指导a) 水轮机模型特性曲线水轮机教材或水电站设计手册可选HL160。b) 程序设计可用QB、C、FORTRON等任何语言。c) 值程序包括二元数组的输入、插值变量给定、插值计算、结果打印部分4、上机实验指导1）上机时打开机器，进入自己需要的计算语言。例如应用Tuber C 时，要在计算机安装有 Tu

5、ber C环境的情况下，找出Tuber C文件夹，打开“TC”环境，输入源程序。2）照菜单提示运行程序，若有错误，根据提示修正错误。3）程序的正确性检查可用屏幕显示方法。根据插值计算结果可判断计算正确与否。5、实验报告要求1）说明程序设计思路2）源程序3）计算结果4）计算结果分析实验3：曲线通用绘图程序的设计1、实验目的与要求1）了解曲线类通用绘图程序设计的基本原理。2）自行设计通用曲线绘制计算程序3）通过上机调试，检验程序的正确性4）提交源程序与运行结果2、实验内容1）以SIN、CON曲线为例进行通用绘图程序设计。要求可以绘制任意曲线类图形。2）上机调试程序，修正错误，获得正确结果并打印输出

6、计算结果。3、程序设计指导1）以SIN、CON曲线为例进行通用绘图程序设计，也可自行选取其他曲线图形。要保证程序的通用性。2）程序设计可用VB、C等任何语言。3）自行选择语言，但要学习该语言的绘图基本指令。3） 教材上的例程序可供参考，但不可照抄。4、上机实验指导1）上机时打开机器，进入自己需要的计算语言。例如应用Tuber C 时，要在计算机安装有 Tuber C环境的情况下，找出Tuber C文件夹，打开“TC”环境，输入源程序。2）照菜单提示运行程序，若有错误，根据提示修正错误。3）程序的正确性检查可用屏幕显示方法。根据插值计算结果可判断计算正确与否。5、实验报告要求1）说明程序设计思路

7、2）源程序3）计算结果4）计算结果分析实验报告例：一、 实验项目名称:图形输入/输出计算机程序二、 实验目的：1）了解用图形部件方法定义图形部件、输入图形部件的方法与程序设计；2）了解图形屏幕输出的基本原理与程序设计。三、 程序设计思路1） 图形部件输入计算机，首先要用计算机的基本绘图指令定义图形部件，BASIC语言定义图形部件的方法是用DRAW指令，把图形的参数连同绘图指令定义成一个字符串，例如：定义一个矩形A$:下画20单位，右画18单位上画20单位，左画18单位。 L18D20 U20 A$=”D20R18U20L18” R18 2）用BM指令把绘图笔移动到图形部件的指定坐标点（X，Y）

8、2） 用DRAW A$指令把图形部件画到指定位置。 四、 源程序 '输入园的参数' READ xc, YC, rc: DATA 100,180,40 '输入滤水器图形部件 及其坐标' FOR I = 1 TO 2: READ XS(I), YS(I): NEXT I: DATA 202,150,292,150 LS$ = "D20L14U20R14M-14,20" '输入水平阀门及其坐标' V1$ = "D8M+10,-8D8M-10,-8" FOR I = 1 TO 4: READ V1X(I), V1Y

9、(I): NEXT I DATA 170,150,300,150,210,156,260,156 '输入竖阀门及其坐标' V2$ = "R8M-8,10R8M-10,-10" FOR I = 1 TO 2: READ V2X(I), V2Y(I): NEXT I: DATA 190,180,280,180 '输入管道' LIN$(1) = "BM100,140R30D14U14M+30,-20R80D40R19BR11R9BR12BU6R10BR10R40D96" LIN$(2) = "BM240,160L19B

10、L11L9BM-12,-6L10BL10L10D96R240M-8,-2BD4M+8,-2" LIN$(3) = "BM195,170D10BD10D20R130M-8,-2BD4M+8,-2" LIN$(4) = "BM285,170D10BD10D20" '图形输入完毕' '屏幕显示图形' SCREEN 12 '画蜗壳' CIRCLE (xc, YC), rc '画滤水器' FOR I = 1 TO 2: ZB$ = "BM" + STR$(XS(I) + "," + STR$(YS(I) DRAW ZB$: DRAW LS$ NEXT I '画水平阀门' FOR I = 1 TO 4: ZB$ = "BM" + STR$(V1X(I) + "," + STR$(V1Y(I) DRAW ZB$: DRAW V1$ NEXT I '画竖向阀门'