水头环城北路高程计算程序(卡西欧fx-5800P).doc

《水头环城北路高程计算程序(卡西欧fx-5800P).doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、个人收集整理勿做商业用途SＴ—H〝ＳT－H〞Lbl0〝K=〞？ＫK<0or　K>4365.3４5BｒeakIfＫ<8１3.470：ThenProg〝ST-H1〞ElｓeK<1894.250：Theｎ　Prｏｇ〝ST-Ｈ２〞ElseＫ<250４．２０0:Then　Prog〝ＳT－H3〞　ＥlsｅK<303８．40０:Then　Pｒoｇ〝ＳT-H4〞ＥｌｓｅK＜38０1.２34:TｈenProg〝ST-H5〞Else　K≤4365.３45：TｈｅｎPｒoｇ〝SＴ－H６〞ＩfEnd:IfＥnd：ＩfEnｄ：ＩfEｎd:IfEnd:IｆEnd:IfＥnd:IfEnd〝N=〞?Ｎ

2、〝S=〞?SZ-Ｎ→ＨH-0．015S→O〝H(Z)=〞:H◢〝H(ＲL）　=〞：Ｏ◢Goｔo０个人收集整理勿做商业用途ST-H1IfK＜353.2：Then1０.６36＋０.0066*Ａbs(４00-Ｋ)→ZElseＩfＫ＜400:Then10.636+0.０0６6*Aｂs(400-K)＋（46.8-Aｂｓ(40０－Ｋ))2÷6000→ZElｓeIｆ　K<４46.８:Then1０．636+０．０246*Ａbs(400-K)＋（46.８-Ａbs(400－K））2÷6０00→ZElseIfＫ＜５34.5：Ｔhen10.６36＋0.0２４6*Aｂs(４00-Ｋ)→ZＥlｓe

3、　Ｉf　Ｋ<59０：Then15.３1-0．0２４６*Ａbs（590－K)-（5５.5－Ａbs（５9０-K))2÷50００→ＺElse　If　K<64５.５:Theｎ15.31-0．0198＊Abs(590-K）-(5５.5-Abs(590-K))2÷5000→ZＥlsｅＩｆK<726.53:Thｅn15.31-０.0198*Ａbｓ(590-Ｋ）→ZEｌseIｆＫ<７７0:Then11.74６+0.01９8*Abs（７70-Ｋ)＋(４3．47-Abs(7７0-K))2÷5４00→ＺＥlse　If　K<813.４７:Ｔhen个人收集整理勿做商业用途1１.7４6+0.012

4、4*Ａbs（770－K)+(43．４7-Abs(770-Ｋ))2÷540０→ZIfEｎｄ：IfEｎｄ：IfEｎｄ：ＩfＥｎd：ＩｆEｎd：IfEnｄ:ＩｆＥnd：IfEnｄ：IfEndRetｕrnＳT-H2Iｆ　K＜1106.5：Tｈeｎ17.07８－0.０124＊Abs(Ｋ-1２00)→ZEｌsｅIfK<12００：Tｈen17.0７8-0.０124＊Ａbｓ(K-１２０0)－(9３．5-Ａｂs(Ｋ-1200）)2÷1０000→ＺElｓｅIf　K＜1293.5:Then１7.078-０．0２5*Abs（K-120０)-（９３．5-Abs(K－1200))2÷1000０→Z

5、Ｅlｓe　IfＫ＜14９0:Tｈeｎ17.078-０.025＊Aｂs(K-１２0０）→ZＥｌsｅＩｆK<1540:Ｔhen8.５78＋0.０25*Abs(Ｋ-15４0）+(５０－Abs（Ｋ-15４０))2÷8000→ZElse　IfK＜1５9０:Then8．578+(５0－Aｂs(K－1５4０）)2÷８000→Z个人收集整理勿做商业用途ElseIfK＜1８05.75:Ｔhｅn８.57８→ZＥｌｓeIfＫ＜1850:Thｅn8.578-(44.25－Abs（Ｋ-185０))2÷60000→ＺElse　IfＫ＜18９4.２５:Theｎ8．578+０．00295*Ａｂs(K－

6、185０)-(4４.2５-Abｓ(Ｋ－１850))2÷6０00０→ZIfＥnd:IｆEnd:IfEｎｄ：ＩfＥｎｄ：IfEnd:IfEnｄ：IfEｎd:IfEｎd：IfEndRｅｔurnST－H３IfK<1９７0．１75：Then8．１０6+0.0029５*Abｓ(2０１0－K)→ＺElseIfK＜２010：Then8.106＋0．00２95*Aｂｓ（201０－K）+（K-1９70.１75)2÷54000→ZＥlseIfK<２04９．25:Tｈen8．106+（2049.８25-K）2÷54００0→ZＥｌseIf　K＜22９０:Ｔhｅn8．106→ZＥlseIfＫ<23

7、30:Ｔｈｅｎ个人收集整理勿做商业用途8.106－(K-229０)2÷5000０→ＺElseIfK<2370:Then8．106-0.００32*Abｓ（2330－K)-(　Ｋ-23７0)２÷５0000→ZＥlｓeIfK<２435．8：Ｔｈen7.658+０.0０32*Ａbs(247０－K)→ZＥlｓeIf　K<24７０:Theｎ７.6５８+０.００32*（2470-Ｋ）+(K-24３5．8)2÷19000→ZElseIfＫ<2504.2:Then7.6５８+0.004*Ａｂs(2470-Ｋ)+(K－2504.２)2÷１9０0０→ZIfＥn