河流模拟课设
七年级地理上册《河流》教案、教学设计
作业要求：
1.学生需按时完成作业，确保作业质量。
2.作业内容要真实、客观，切勿抄袭。
3.提交作业时，要求字迹清晰、表述准确、条理分明。
4.教师将根据作业完成情况进行评价，给予反馈和指导。
4.培养学生的团队精神，让学生在合作学习中体验成功，增强自信心，形成积极向上的人生态度。
本章节教学设计以“河流”为主题，紧密结合学科知识，注重培养学生的实践能力、探究精神和环保意识。在教学过程中，教师应以学生为主体，关注学生的个体差异，激发学生的学习兴趣，引导学生主动参与、积极思考，使学生在掌握知识的同时，提高综合素质。
-关注学生在学习过程中的表现，鼓励学生自我评价和反思，提高学生的自主学习能力。
-给予学生及时的反馈和指导，激发学生的学习积极性，帮助他们克服学习难点。
4.教学难点突破：
-针对地理空间思维能力培养，设计地图解读、地形分析等环节，逐步提高学生的地图使用能力。
-通过实例分析，让学生深入了解河流资源利用与保护的问题，培养学生的环保意识和可持续发展观念。
在教学过程中，教师应充分了解学生实际情况，因材施教，激发学生的学习兴趣，引导他们主动参与教学活动，从而提高教学效果。
三、教学重难点和教学设想
（一）教学重难点
1.理解河流的地理特征及其对地理环境的影响，特别是河流的流程、流域、水系等概念的掌握。
2.掌握我国主要河流的分布、特点及其与人类活动的关系，分析河流资源利用与保护的问题。
4.掌握河流与人类活动的关系，了解河流资源利用与保护的重要性，提高学生的环保意识。
（二）过程与方法
1.采用问题驱动的教学方法，引导学生提出问题、分析问题、解决问题，培养学生的探究精神。
流域水质模型与模拟课件
K1L0 K1 K2
(e 1x
e2x )
2
u 2E
1
1
4EK2 u2
（2）忽略河流的弥散作用，则为
解析解
u
dL dx
K1 L
u
dC dx
K1L
K2
Cs
C
L
K1 x
L0e u
L0 e K1t
C
Cs
Cs C0
ek2t k1L0 k1 k2
e e k1t
k2t
氧垂曲线
溶解氧沿程变化曲线被称为氧垂曲线
案例分析——S-P模型
向一条河流稳定排放污水，污水排放量 Qp = 0.2 m3/s， BOD5 浓度为 30 mg/L，河流流量 Qh = 5.8 m3/s，河水平均 流速 v = 0.3 m/s，BOD5 本底浓度为 0.5 mg/L，BOD5降解 的速率常数 k1 = 0.2 d-1，纵向弥散系数 D = 10 m2/s，假定 下游无支流汇入，也无其他排污口，试求排放点下游5 km 处的 BOD5 浓度。
定义 把一个连续的一维空间划分成若干个子空间，每一个 子空间都作为一个完整混合反应器，将上一个反应器 的输出视为下一个反应器的输入
设 C1，C2，…，Ci 为相应河段的污染物浓度，每一个河 段的浓度表达式
C1
C10 1 KdV1
Q1
C2
C20 1 KdV2
Q2
Ci
Ci 0 1 KdVi
河流水质变化过程
河流水质变化过程
河流水质模型分类（按维数） 零维 一维 二维 三维
第三章 河流水质模型
零维水质模型
定义 污染物进入河流水体后，在污染物完全均匀混合断面 上，污染物的指标无论是溶解态的、颗粒态的还是总 浓度，其值均可按节点平衡原理来推求。对河流，零 维模型常见的表现形式为河流稀释模型。
新苏教版(新教材)三年级上册小学科学教案 第12课 河流与湖泊
12.河流与湖泊【教材分析】这是本单元的第一课，主要是让学生初步了解水在地球上的分布，知道我国淡水资源匮乏，提高学生的节水意识。
第一，引导学生观察，知道大自然创造了奇观；第二，学生实验，了解河流与湖泊的形成原因；第三教育学生节约用水。
【学情分析】在学习本课之前，学生已经对水的形态和性质有了一定的了解。
但因学生身处美丽的锦江边，从小到大天天跟水打交道，拥有非常充足的水资源，对淡水的用途认识不充分,对浪费水的现象熟视无睹，对淡水的匮乏感受不足,他们无法或者很难体会到世界上淡水资源的缺乏和水污染的严重。
因此，本课重点在于激活学生的“节水意识”。
【教学目标】科学知识：1．初步了解水在地球上的分布状况，天然形成的，水域大的，如江、河、湖和海；水域小的如池塘、小溪和山涧。
还有人工水域如水库等。
2．知道河流与湖泊是重要的淡水资源，也是许多生物的家园。
科学探究：1．在教师引导下，能基于已有经验和所学知识，观察、比较地球上的水，发现有的水域大，有的水域小；发现有的是天然形成的水域，有的是人工水域。
2．能利用学具模拟河流与湖泊的形成。
科学态度：1．能在好奇心的趋势下，乐于尝试用多种材料完成模拟河流与湖泊的形成。
2．能分工协作，进行多人合作探究学习。
科学、技术、社会与环境：1．了解知道河流与湖泊是重要的淡水资源，要保护好水资源不让其被破坏。
2．要节约用水，激发学生对祖国大好河山的喜爱之情。
【教学重点】、知道地球上的水分布在江、河、湖、小溪、水库冰川和地下等，淡水资源缺乏要保护其不被污染。
【教学难点】利用学具模拟河流与湖泊的形成。
【教学准备】教师材料：课件、塑料瓶6个、塑料盆6个、油泥等。
学生材料：植被模型、假山模型、房屋模型，课前搜索河流与湖泊的相关资料。
【教学时间】1课时【教学过程设计】一、提问导入1．师：同学们，我们一起来观赏一些美丽的风景，大家注意观察这些美丽的风景中有没有相同的元素？（学生观赏。
）大家找到相同的元素了吗？（有水。
地理实验设计——河流地貌模拟实验
张 海1 陈清楚1 郭文媛2（1.西北师范大学.教育学院,甘肃.兰州.730070;.2.兰州市第三中学,甘肃.兰州.730030）地理实验设计——河流地貌模拟实验河流地貌是一种最常见的地貌类型，是高中阶段自然地理教学的重点之一。
河流地貌的形成过程历经长时期的变化，其形成地点大多远离学生直接接触的生活环境，因此很多学生感到难以理解河流地貌的形成原因。
河流作用较为复杂，所以理想的河流地貌实验是在室内大型场所，全程模拟降水、河道和地表物质等因素，同时尽可能多地展现河流从上游到下游的所有地貌类型。
但对于中学教学而言，这样操作显然既没有必要也不现实。
中学涉及的河流地貌类型较少，实验教学的主要目的是让学生通过直观观察体会河流作用的影响，因此要适当突出观察重点，控制好关键变量，让学生能够集中注意力观察特定部位发生的显著变化。
为此，我们设计了四个简单实验，分不同河段来认识局部地区主要的河流地貌形成过程。
这四个实验可以分不同时间进行，待全部实验结束后，教师可以在此基础上再引导学生从整体视角理解河流地貌的发育过程。
由于河流的搬运作用很容易理解，所以这四个实验重点关注了侵蚀和堆积作用下几种常见的典型河流地貌类型。
实验一是发生在河流上游的侵蚀模拟实验。
学生可以观察到下蚀、侧蚀和溯源侵蚀现象。
教师也可以进一步和水土流失实验结合进行演示。
实验二模拟了河流上游山口附近的堆积地貌形成过程。
学生可以观察到明显的形似扇状的沉积物质。
实验三是发生在河流中游的侵蚀模拟实验。
凸岸和凹岸的对比效果非常直观。
实验四模拟了河流末端（入海口）附近的堆积地貌，虽然实际的三角洲形成机制更为复杂，但该实验基本上能够说明其形成的大致机理过程。
教师也可以引导学生比较三角洲与冲积扇的形成过程，分析它们的差异。
总体来看，第一个实验操作稍复杂，后三个实验操作简单，但结果都非常直观，能够有效激发学生的学习动机，有助于他们掌握相关知识并形成科学的思维方式。
实验一：河流上游侵蚀地貌模拟实验1.实验原理与实验目标(1)实验原理：河流在流动过程中，会破坏和搬运地表物质，形成侵蚀地貌。
晋教版八年级地理上册2.3《数以万计的河流》教学设计
晋教版八年级地理上册2.3《数以万计的河流》教学设计一. 教材分析《数以万计的河流》是晋教版八年级地理上册第二章第三节的内容。
本节主要介绍了中国河流的分布、特点及其对地理环境的影响。
通过本节课的学习，学生可以了解我国河流的地理分布，掌握主要河流的特点，以及河流对我国地理环境的重要性。
教材内容主要包括以下几个部分：1.我国河流的分布特点2.主要河流的概况3.河流对地理环境的影响4.保护河流资源的措施二. 学情分析学生在学习本节课之前，已经掌握了我国地理的基本知识，对地理环境有一定的认识。
但他们对河流的知识了解有限，对河流的分布、特点及其对地理环境的影响的认识尚不深入。
因此，在教学过程中，教师需要以学生已有的知识为基础，引导学生深入探讨河流的相关知识。
三. 教学目标1.知识与技能：了解我国河流的分布特点，掌握主要河流的概况，理解河流对地理环境的影响。
2.过程与方法：通过地图、图片等资料，培养学生的观察能力和分析能力。
3.情感态度与价值观：培养学生对河流资源的保护意识，提高他们关爱环境的观念。
四. 教学重难点1.我国河流的分布特点2.主要河流的概况3.河流对地理环境的影响五. 教学方法1.情境教学法：通过展示河流的图片、地图等资料，引导学生观察、分析河流的分布特点。
2.案例教学法：以我国主要河流为例，详细介绍河流的概况，使学生深刻理解河流的知识。
3.讨论教学法：学生分组讨论，探讨河流对地理环境的影响，培养学生的合作意识。
六. 教学准备1.准备相关的图片、地图等资料。
2.准备案例教学所需的主要河流的相关资料。
3.准备讨论话题，引导学生深入探讨。
七. 教学过程1.导入（5分钟）利用图片、地图等资料，引导学生观察我国河流的分布特点，激发学生的学习兴趣。
2.呈现（10分钟）详细介绍我国主要河流的概况，如长江、黄河、珠江等，使学生掌握河流的基本知识。
3.操练（15分钟）分析河流对地理环境的影响，如河流对地形、气候、植被等方面的作用。
苏教版小学科学新三年级上册科学4.12河流与湖泊 (教案)
湖是封闭的有陆地包围水域。河是线性流动的水体。
（二）模拟河流与湖泊的形成
1.想一想在下大雨的时候，我们校园里，小区里什么情况下会有小河流出？
在下大雨，凹陷的地方会有小水流。
2.当有不断流动的水流，水流很急，雨水又多的时候，会怎么样呢？
会在凹陷的地方，聚集起来，形成小水坑。
结论：河流和湖泊的形成主要来源于降水，经常不断地流动的水，形成地面径流，水在“槽”中流动，形成河流。
当水越聚越多，便开始向地势低的地方流动汇集在地形凹处，积水成湖泊。
河流和湖泊的水来自哪里？
雨水，泉水，雪山融化等。
（三）河流与湖泊的功能
河流与湖泊是重要的淡水ຫໍສະໝຸດ 源，也是许多生物的家园。1.你知道河流与湖泊淡水资源中，孕育着哪些生物？
通过视频激发学生兴趣，导入课题。
讲授新课
（一）水资源的多样性
2.出示：黄河、湖泊、河塘和水库的图片
（1）找学生分辨出：黄河、湖泊、河塘和水库。
（2）说一说，它们有什么不同？
学生讨论，小组代表发言。
教师：自然界中，有的水域大，蓄水量多，如江河湖海；有的水域小，蓄水量少，如池塘、小溪、山涧。除了天然形成的水域，还有人工水域，如水库。
通过活动、了解河与湖的区别。
让学生掌握河流与湖泊形成的原因。
课堂练习
一、判断
1.小蝌蚪不生活在湖泊中。（）
2.海，水域大，蓄水量多。（）
二、选择
河流与湖泊不能为人类造福的是（）。
A.航运B.水灾C.发电
课堂巩固练习，加深对课堂知识的理解
培养学生的练习习惯，不断巩固所学。
作业布置
到家乡的河流与湖泊去观察有些生物在活动，做好记录，和同学们一起分享。
河流模拟课程设计—水库一维泥沙-淤积计算【范本模板】
水库一维泥沙淤积计算课程设计武汉大学水利水电学院2013-3-15目录一、目的与要求 (1)二、基本原理 (1)1、基本方程 (1)2、方程离散 (1)3、公式补充 (2)三、计算步骤 (3)四、计算框图 (4)五、计算结果 (5)1、历年输沙量特征值 (5)2、各年淤积总量 (5)3、各年水位库容关系 (6)4、水面线的变化 (7)5、深泓变化 (8)6、坝前断面变化 (9)六、结果分析 (12)1、剖面形态分析 (12)2、库容损失合理性分析 (12)七、计算程序 (13)一、 目的与要求通过课程设计,初步掌握一维数学模型建立数学模型的基本过程和计算方法，具备一定的解决实际问题的能力。
以水流、泥沙方程为基础,构建恒定流条件下的河道一维水沙数学模型，并编制出完整的计算程序，并以某个水库为实例，进行水库泥沙淤积计算。
水流条件:恒定非均匀流。
泥沙条件：包括悬移质，推移质的均匀沙模型，推移质计算模式为饱和输沙，悬移质计算模式为不饱和输沙，水流泥沙方程采用非耦合解。
二、 基本原理1、 基本方程水流连续方程：0=∂∂+∂∂xQt A ①水流运动方程()f i i gA x hgA AQ x t Q -=∂∂+⎪⎪⎭⎫ ⎝⎛∂∂+∂∂02②或 034222=+∂∂+⎪⎪⎭⎫ ⎝⎛∂∂+∂∂RA n Q g x z gA A Q x t Q ③泥沙连续方程()())(*S S QS xSA t --=∂∂+∂∂αω ④ 河床变形方程)(*00S S xG t y b--=∂∂+∂∂αωρ ⑤ 推移质平衡输沙方程G=G * ⑥水流挟沙力公式采用张瑞瑾公式,推移质输沙率公式采用Mayer —_Peter 公式，MAYER—PETER 公式中的能坡J 按均匀流曼宁公式近似计算（每个断面不同）。
2、 方程离散方程 ①在恒定流情况下有0=∂∂xQ，离散为：Q=const 方程 ③变形为034222=+∂∂+⎪⎪⎭⎫ ⎝⎛∂∂R A n Q x z A Qx gA Q 或 023422222=+∂∂+⎪⎪⎭⎫ ⎝⎛∂∂R A n Q x z gA Q x 上式离散为0)1((213434221212121222121=ψ-+ψ∆+-+⎪⎪⎭⎫ ⎝⎛-++++++jj j j j j j j j j j j R A Q R A Q xn z z A Q A Q g 方程（4）去掉时间项得到)(*S S qx S --=∂∂αω 该方程的解析解为：()()⎪⎪⎭⎫ ⎝⎛⎪⎪⎭⎫ ⎝⎛∆--∆-+⎪⎪⎭⎫⎝⎛∆--+=+++q x x q q x S S S S S S j jjjj j αωαωαωexp 1exp 1***1*1 由方程(4—5）可得()()00'0=∂∂+∂∂+∂∂ty B x QS x BG b ρ 对2 号断面以下，上式可以离散为：()()()()0)1(1010'0=⎪⎪⎭⎫⎝⎛∆ψ+ψ-+∆-+∆-++ty B y B xQS QS xBG BG j j j j b b ρ对于进口断面，推移质不考虑，悬移质采用单点离散 方程（5）可离散为： '01*10)(ραωtS S y ∆-=∆3、 公式补充mgR u k S ⎪⎪⎭⎫ ⎝⎛=ω3*K 取 0。
《河流与湖泊》教案
《河流与湖泊》教案《河流与湖泊》教案（精选10篇）《河流与湖泊》教案篇1目标1、通过研讨、阅读和建立模型，能识别出河流、湖泊等常见水体类型。
2、乐于参与、分工协作完成河流（或湖泊）模型的设计与制作，知道河流、湖泊的来源和地形特点。
3、借助研讨、阅读，能说出生活在水体不同位置的淡水生物名称。
学生的学习任务1、识别出河流、湖泊等常见水体类型并能说出水体的特征。
2、完成河流与湖泊模型的设计与制作，说出生活在水体不同位置的淡水生物名称检测工具题卡：1、回忆家乡或你去过的地方有哪些水体并说说它的特征。
2、说出水体里生活着哪些淡水生物？3、这些水体对生活在周围的人们又哪些影响？过程设计激情导课从太空遥望我们的地球就像一个蓝色的大水球，那是因为（地球上有很多水）。
是的，如果把我们的地球平均分成10分，只有3分的陆地，剩下的7分都是海洋，就是我们常说的“三分陆地，七分海洋”。
地球为我们提供了丰富的水资源，我们今天先来一起学习陆地上的水资源。
民主导学活动一：认识各种水体及特征1、交流课前收集的家乡或你去过的地方有哪些河流与湖泊。
（潇河、汾河、黄河、乌马河……玉湖、西湖、青海湖……）2、这些河都叫河流，这些湖都叫湖泊。
哪河流与湖泊有什么不同呢？3、老师带来了河流与湖泊的优美风景图，大家看后又发现了什么不同？（认识到形态、流速不同。
河流一般是弯弯曲曲的，水是沿着狭长的凹地从高处向低处流动；湖泊的水一般比较平静，水是蓄积在洼地里的）4、那你能不能试着用简图来表示河流与湖泊？板画过渡：这些地方都因水的存在而美丽壮观，他们统称为水体。
5、除了河流和湖泊你身边还有哪些水体？生回答：池塘、水库、小溪……6．它们有什么不同呢？师概括：蓄水量不同，面积不同，形状不同，功能不同……7．谁能从这三个方面具体说说，出示PPT。
总结：在我们地球上，河流与湖泊并不都是天然形成的，还有些是人工建造的，如京杭大运河，瘦西湖等。
8、完成活动手册［设计意图：充分调动学生已有经验，拓展学生的视野，扩大对水资源的认识。
4.3河流地貌的发育教学设计(课比赛)
在讲授新知阶段，教师按照以下步骤进行：
1.概述河流地貌的基本概念、类型及特点，如峡谷、河谷、冲积平原、三角洲等；
2.详细讲解河流侵蚀、搬运、沉积等作用对地貌形成的影响，阐述内外因素在河流地貌发育过程中的作用；
3.通过地图、剖面图等工具，分析河流地貌的分布、发育规律，使学生了解不同地貌类型的形成原因；
（五）总结归纳，500字
在总结归纳阶段，教师带领学生回顾本节课所学内容，总结河流地貌的类型、特点、发育过程及其影响因素。
1.河流地貌类型：峡谷、河谷、冲积平原、三角洲等；
2.河流地貌发育过程：河流侵蚀、搬运、沉积等作用；
3.影响因素：地质构造、气候、水文、地形等；
4.河流地貌对人类活动的影响：生态环境、水资源、土地利用等。
（3）结合所学知识，撰写一篇关于河流地貌对当地生态环境、人类活动影响的短文，提高学生的分析问题和解决问题的能力。
2.选做作业：
（1）查阅资料，了解我国其他著名河流地貌的分布、特点及成因，制作成PPT，下节课与同学分享；
（2）开展实地考察，观察家乡附近的河流地貌，拍摄照片或录制视频，结合所学知识，分析地貌形成过程；
4.3河流地貌的发育教学设计(课比赛)
一、教学ቤተ መጻሕፍቲ ባይዱ标
（一）知识与技能
1.了解河流地貌的基本概念，认识河流地貌的类型及特点，如峡谷、河谷、冲积平原、三角洲等。
2.掌握河流地貌发育的内外因素，了解河流侵蚀、搬运、沉积等作用对地貌形成的影响。
3.学会运用地图、剖面图等工具，分析河流地貌的分布、发育规律及其与地质构造、气候、水文等要素的关系。
（3）针对本章节学习内容，提出一个具有探究性的问题，设计研究方案，开展小课题研究。
“河流地貌”教学设计
课堂教学群参考81202丨年第3期•下“河流地貌”教学设计吕陈玲(江苏省南京市六合区程桥高级中学，江苏南京)[教材版本]人教版教材(2019年版）高中《地理》必修第一册第四章第一节“常见地貌类型”第2课时“河流地貌”。
[课标解读]课标对“地貌”部分的内容要求是“通过野外观察或运用视频、图像，识别3~4种地貌形态，描述其景观的主要特点”。
根据课标要求可以将“河流地貌”细化为以下四个方面。
(1) 通过野外调查或借助图片、视频识别河谷、河曲、冲积平原等不同形态的河流地貌。
(2) 理解流水侵蚀地貌的形成过程，能够说出并 画出不同河段河谷的演变过程示意图。
(3) 掌握流水堆积地貌类型，阅读各类河流堆积 地貌示意图，说明其形成原因及地貌特点。
(4) 举例说明河流地貌与日常生活的关系。
[教材分析]本节课选自人教版教材(2019年版）高中《地理》必修第一册第四章第一节“常见地貌类型”，该节内容可分为四课时，分别为“喀斯特地貌”“河流地貌”“风沙地貌”及“海岸地貌”，本节课是第2课时（河流地貌）的具体教学活动安排。
教材中的三幅插图“澜沧江上游的‘V’形河谷”“冲积平原”“呼伦贝尔草原上的河曲和牛轭湖”，让学生直观感受不同河段河谷形态的差异，从而识别“‘V’形河谷”“槽形谷”“河曲”“牛轭湖”等河流侵蚀地貌，同时借助“三角洲”插图引出在地势平缓地区形成的“冲积平原”及“三角洲”等河流堆积地貌，最后以“‘年轻’的黄河三角洲”进行案例分析，旨在让学生理解河流地貌处于不断变化当中，它与人们日常生活息息相关，要辩证看待河流地貌对人类生产生活带来的影响。
[学情分析]教材第三章介绍了各种水体相互转换的方式、水循环环节及类型，学生已知晓河流具有侵蚀、搬运、堆积等作用，理解了水循环具有不断塑造地表形态的重要意义，这为本节课的学习打下了扎实基础。
[教学目标]通过野外调查及模拟冲（洪）积扇形成的实验，识别并画出各种河流侵蚀地貌和堆积地貌（地理实践力）。
水文模型课程设计沿渡河
水文模型课程设计沿渡河一、教学目标本节课的教学目标是让学生了解和掌握水文模型的基本概念、原理和方法，能够运用水文模型对河流的水文过程进行模拟和预测。
具体来说，知识目标包括：了解水文循环的基本过程；掌握水文模型的分类、原理和应用；理解河流水文过程的时空变化规律。
技能目标包括：能够运用水文模型进行河流水文过程的模拟和预测；能够分析水文模型的优缺点，选择合适的水文模型进行应用。
情感态度价值观目标包括：培养学生的环境保护意识，提高学生对水资源的珍惜和合理利用的认识。
二、教学内容本节课的教学内容主要包括水文模型的基本概念、原理和方法。
首先，介绍水文循环的基本过程，包括蒸发、降水、地表径流和地下径流等。
然后，讲解水文模型的分类，包括经验模型、物理模型和过程模型等，并介绍各种模型的原理和应用。
接着，介绍河流水文过程的时空变化规律，包括河流径流的季节变化、年际变化和空间分布特征。
最后，通过案例分析，让学生了解水文模型在实际工程中的应用，如洪水预警、水资源管理和河流生态修复等。
三、教学方法为了激发学生的学习兴趣和主动性，本节课采用多种教学方法相结合的方式。
首先，采用讲授法，系统地讲解水文模型的基本概念、原理和方法。
其次，采用案例分析法，通过分析具体的工程案例，让学生了解水文模型在实际中的应用。
再次，采用讨论法，引导学生分组讨论，探讨水文模型的优缺点和适用条件。
最后，采用实验法，让学生亲手操作实验设备，验证水文模型的原理和预测结果。
四、教学资源为了支持教学内容和教学方法的实施，本节课准备了一系列的教学资源。
教材方面，选用《水文学》作为主教材，辅助以《水文模型》等参考书籍。
多媒体资料方面，制作了详细的PPT课件，展示了水文模型的原理和应用案例。
实验设备方面，准备了计算机、投影仪、实验模型等设备，用于实验演示和操作。
此外，还提供了相关的网络资源，如水文学术论文、水文模型软件等，供学生自主学习和参考。
五、教学评估本节课的教学评估采用多元化的评估方式，以全面、客观地评价学生的学习成果。
2024-2025学年八年级地理上册2.3河流教学设计(新版)粤教版
三、实践活动（用时10分钟）
1.分组讨论：学生们将分成若干小组，每组讨论一个与河流相关的实际问题。例如，讨论河流对城市发展的影响、河流污染治理等。
2.实验操作：为了加深理解，我们将进行一个简单的实验操作。这个操作将演示河流的水文特征，如河水流速和水位变化。
4. 模拟实验：设置河流水流方向的模拟实验，让学生直观理解河流的形成和发育。
5. 互动提问：通过提问、抢答等形式，激发学生的学习兴趣，提高学生的参与度。
五、教学流程
一、导入新课（用时5分钟）
同学们，今天我们将要学习的是《河流》这一章节。在开始之前，我想先问大家一个问题：“你们在日常生活中是否遇到过河流对地理环境产生影响的情况？”（举例说明）这个问题与我们将要学习的内容密切相关。通过这个问题，我希望能够引起大家的兴趣和好奇心，让我们一同探索河流的奥秘。
7. 河流的利用与保护：合理的利用河流资源，如水资源、土地资源等，同时加强河流生态保护，防止河流污染和过度开发。
8. 流域管理与生态保护：流域管理是指对河流流域内的资源、环境和生态进行综合管理，以实现流域的可持续发展。生态保护包括保护河流的水质、生态环境和生物多样性等。
9. 河流案例分析：分析我国不同河流的特点、形成原因及其对地理环境的影响，如长江三峡库区的土地利用变化、黄河流域的水土流失治理等。
二、新课讲授（用时10分钟）
1.理论介绍：首先，我们要了解河流的基本概念。河流是地表水流的主要形式，它由水源、河道和流域组成。河流在地理环境中扮演着重要的角色，如水源供应、土壤侵蚀和沉积、生态系统维持等。
2.案例分析：接下来，我们来看一个具体的案例。这个案例展示了河流在实际中的应用，以及它如何帮助我们解决问题。例如，长江流域的农业发展受益于河流的水源供应，而黄河流域的土壤侵蚀问题则需要通过河流治理来解决。
漂流研学课程设计
漂流研学课程设计一、课程目标知识目标：1. 学生能够理解漂流研学的概念，掌握相关的地理、历史知识。
2. 学生能够描述漂流过程中的自然景观、生态环境及人文特色。
3. 学生能够掌握漂流研学的安全知识和实践技能。
技能目标：1. 学生能够运用地图、指南针等工具，进行实地漂流过程中的定位和导航。
2. 学生能够通过观察、访谈等方法，收集、整理和分析漂流过程中的各类信息。
3. 学生能够运用所学知识，解决漂流过程中遇到的问题，提高实际操作能力。
情感态度价值观目标：1. 学生培养对自然环境的热爱和敬畏之心，增强环保意识。
2. 学生培养团队合作精神，提高沟通、协调能力。
3. 学生培养勇于探索、克服困难的精神，树立自信、自强的价值观。
4. 学生通过漂流研学活动，增强对本土文化的认同感，培养家国情怀。
课程性质：本课程为综合性实践活动课程，结合地理、历史等学科知识，注重实践性和体验性。
学生特点：六年级学生具备一定的独立思考能力，好奇心强，求知欲旺，具备一定的团队合作意识。
教学要求：课程设计要注重理论与实践相结合，充分调动学生的积极性，引导他们主动探索、发现和解决问题，提高综合素质。
同时，注重培养学生的安全意识，确保活动顺利进行。
通过课程目标的分解，使学生在知识、技能和情感态度价值观方面取得具体的学习成果，为后续教学设计和评估提供依据。
二、教学内容1. 漂流研学基础知识：介绍漂流研学的定义、起源及发展历程，关联教材中地理、历史相关章节，让学生了解漂流活动与自然、人文环境的关系。
- 地理知识：地理位置、地形地貌、气候特点等。
- 历史知识：漂流活动的起源、历史典故、地区文化等。
2. 漂流过程中的自然与人文景观：分析漂流路线上的景观特点，关联教材中关于生态环境、动植物、地质地貌等内容。
- 生态环境：河流生态系统、湿地保护等。
- 动植物资源：沿线动植物种类、特点及其保护。
- 地质地貌：河流地貌、地质构造等。
3. 漂流实践技能：教授漂流过程中的实用技能，关联教材中安全知识、户外技能等内容。
河流模拟课设
program mainparameter (nn=31,mm=80,nd=3653,ny=10,fai=1.0,ndisp=0,npxt=31,fai1=0.5) parameter(rs=2650*9.8,r=9800,w=0.0012,rou0=1325.0,dt=86400.0,d=0.002,rou=1000,rous=2650) dimensionx(mm,2,nn),rough(nn),dx(nn),zlevel(nn),Q(nn),Npoint(nn),b(nn),Q0(nn),QQ(nd) dimension a(nn),xw(nn),dxa(nn),s(nn),alow0(nn),alow(nn),h(nn)dimension u(nn),sx(nn),gb(nn),dy(nn),nday(ny)data Nday /365,731,1096,1461,1826,2192,2557,2922,3287,3653/open(10,file='地形.txt',status='old')open(12,file='深泓.txt',status='unknown')write(12,91)91 format(3x,'断面号',6x'距坝里程(千米)',3x,'深泓(米)')open(13,file='水面线.txt',status='unknown')write(13,92)92 format(3x,'断面号',6x'距坝里程(千米)',3x,'水面线高程(米)')open(14,file='初始水位库容.txt',status='unknown')write(14,93)93 format(3x,'年',6x'水位(米)',3x,'库容(亿立方米)')open(15,file='年淤积总量.txt',status='unknown')write(15,94)94 format(3x'年',3x'淤积总量(万立方米)',3x'年径流量（万方）',3x'累计输沙量（万吨）',3x'年均流量（万方）')open(16,file='深泓（十年）.txt',status='unknown')write(16,95)95 format(3x'年',3x'断面号',3x'深泓(米)')open(17,file='坝前断面（十年）.txt',status='unknown')write(17,96)96 format(3x'年',3x'起点距(米)',3x'高程(米)')open(18,file='水位库容（十年）.txt',status='unknown')write(18,97)97 format(3x,'年',6x'水位(米)',3x,'库容(亿立方米)')!===========================================================!======================读入地形数据=========================!===========================================================do i=1,npxtread(10,*)read(10,*)n1,npoint(i),dx(i),d1,dxa(i),rough(i)read(10,*)(x(j,1,i),j=1,npoint(i))read(10,*)(x(j,2,i),j=1,npoint(i))end do!===========================================================!======================读入糙率=============================!===========================================================do i=1,npxtrough(i)=0.06enddo!=========================================================== !====================断面间距计算=========================== !=========================================================== do i=1,30dx(i)=dxa(i)-dxa(i+1)end do!=========================================================== !====================判断读入数据的准确性=================== !=========================================================== do i=1,npxtdo j=2,npoint(i)if(x(j,1,i)-x(j-1,1,i)<0)thenwrite(*,*)'mistake!'endifenddoenddo!=========================================================== !===================计算初始深泓并输出====================== !=========================================================== do i=1,npxtalow0(i)=x(1,2,i)do j=2,npoint(i)if(x(j,2,i)-alow0(i)<0)thenalow0(i)=x(j,2,i)endifenddoenddodo i=1,npxtalow(i)=alow0(i)enddodo i=1,npxtwrite(12,*) i,dxa(i)/1000.0,alow(i)enddo!=========================================================== !=====================计算初始时刻水位库容并输出============ !=====================计算初始时刻水面线并输出============== !=====================计算初始时刻坝前断面并输出============ !=========================================================== do Z0=275,250,-1zL=Z0*1.0call FZV(NPOINT,npxt,X,ZL,ZVV,dx,ndisp,MM,NN)write(14,*) 0,ZL,ZVVenddodWQSt=0.0dWQS=0.0dWGb=0.0dWQ=0.0wsout=0.0zvv=0wsin=0.0volu=0.0qq=0zlevel(npxt)=275do i=1,npxtQ0(i)=377*0.5enddocall level(x,rough,npxt,zlevel,dx,Q0,npoint,b,a,xw,nn,mm,fai1,ndisp) do i=1,npxtwrite(13,*)'0',i,dxa(i)/1000.0,zlevel(i)enddodo j=1,npoint(npxt)write(17,*)'0',x(j,1,npxt),x(j,2,npxt)enddoQQ(1)=0!===========================================================!==========================读入水沙数据=====================!===========================================================do k=1,5open(11,file='水沙.txt',status='old')do k1=1,ndread(11,*) Q(1),s(1)Q(1)=Q(1)*0.5do j=2,npxtQ(j)=Q(1)enddo!write(*,*)Q!pause!===========================================================!=========利用张瑞瑾公式计算每个断面的挟沙力Sx==============!========利用mayer-peter公式计算推移质输沙率Gb==============!===========================================================do i=1,npxth(i)=a(i)/b(i)u(i)=Q(i)/a(i)AA1=u(i)**3.0AA2=9.8*h(i)*wAA3=(AA1/AA2)**1.05Sx(i)=AA3*0.124enddogb(1)=s(1)*Q(1)*0.05do i=2,npxtGb(i)=fGb(rough(i),r,h(i),Q(i),A(i),rs,d,rou,rous,ndisp)*b(i)!FUNCTION fGb(rough,r,h,Q,A,rs,d,rou,rous,ndisp)!write(*,*)gb(i)!pauseenddo!===========================================================!==============计算各断面含沙量和冲淤厚度===================!===========================================================dy(1)=0.25*w*(s(1)-sx(1))*dt/rou0alow(1)=alow(1)+dy(1)if(alow(1)<alow0(1))thenalow(1)=alow(1)-dy(1)dy(1)=0endif!write(*,*)dy(1)!pausedo i=2,npxtxishu=0.25*w*dx(i-1)*b(i)/q(1)s(i)=sx(i)+(s(i-1)-sx(i-1))*exp(-xishu)+(sx(i-1)-sx(i))/xishu*(1-exp(-xishu ))if(s(i)<0) thens(i)=0endifdGb=(Gb(i)-Gb(i-1))/dx(i-1)dQS=(Q(i)*S(i)-Q(i-1)*S(i-1))/dx(i-1)dy1=-(dGb+dQS)*dt/rou0dy2=-b(i-1)*dy(i-1)*(1-fai)dy3=(b(i)*fai)dy(i)=(dy1+dy2)/dy3!===========================================================!======================判断库尾冲刷问题=====================!===========================================================alow(i)=alow(i)+dy(i)if(alow(i)<alow0(i))thenalow(i)=alow(i)-dy(i)dy(i)=0gb(i)=gb(i-1)temp=rou0*b(i-1)*dy(i-1)*(fai-1)/dt*dx(i-1)s(i)=(temp-gb(i)+gb(i-1))/Q(i-1)+s(i-1)endif! if(k1.eq.28 .and.i.eq.9)then! write(*,*)'@@@b(i-1),dy(i-1),fai,b(i),dy(i),dx(i-1)',i ! write(*,*)b(i-1),dy(i-1),fai,b(i),dy(i),dx(i-1)! write(*,*)'Q(i-1),s(i-1),s(i),Gb(i-1),Gb(i),dt'! write(*,*)Q(i-1),s(i-1),s(i),Gb(i-1),Gb(i),dt! write(*,*)'tt1,tt2',tt1,tt2! pause! endifif(s(i)<0) thenif(k1.eq.28)thenwrite(*,*)'s(i),i',s(i),iendifs(i)=0endif! wugb=(Gb(i)-Gb(i-1))/dx(i-1)! wus=(Q(i)*S(i)-Q(i-1)*S(i-1))/dx(i-1)! wuvo1=dy(i-1)*b(i-1)*(1-fai)! wuvo2=dy(i)*b(i)*fai! wuvo=(wuvo1+wuvo2)*rou0/dtenddo!write(*,*) dy!pause!===========================================================!=======================检验质量是否守恒====================!===========================================================dVV=0.0do i=2,npxtdVV=dVV+(b(i-1)*dy(i-1)*(1-fai)+b(i)*dy(i)*fai)*dx(i-1)! if(k1.eq.28)then! tt1=(b(i-1)*dy(i-1)*(1-fai)+b(i)*dy(i)*fai)*dx(i-1)*rou0! tt2=(Q(i-1)*(s(i-1)-s(i))+(Gb(i-1)-Gb(i)))*dt! if(abs(tt1-tt2)>0.05*abs(tt1))then! write(*,*)'b(i-1),dy(i-1),fai,b(i),dy(i),dx(i-1)',i! write(*,*)b(i-1),dy(i-1),fai,b(i),dy(i),dx(i-1)! write(*,*)'Q(i-1),s(i-1),s(i),Gb(i-1),Gb(i),dt'! write(*,*)Q(i-1),s(i-1),s(i),Gb(i-1),Gb(i),dt! write(*,*)'tt1,tt2',tt1,tt2! pause! endif! endifend dovolu=volu+dvvtotal1=dVV*rou0 !检验哪一个时段质量不守恒total2=(Q(1)*(s(1)-s(npxt))+(Gb(1)-Gb(npxt)))*dt!write(*,*)dy,total1,total2!pauseif(abs(total1-total2)>0.05*abs(total1))thenwrite(*,*)"mass not equal",i,k1,total1,total2write(*,*)s(1),s(npxt),Gb(1),Gb(npxt)pauseelseend if!===========================================================!=================计算悬移质推移质及年均流量================!===========================================================WQS1=Q(1)*S(1)WQSi=Q(npxt)*S(npxt)dWQSt=dWQST+WQS1*dt/10000000 ! 为累计悬移质输沙量,单位为万吨dWQS=dWQS+(WQS1-WQSi)*dt/(1.325*1000)/1E04 ! 为累计悬移质冲淤量,单位为万立方米dWGb=dwGb+(Gb(1)-Gb(npxt))*dt/(1.325*1000)/1E04 ! 为累计推移质淤积总量,单位为万立方米AVQ=AVQ+Q(1)*dt/10000 ! 为累计年径流量单位万方dWQ=dWQS+dWGbwsin=wsin+Gb(1)*dt/10000000!wsout=wsout+WQSi*dt/10000000!=====================================================================!====================水下断面修改断面点高程===========================!===================================================================== do i=1,npxtdo j=1,Npoint(i)if(x(j,2,i)<zlevel(i) )thenx(j,2,i)=x(j,2,i)+dy(i)if(x(j,2,i)>=zlevel(i)) thenx(j,2,i)=zlevel(i)endifendifenddoenddoQQ(k1)=QQ(k1)+Q(1)QQ(0)=0!=====================================================================!=========================输出年淤积总量==============================!===================================================================== do lk=1,nyif(k1==Nday(lk)) thenif(lk>1)thenQa=(QQ(k1)-QQ(k1-Nday(lk-1)))/(Nday(lk)-Nday(lk-1))elseQa=QQ(k1)/Nday(lk)endifwrite(15,*) lk+10*(k-1),dWQ,avq,dWQSt+wsin,Qawrite(*,*) lk+10*(k-1),QaAVQ=0.0endifenddo!=====================================================================!=====================十年一输出的水面线变化============================!=====================十年一输出的深泓变化============================!=====================十年一输出坝前断面变化==========================!=====================十年一输出水位库容关系==========================!===================================================================== call level(x,rough,npxt,zlevel,dx,q,npoint,b,a,xw,nn,mm,fai1,ndisp)if(k1==nday(10))thendo i=1,npxtwrite(13,*) 10*k,i,dxa(i)/1000.0,zlevel(i)write(16,*)10*k,i,alow(i)enddodo j=1,npoint(npxt)write(17,*)10*k,x(j,1,npxt),x(j,2,npxt)enddodo Z0=275,250,-1zL=Z0*1.0call FZV(NPOINT,npxt,X,zl,ZVV,dx,ndisp,MM,NN)write(18,*)10*k,zl,zvvenddoendifenddoclose(11)enddoend!====================================================================== !================计算断面面积程序====================================== !====================================================================== SUBROUTINE AREA(NPOINT,X,Z,B,A,XW,ZLEVEL,NDISP)! THIS SUBROUTINE IS USED TO CACULATE AREA FOR IRREGULAR CROSS-SECTION DIMENSION X(NPOINT),Z(NPOINT)IF(NDISP.LE.-1)WRITE(*,*)'INTO AREA'IF(NPOINT.LE.2)THENWRITE(*,*)'IN AREA THE INPUT DATA ARE FALSE N=',NpointSTOPENDIFIF(Z(1).LT.ZLEVEL.OR.Z(Npoint).LT.ZLEVEL)THENWRITE(*,*)'IN AREA THE WATER LEVEL IS TOO HIGH OR THE HEIGHT& OF THE SECTION AT EDGE IS TOO LOW'STOPENDIFA=0.B=0.XW=0.DO 10 I=1,NPOINT-1ZMIN=AMIN1(Z(I),Z(I+1))IF(ZMIN.LT.ZLEVEL)THENZMAX=AMAX1(Z(I),Z(I+1))IF(ZMAX.LT.ZLEVEL)THENDB=X(I+1)-X(I)DH=ZLEVEL-0.5*(Z(I)+Z(I+1))DX=((Z(I)-Z(I+1))**2.+DB*DB)**0.5ELSEDB=(ZLEVEL-ZMIN)/(ZMAX-ZMIN)*(X(I+1)-X(I))DH=0.5*(ZLEVEL-ZMIN)DX=((2*DH)**2.0+DB*DB)**0.5ENDIFIF(DB.LT.0.0)THENWRITE(*,*)'THE DISTANCE FOR NODE ',I,'AND',I+1,'ARE FALSE'WRITE(*,*)'IN AREA',I,I+1,X(I),X(I+1)STOPENDIFDA=DB*DHB=B+DBA=A+DAXW=XW+DXENDIF10 CONTINUEreturnEND!=====================================================================!==========恒定非均匀缓流水面线计算程序===============================!===================================================================== subroutine level(x,rough,npxt,zlevel,dx,q,npoint,b,a,xw,nn,mm,fai,NDISP) dimension x(mm,2,nn),rough(npxt),dx(npxt),zlevel(npxt),&q(npxt),npoint(npxt),b(npxt),a(npxt),xw(npxt)IF(NDISP.LE.-1)WRITE(*,*)'INTO LEVEL'nc=100dz=0.1dz1=0.03dz2=0.1zlevel(npxt)=267.0!write(*,*)npoint(npxt),x(1,1,npxt),x(1,2,npxt),b(npxt),&!a(npxt),xw(npxt),zlevel(npxt),ndisp!pausecall area(npoint(npxt),x(1,1,npxt),x(1,2,npxt),b(npxt),& a(npxt),xw(npxt),zlevel(npxt),ndisp)do 10 ip=npxt-1,1,-1NR=0! write(*,*)'ip=',ipzmin=zlevel(ip+1)+dz! WRITE(*,*)'ZMIN1',ZMIN30 call area(npoint(ip),x(1,1,ip),x(1,2,ip),b(ip),&a(ip),xw(npxt),zmin,ndisp)if(a(ip).LE.0)thenzmin=zmin+0.173goto 30endiffmin=flevel(zlevel(ip+1),zmin,dx(ip),q(ip+1),q(ip),&rough(ip),b(ip+1),b(ip),a(ip+1),a(ip),fai1,ndisp)! if(ip.eq.3.and.kl.eq.89)then! write(*,*)npoint(4),b(4),a(4),xw(4),zlevel(4),ndisp! write(*,*)(x(ikj,2,3),ikj=1,npoint(3))! write(*,*)fmin,zlevel(ip+1),zmin,dx(ip),q(ip+1),q(ip)! write(*,*)rough(ip),b(ip+1),b(ip),a(ip+1),a(ip),fai,ndisp!! pause! endifif(fmin.gt.0)thenfr=(q(ip)/a(ip))**2.0*b(ip)/(9.8*a(ip))if(fr.lt.1)thenzmax=zmin+dz20 call area(npoint(ip),x(1,1,ip),x(1,2,ip),b(ip),&a(ip),xw(ip),zmax,ndisp)fmax=flevel(zlevel(ip+1),zmax,dx(ip),q(ip+1),q(ip),&rough(ip),b(ip+1),b(ip),a(ip+1),a(ip),fai1,ndisp)if(fmax.gt.0.0)thenzmax=zmax+dzgoto 20endifelsezmin=zmin+dz2NR=NR+1IF(NR.GT.NC)THENzmin=zmin-dz1write(*,*)'the loop is death,pause'WRITE(*,*)',nr,ip,zmin,fmin',nr,ip,zmin,fminread(*,*)endifgoto 30endifelsezmin=zmin-dz1goto 30endifcall bisec(zmin,zmax,fmin,zlevel(ip),npoint(ip),X(1,1,ip),& x(1,2,ip),b(ip),a(ip),xw(ip),q(ip),ndisp,zlevel(ip+1),b(ip+1),&a(ip+1),xw(ip+1),q(ip+1),dx(ip),rough(ip),fai)10 continuereturnend!=========================二分法求根程序===============================subroutine bisec(zmin,zmax,fmin,zlevel,npoint,x,z,b,a,xw,q,&ndisp,zlelo,blower,alower,xwlower,qlower,dx,rough,fai)dimension x(npoint),z(npoint)IF(NDISP.EQ.-1)WRITE(*,*)'INTO BISEC'ERR=0.00110 ddz=zmax-zminzlevel=0.5*(zmin+zmax)call area(npoint,x,z,b,a,xw,zlevel,ndisp)f=flevel(zlelo,zlevel,dx,qlower,q,rough,blower,b,alower,a,fai,ndisp) if(ddz.gt.err)thenff=f*fminif(ff.gt.0)thenzmin=zlevelelsezmax=zlevelendifddz=zmax-zmingoto 10endifreturnend!=======================水面线函数计算程序========================FUNCTIONflevel(zlelo,zlevel,dx,qlower,q,rough,blower,b,alower,a,fai,ndisp)! IF(NDISP.LE.-1)! WRITE(*,*)'INTO FLEVEL'HLOWER=ALOWER/BLOWERH=A/BAA=ZLELO-ZLEVELB1=FAI*(QLOWER/BLOWER)**2.0/HLOWER**(10.0/3.0)B2=(1-FAI)*(Q/B)**2.0/H**(10.0/3.0)BB=DX*ROUGH**2.0*(B1+B2)C1=(QLOWER/ALOWER)**2.0C2=(Q/A)**2.0CC=(C1-C2)/(2.0*9.8)FLEVEL=AA+BB+CCRETURNEND!=====================================================================!================mayer-peter公式求推移质输沙率========================!===================================================================== FUNCTION fGb(rough,r,h,Q,A,rs,d,rou,rous,ndisp)!注意式中的单位为t,m,s,所求的为推质输沙率,单位kg/s.m;所用公式为mayer-peter IF(NDISP.LE.-1)WRITE(*,*)'INTO FGb'A1=(rough**2.0)*(Q**2.0)A2=(A**2.0)*(h**(4.0/3.0))rj=A1/A2roughnn=(d**(1.0/6.0))/26.0AA=((roughnn/rough)**1.50)*r*h*rj!write(*,*)roughnn,rough,r,h,rj!pauseBB=0.047*(rs-r)*dCC=((rous-rou)/rous)*9.8*(rou**0.5)*0.125!write(*,*)AA,BB!pauseif((AA-BB)<0) thenFGb=0elseFGb=((AA-BB)**1.50)/CCendifRETURNEND!============================================================!==============水位库容关系程序=============================!============================================================ SUBROUTINE FZV(NPOINT,NSEC,XX,ZLEVEL,ZVV,dx,NDISP,MM,NN)!此程序用来计算给定条件下的相应某种水位下的静库容,单位亿立方米Dimension XX(mm,2,nn),NPOINT(NSEC),AA(NSEC),dx(NSEC)IF(NDISP.LE.-1)WRITE(*,*)'INTO FZV'ZVV=0do i=1,NSEC! write(*,*)'i',icall AREA(Npoint(i),XX(1,1,i),XX(1,2,i),B,A,XW,ZLEVEL,ndisp)AA(i)=Aenddodo i=1,NSEC-1ZVV=ZVV+(AA(i)+AA(i+1))*dx(i)*0.5/100000000.0enddoRETURNEND（注：素材和资料部分来自网络，供参考。
幼儿园河流教案
幼儿园河流教案教案标题：探索河流——幼儿园河流教案教案目标：1. 让幼儿了解河流的基本概念和特征。
2. 培养幼儿对河流的观察和探索能力。
3. 培养幼儿的合作意识和团队合作能力。
教案步骤：1. 导入活动（5分钟）：- 引入话题：老师在黑板上画一条曲线，问幼儿们认识这是什么。
- 引导幼儿回答：这是一条河流。
2. 概念讲解（10分钟）：- 通过图片或幻灯片展示不同类型的河流，并简单解释它们的特征和作用。
- 引导幼儿观察图片，提问：河流有多宽？有多长？它们从哪里来？流向哪里？ - 帮助幼儿理解河流是水流的自然通道，它们是水从高处流向低处的路径。
3. 河流模拟活动（15分钟）：- 在室外或室内设置一个小型水池，用蓝色水彩笔在地面上画出一条弯曲的线，模拟河流。
- 将一些小树枝、小石子等放入水池中，让幼儿观察水流的方向和速度。
- 引导幼儿用手指或小木棍在水中模拟船只的运动，让他们体验水流对物体的影响。
4. 河流探索活动（20分钟）：- 将幼儿分成小组，每个小组分配一个浅盘和一些小石子、小树枝等材料。
- 引导幼儿在浅盘中模拟河流，观察石子和树枝在水中的运动。
- 鼓励幼儿提出问题，例如：“如果我在河流中放入一个小船，它会怎么样？” - 引导幼儿思考并进行实验，观察船只在水流中的运动轨迹。
5. 总结活动（10分钟）：- 引导幼儿回顾今天的学习内容，提问：我们今天学到了什么？河流对什么物体有影响？- 鼓励幼儿分享自己的观察和实验结果。
- 提醒幼儿，河流是自然界的一部分，我们要保护好河流，不乱扔垃圾。
教学资源：1. 河流图片或幻灯片。
2. 小型水池、蓝色水彩笔、小树枝、小石子等材料。
3. 浅盘、小船、小木棍等材料。
教学评估：1. 观察幼儿在模拟河流活动中的参与程度和合作能力。
2. 收集幼儿提出的问题和分享的观察结果，评估他们对河流的理解程度。
3. 通过幼儿的回答问题和参与讨论的情况，评估他们对河流的基本概念的掌握情况。
河流说课稿
河流说课稿一、说教材本文作为自然科学课程的重要组成部分，主要围绕河流这一自然科学现象进行深入浅出的阐述。
河流不仅是地球上的一种重要自然景观，而且在人类历史发展、生态平衡以及经济建设中扮演着不可或缺的角色。
本课内容旨在揭示河流的起源、演变、生态功能以及人类活动对河流的影响，从而提高学生对自然环境保护的意识。
（1）作用与地位河流课程在自然科学教学中具有举足轻重的地位。
通过对河流的学习，学生可以更好地理解水循环、地理地貌的形成、生态系统的平衡等自然科学知识。
此外，河流课程还有助于培养学生的观察能力、思考能力以及实践能力。
（2）主要内容本文主要内容包括：1. 河流的定义、分类及分布；2. 河流的形成与发展过程；3. 河流的水文特征及其影响因素；4. 河流生态系统的特点与功能；5. 人类活动对河流的影响及保护措施。
二、说教学目标学习本课，学生需要达到以下教学目标：（1）知识目标1. 了解河流的定义、分类、分布及其在自然界中的作用；2. 掌握河流的形成、发展过程及其水文特征；3. 认识河流生态系统的特点、功能以及保护意义。
（2）能力目标1. 能够运用所学知识分析河流相关问题；2. 培养观察、思考、实践能力，提高解决实际问题的能力。
（3）情感态度与价值观目标1. 增强对自然环境的保护意识，关注河流生态问题；2. 树立可持续发展观念，积极参与河流保护行动。
三、说教学重难点（1）教学重点1. 河流的定义、分类、分布；2. 河流的形成、发展过程及其水文特征；3. 河流生态系统的特点、功能及保护意义。
（2）教学难点1. 河流的形成、发展过程及其影响因素；2. 河流生态系统中的生物多样性及其保护；3. 人类活动对河流的影响及其解决措施。
四、说教法为了让学生更好地理解和掌握河流相关知识，我在教学中采用了以下几种方法，并突出我的教学特色和与其他教法的不同之处。
（1）启发法在教学过程中，我注重引导学生主动思考和探索。
通过提出具有启发性的问题，激发学生的好奇心，促使他们积极参与课堂讨论。
QUAL2K模型的原理及应用讲课教案
Hohai
24
University
5.4模型的验证
模型的参数的计算方法已经在参数的率定中确认，在确定参数后，需
要对QUAL2K模型的正确性进行验证。利用2004年实测数据求得二干 河各河段水质模拟参数见表 。
Hohai
25
University
5.4模型的验证
将表3-10中的参数输入QUAL2K模型，对二干河2004年的水质情 况进行模拟，得到各测点的BOD5和DO浓度的模拟值。并与2004年 的实测值进行比较，见下图。
Hohai
11
University
2.2.1输入河段数据
• Reach 工作表 主要是输入河流各个河段的 信息。主要包括：河段数、 河段及单元的长度、上下游 河段的高程及位置以及水力 学模型的相关参数等，如右 图。
Hohai
12
University
2.3输入气象数据
气象数据主要包括5个子工作表：
浅蓝色：用户需要输入的指定变量和参数的值。 浅黄色：用户需要输入的指定数据，模型可以降这些数据自动生成图表曲
线。 浅绿色：模型输出的设计值。 纯暗色：用来制表的数据，并且不能改动。
Hohai
9
University
2.1输入边界条件
• HeadWater工作表 主要是输入河段边界的 流量及浓度数据。如右 图：
Hohai
21
University
5.2河段边界及水质数据
在QUAL2K模型中，将支流作为一个点源来处理。根据水文站多 年的实测数据，求得各点源和支流的流量。支流的水质是各时间段内 实测数据的平均值。 水力数据和水环境监测数据如下表。
Hohai
22
University
河道桌面推演方案
以我给的标题写文档，最低1503字，要求以Markdown文本格式输出，不要带图片，标题为：河道桌面推演方案# 河道桌面推演方案---## 介绍河道桌面推演是一种通过模拟水文、水力学过程，以预测和评估河流行为的方法。
它为水资源管理、防洪工作和环境保护等方面的决策提供了重要依据。
本文将介绍河道桌面推演的基本原理、应用领域和工作流程，并简要介绍几个流行的河道桌面推演软件。
## 河道桌面推演原理河道桌面推演是一种基于数学模型的方法，通过对河流的物理过程进行数学建模和计算，来预测和模拟河流在不同条件下的水位、流量、泥沙输运等情况。
其基本原理包括以下几点：1. **数学模型构建**：首先需要根据实际情况，选择适当的数学模型来描述河流的水文和水力学过程。
常用的河道模型包括一维、二维和三维模型，可以根据实际需要选择适合的模型。
2. **初始条件和边界条件设定**：在进行河道模拟之前，需要设定适当的初始条件和边界条件。
初始条件包括起始水位、起始流量等，边界条件包括入流量、出流量等。
这些条件的设定将直接影响到模拟结果的准确性。
3. **数值计算**：通过对数学模型进行数值计算，可以得到河流在给定条件下的水位、流量、泥沙输运等结果。
常用的计算方法包括有限差分法、有限元法等。
4. **结果评估**：对模拟结果进行评估，与实测数据进行对比，以验证模型的准确性和可靠性。
如果模拟结果与实测数据符合较好，那么可以继续使用该模型进行分析和预测。
## 河道桌面推演的应用领域河道桌面推演在水资源管理、防洪工作和环境保护等方面有着广泛的应用。
以下是一些常见的应用领域：1. **水资源管理**：通过河道桌面推演可以对河流的水位、流量等进行模拟和预测，从而为水资源管理提供科学依据。
可以通过模拟不同水文条件下的水位变化，为水库调度、水文预报等提供支持。
2. **防洪工作**：河道桌面推演可以模拟和预测洪水的水位、流量等情况，帮助制定防洪预案和应急措施。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
program mainparameter (nn=31,mm=80,nd=3653,ny=10,fai=1.0,ndisp=0,npxt=31,fai1=0.5)parameter(rs=2650*9.8,r=9800,w=0.0012,rou0=1325.0,dt=86400.0,d=0.002,rou=1000,rous=2650) dimension x(mm,2,nn),rough(nn),dx(nn),zlevel(nn),Q(nn),Npoint(nn),b(nn),Q0(nn),QQ(nd) dimension a(nn),xw(nn),dxa(nn),s(nn),alow0(nn),alow(nn),h(nn)dimension u(nn),sx(nn),gb(nn),dy(nn),nday(ny)data Nday /365,731,1096,1461,1826,2192,2557,2922,3287,3653/open(10,file='地形.txt',status='old')open(12,file='深泓.txt',status='unknown')write(12,91)91 format(3x,'断面号',6x'距坝里程(千米)',3x,'深泓(米)')open(13,file='水面线.txt',status='unknown')write(13,92)92 format(3x,'断面号',6x'距坝里程(千米)',3x,'水面线高程(米)')open(14,file='初始水位库容.txt',status='unknown')write(14,93)93 format(3x,'年',6x'水位(米)',3x,'库容(亿立方米)')open(15,file='年淤积总量.txt',status='unknown')write(15,94)94 format(3x'年',3x'淤积总量(万立方米)',3x'年径流量（万方）',3x'累计输沙量（万吨）',3x'年均流量（万方）')open(16,file='深泓（十年）.txt',status='unknown')write(16,95)95 format(3x'年',3x'断面号',3x'深泓(米)')open(17,file='坝前断面（十年）.txt',status='unknown')write(17,96)96 format(3x'年',3x'起点距(米)',3x'高程(米)')open(18,file='水位库容（十年）.txt',status='unknown')write(18,97)97 format(3x,'年',6x'水位(米)',3x,'库容(亿立方米)')!===========================================================!======================读入地形数据=========================!===========================================================do i=1,npxtread(10,*)read(10,*)n1,npoint(i),dx(i),d1,dxa(i),rough(i)read(10,*)(x(j,1,i),j=1,npoint(i))read(10,*)(x(j,2,i),j=1,npoint(i))end do!===========================================================!======================读入糙率=============================!===========================================================do i=1,npxtrough(i)=0.06enddo!=========================================================== !====================断面间距计算=========================== !=========================================================== do i=1,30dx(i)=dxa(i)-dxa(i+1)end do!=========================================================== !====================判断读入数据的准确性===================!=========================================================== do i=1,npxtdo j=2,npoint(i)if(x(j,1,i)-x(j-1,1,i)<0)thenwrite(*,*)'mistake!'endifenddoenddo!=========================================================== !===================计算初始深泓并输出====================== !=========================================================== do i=1,npxtalow0(i)=x(1,2,i)do j=2,npoint(i)if(x(j,2,i)-alow0(i)<0)thenalow0(i)=x(j,2,i)endifenddoenddodo i=1,npxtalow(i)=alow0(i)enddodo i=1,npxtwrite(12,*) i,dxa(i)/1000.0,alow(i)enddo!=========================================================== !=====================计算初始时刻水位库容并输出============!=====================计算初始时刻水面线并输出==============!=====================计算初始时刻坝前断面并输出============!=========================================================== do Z0=275,250,-1zL=Z0*1.0call FZV(NPOINT,npxt,X,ZL,ZVV,dx,ndisp,MM,NN)write(14,*) 0,ZL,ZVVenddodWQSt=0.0dWQS=0.0dWGb=0.0dWQ=0.0wsout=0.0zvv=0wsin=0.0volu=0.0qq=0zlevel(npxt)=275do i=1,npxtQ0(i)=377*0.5enddocall level(x,rough,npxt,zlevel,dx,Q0,npoint,b,a,xw,nn,mm,fai1,ndisp)do i=1,npxtwrite(13,*)'0',i,dxa(i)/1000.0,zlevel(i)enddodo j=1,npoint(npxt)write(17,*)'0',x(j,1,npxt),x(j,2,npxt)enddoQQ(1)=0!=========================================================== !==========================读入水沙数据===================== !=========================================================== do k=1,5open(11,file='水沙.txt',status='old')do k1=1,ndread(11,*) Q(1),s(1)Q(1)=Q(1)*0.5do j=2,npxtQ(j)=Q(1)enddo!write(*,*)Q!pause!=========================================================== !=========利用张瑞瑾公式计算每个断面的挟沙力Sx==============!========利用mayer-peter公式计算推移质输沙率Gb==============!=========================================================== do i=1,npxth(i)=a(i)/b(i)u(i)=Q(i)/a(i)AA2=9.8*h(i)*wAA3=(AA1/AA2)**1.05Sx(i)=AA3*0.124enddogb(1)=s(1)*Q(1)*0.05do i=2,npxtGb(i)=fGb(rough(i),r,h(i),Q(i),A(i),rs,d,rou,rous,ndisp)*b(i)!FUNCTION fGb(rough,r,h,Q,A,rs,d,rou,rous,ndisp)!write(*,*)gb(i)!pauseenddo!===========================================================!==============计算各断面含沙量和冲淤厚度===================!=========================================================== dy(1)=0.25*w*(s(1)-sx(1))*dt/rou0alow(1)=alow(1)+dy(1)if(alow(1)<alow0(1))thenalow(1)=alow(1)-dy(1)dy(1)=0endif!write(*,*)dy(1)!pausedo i=2,npxtxishu=0.25*w*dx(i-1)*b(i)/q(1)s(i)=sx(i)+(s(i-1)-sx(i-1))*exp(-xishu)+(sx(i-1)-sx(i))/xishu*(1-exp(-xishu))if(s(i)<0) thens(i)=0endifdGb=(Gb(i)-Gb(i-1))/dx(i-1)dQS=(Q(i)*S(i)-Q(i-1)*S(i-1))/dx(i-1)dy1=-(dGb+dQS)*dt/rou0dy2=-b(i-1)*dy(i-1)*(1-fai)dy3=(b(i)*fai)dy(i)=(dy1+dy2)/dy3!===========================================================!======================判断库尾冲刷问题=====================!=========================================================== alow(i)=alow(i)+dy(i)if(alow(i)<alow0(i))thenalow(i)=alow(i)-dy(i)gb(i)=gb(i-1)temp=rou0*b(i-1)*dy(i-1)*(fai-1)/dt*dx(i-1)s(i)=(temp-gb(i)+gb(i-1))/Q(i-1)+s(i-1)endif! if(k1.eq.28 .and.i.eq.9)then! write(*,*)'@@@b(i-1),dy(i-1),fai,b(i),dy(i),dx(i-1)',i ! write(*,*)b(i-1),dy(i-1),fai,b(i),dy(i),dx(i-1)! write(*,*)'Q(i-1),s(i-1),s(i),Gb(i-1),Gb(i),dt'! write(*,*)Q(i-1),s(i-1),s(i),Gb(i-1),Gb(i),dt! write(*,*)'tt1,tt2',tt1,tt2! pause! endifif(s(i)<0) thenif(k1.eq.28)thenwrite(*,*)'s(i),i',s(i),iendifs(i)=0endif! wugb=(Gb(i)-Gb(i-1))/dx(i-1)! wus=(Q(i)*S(i)-Q(i-1)*S(i-1))/dx(i-1)! wuvo1=dy(i-1)*b(i-1)*(1-fai)! wuvo2=dy(i)*b(i)*fai! wuvo=(wuvo1+wuvo2)*rou0/dtenddo!write(*,*) dy!pause!=========================================================== !=======================检验质量是否守恒==================== !=========================================================== dVV=0.0do i=2,npxtdVV=dVV+(b(i-1)*dy(i-1)*(1-fai)+b(i)*dy(i)*fai)*dx(i-1)! if(k1.eq.28)then! tt1=(b(i-1)*dy(i-1)*(1-fai)+b(i)*dy(i)*fai)*dx(i-1)*rou0! tt2=(Q(i-1)*(s(i-1)-s(i))+(Gb(i-1)-Gb(i)))*dt! if(abs(tt1-tt2)>0.05*abs(tt1))then! write(*,*)'b(i-1),dy(i-1),fai,b(i),dy(i),dx(i-1)',i! write(*,*)b(i-1),dy(i-1),fai,b(i),dy(i),dx(i-1)! write(*,*)'Q(i-1),s(i-1),s(i),Gb(i-1),Gb(i),dt'! write(*,*)Q(i-1),s(i-1),s(i),Gb(i-1),Gb(i),dt! write(*,*)'tt1,tt2',tt1,tt2! pause! endif! endifend dovolu=volu+dvvtotal1=dVV*rou0 !检验哪一个时段质量不守恒total2=(Q(1)*(s(1)-s(npxt))+(Gb(1)-Gb(npxt)))*dt!write(*,*)dy,total1,total2!pauseif(abs(total1-total2)>0.05*abs(total1))thenwrite(*,*)"mass not equal",i,k1,total1,total2write(*,*)s(1),s(npxt),Gb(1),Gb(npxt)pauseelseend if!===========================================================!=================计算悬移质推移质及年均流量================!=========================================================== WQS1=Q(1)*S(1)WQSi=Q(npxt)*S(npxt)dWQSt=dWQST+WQS1*dt/10000000 ! 为累计悬移质输沙量,单位为万吨dWQS=dWQS+(WQS1-WQSi)*dt/(1.325*1000)/1E04 ! 为累计悬移质冲淤量,单位为万立方米dWGb=dwGb+(Gb(1)-Gb(npxt))*dt/(1.325*1000)/1E04 ! 为累计推移质淤积总量,单位为万立方米A VQ=A VQ+Q(1)*dt/10000 ! 为累计年径流量单位万方dWQ=dWQS+dWGbwsin=wsin+Gb(1)*dt/10000000!wsout=wsout+WQSi*dt/10000000!===================================================================== !====================水下断面修改断面点高程===========================!===================================================================== do i=1,npxtdo j=1,Npoint(i)if(x(j,2,i)<zlevel(i) )thenx(j,2,i)=x(j,2,i)+dy(i)if(x(j,2,i)>=zlevel(i)) thenx(j,2,i)=zlevel(i)endifendifenddoenddoQQ(k1)=QQ(k1)+Q(1)QQ(0)=0!===================================================================== !=========================输出年淤积总量============================== !===================================================================== do lk=1,nyif(k1==Nday(lk)) thenif(lk>1)thenQa=(QQ(k1)-QQ(k1-Nday(lk-1)))/(Nday(lk)-Nday(lk-1))elseQa=QQ(k1)/Nday(lk)endifwrite(15,*) lk+10*(k-1),dWQ,avq,dWQSt+wsin,Qawrite(*,*) lk+10*(k-1),QaA VQ=0.0endifenddo!===================================================================== !=====================十年一输出的水面线变化============================ !=====================十年一输出的深泓变化============================!=====================十年一输出坝前断面变化==========================!=====================十年一输出水位库容关系==========================!===================================================================== call level(x,rough,npxt,zlevel,dx,q,npoint,b,a,xw,nn,mm,fai1,ndisp)if(k1==nday(10))thendo i=1,npxtwrite(13,*) 10*k,i,dxa(i)/1000.0,zlevel(i)write(16,*)10*k,i,alow(i)enddodo j=1,npoint(npxt)write(17,*)10*k,x(j,1,npxt),x(j,2,npxt)enddodo Z0=275,250,-1zL=Z0*1.0call FZV(NPOINT,npxt,X,zl,ZVV,dx,ndisp,MM,NN)write(18,*)10*k,zl,zvvenddoendifenddoclose(11)enddoend!===================================================================== =!================计算断面面积程序====================================== !===================================================================== =SUBROUTINE AREA(NPOINT,X,Z,B,A,XW,ZLEVEL,NDISP)! THIS SUBROUTINE IS USED TO CACULATE AREA FOR IRREGULAR CROSS-SECTIONDIMENSION X(NPOINT),Z(NPOINT)IF(NDISP.LE.-1)WRITE(*,*)'INTO AREA'IF(NPOINT.LE.2)THENWRITE(*,*)'IN AREA THE INPUT DATA ARE FALSE N=',NpointSTOPENDIFIF(Z(1).LT.ZLEVEL.OR.Z(Npoint).LT.ZLEVEL)THENWRITE(*,*)'IN AREA THE W ATER LEVEL IS TOO HIGH OR THE HEIGHT&OF THE SECTION AT EDGE IS TOO LOW'STOPENDIFA=0.B=0.XW=0.DO 10 I=1,NPOINT-1ZMIN=AMIN1(Z(I),Z(I+1))IF(ZMIN.LT.ZLEVEL)THENZMAX=AMAX1(Z(I),Z(I+1))IF(ZMAX.LT.ZLEVEL)THENDB=X(I+1)-X(I)DH=ZLEVEL-0.5*(Z(I)+Z(I+1))DX=((Z(I)-Z(I+1))**2.+DB*DB)**0.5ELSEDB=(ZLEVEL-ZMIN)/(ZMAX-ZMIN)*(X(I+1)-X(I))DH=0.5*(ZLEVEL-ZMIN)DX=((2*DH)**2.0+DB*DB)**0.5ENDIFIF(DB.LT.0.0)THENWRITE(*,*)'THE DISTANCE FOR NODE ',I,'AND',I+1,'ARE FALSE'WRITE(*,*)'IN AREA',I,I+1,X(I),X(I+1)STOPENDIFDA=DB*DHB=B+DBA=A+DAXW=XW+DXENDIF10 CONTINUEreturnEND!===================================================================== !==========恒定非均匀缓流水面线计算程序===============================!===================================================================== subroutine level(x,rough,npxt,zlevel,dx,q,npoint,b,a,xw,nn,mm,fai,NDISP)dimension x(mm,2,nn),rough(npxt),dx(npxt),zlevel(npxt),&q(npxt),npoint(npxt),b(npxt),a(npxt),xw(npxt)IF(NDISP.LE.-1)WRITE(*,*)'INTO LEVEL'nc=100dz=0.1dz1=0.03dz2=0.1zlevel(npxt)=267.0!write(*,*)npoint(npxt),x(1,1,npxt),x(1,2,npxt),b(npxt),&!a(npxt),xw(npxt),zlevel(npxt),ndisp!pausecall area(npoint(npxt),x(1,1,npxt),x(1,2,npxt),b(npxt),&a(npxt),xw(npxt),zlevel(npxt),ndisp)do 10 ip=npxt-1,1,-1NR=0! write(*,*)'ip=',ipzmin=zlevel(ip+1)+dz! WRITE(*,*)'ZMIN1',ZMIN30 call area(npoint(ip),x(1,1,ip),x(1,2,ip),b(ip),&a(ip),xw(npxt),zmin,ndisp)if(a(ip).LE.0)thenzmin=zmin+0.173goto 30endiffmin=flevel(zlevel(ip+1),zmin,dx(ip),q(ip+1),q(ip),&rough(ip),b(ip+1),b(ip),a(ip+1),a(ip),fai1,ndisp)! if(ip.eq.3.and.kl.eq.89)then! write(*,*)npoint(4),b(4),a(4),xw(4),zlevel(4),ndisp! write(*,*)(x(ikj,2,3),ikj=1,npoint(3))! write(*,*)fmin,zlevel(ip+1),zmin,dx(ip),q(ip+1),q(ip) ! write(*,*)rough(ip),b(ip+1),b(ip),a(ip+1),a(ip),fai,ndisp !! pause! endifif(fmin.gt.0)thenfr=(q(ip)/a(ip))**2.0*b(ip)/(9.8*a(ip))if(fr.lt.1)thenzmax=zmin+dz20 call area(npoint(ip),x(1,1,ip),x(1,2,ip),b(ip),&a(ip),xw(ip),zmax,ndisp)fmax=flevel(zlevel(ip+1),zmax,dx(ip),q(ip+1),q(ip),&rough(ip),b(ip+1),b(ip),a(ip+1),a(ip),fai1,ndisp) if(fmax.gt.0.0)thenzmax=zmax+dzgoto 20endifelsezmin=zmin+dz2NR=NR+1IF(NR.GT.NC)THENzmin=zmin-dz1write(*,*)'the loop is death,pause'WRITE(*,*)',nr,ip,zmin,fmin',nr,ip,zmin,fminread(*,*)endifgoto 30endifelsezmin=zmin-dz1goto 30endifcall bisec(zmin,zmax,fmin,zlevel(ip),npoint(ip),X(1,1,ip),&x(1,2,ip),b(ip),a(ip),xw(ip),q(ip),ndisp,zlevel(ip+1),b(ip+1),&a(ip+1),xw(ip+1),q(ip+1),dx(ip),rough(ip),fai)10 continuereturnend!=========================二分法求根程序===============================subroutine bisec(zmin,zmax,fmin,zlevel,npoint,x,z,b,a,xw,q,&ndisp,zlelo,blower,alower,xwlower,qlower,dx,rough,fai)dimension x(npoint),z(npoint)IF(NDISP.EQ.-1)WRITE(*,*)'INTO BISEC'ERR=0.00110 ddz=zmax-zminzlevel=0.5*(zmin+zmax)call area(npoint,x,z,b,a,xw,zlevel,ndisp)f=flevel(zlelo,zlevel,dx,qlower,q,rough,blower,b,alower,a,fai,ndisp)if(ddz.gt.err)thenff=f*fminif(ff.gt.0)thenzmin=zlevelelsezmax=zlevelendifddz=zmax-zmingoto 10endifreturnend!=======================水面线函数计算程序======================== FUNCTION flevel(zlelo,zlevel,dx,qlower,q,rough,blower,b,alower,a,fai,ndisp)! IF(NDISP.LE.-1)! WRITE(*,*)'INTO FLEVEL'HLOWER=ALOWER/BLOWERH=A/BAA=ZLELO-ZLEVELB1=FAI*(QLOWER/BLOWER)**2.0/HLOWER**(10.0/3.0)B2=(1-FAI)*(Q/B)**2.0/H**(10.0/3.0)BB=DX*ROUGH**2.0*(B1+B2)C1=(QLOWER/ALOWER)**2.0C2=(Q/A)**2.0CC=(C1-C2)/(2.0*9.8)FLEVEL=AA+BB+CCRETURNEND!===================================================================== !================mayer-peter公式求推移质输沙率========================!===================================================================== FUNCTION fGb(rough,r,h,Q,A,rs,d,rou,rous,ndisp)!注意式中的单位为t,m,s,所求的为推质输沙率,单位kg/s.m;所用公式为mayer-peter IF(NDISP.LE.-1)WRITE(*,*)'INTO FGb'A1=(rough**2.0)*(Q**2.0)A2=(A**2.0)*(h**(4.0/3.0))rj=A1/A2roughnn=(d**(1.0/6.0))/26.0AA=((roughnn/rough)**1.50)*r*h*rj!write(*,*)roughnn,rough,r,h,rj!pauseBB=0.047*(rs-r)*dCC=((rous-rou)/rous)*9.8*(rou**0.5)*0.125!write(*,*)AA,BB!pauseif((AA-BB)<0) thenFGb=0elseFGb=((AA-BB)**1.50)/CCendifRETURNEND!============================================================!==============水位库容关系程序=============================!============================================================ SUBROUTINE FZV(NPOINT,NSEC,XX,ZLEVEL,ZVV,dx,NDISP,MM,NN)!此程序用来计算给定条件下的相应某种水位下的静库容,单位亿立方米Dimension XX(mm,2,nn),NPOINT(NSEC),AA(NSEC),dx(NSEC)IF(NDISP.LE.-1)WRITE(*,*)'INTO FZV'ZVV=0do i=1,NSEC! write(*,*)'i',icall AREA(Npoint(i),XX(1,1,i),XX(1,2,i),B,A,XW,ZLEVEL,ndisp) AA(i)=Aenddodo i=1,NSEC-1ZVV=ZVV+(AA(i)+AA(i+1))*dx(i)*0.5/100000000.0 enddoRETURNEND。