您好, 歡迎來到1024商務網   [請登錄]  [免費注冊]  忘記密碼
首頁 新聞資訊 產品大全 企業 求購 品牌
企業 產品
當前位置:首頁 > 新聞資訊 > 垂直行業 > PC-1500機上高壓送電線路電線力學計算程序
PC-1500機上高壓送電線路電線力學計算程序
更新時間:2019-10-12 發布:www.uzgon.club

摘要:本文對PC-1500機上高壓送電線路電線力學計較法式進行了修改,并對把PC-1500機上的法式移植到微機上的方式和技巧進行了一些說明。
關頭詞:力學計較法式電線狀態方程式修改移植TurboBasic語言
  PC-1500機由于它功能比力齊全,開發容易,使用簡潔,體積小,投資少,易學,生效快,在80年月比力流行,但隨著計較機技術的成長和PC-1500機的自然消耗,微機將慢慢取代PC-1500機。近年來各部門在PC-1500機上開發了許多優秀的法式,取得了可喜的功效和效益,若是把這些優秀法式充實哄騙起來,把它們移植到微機上加以使用,就能夠加速計較機的運用步伐,取得事倍功半的效果。  電線力學計較是送電線路設計中最復雜的一項工作,其內容包括:1、計較各控制條件之間的臨界檔距:2、判別有用臨界檔距;3、計較各類氣象條件和分歧檔距下的電線應力、弧垂;4、計較各類代表檔距下在分歧氣溫時的電線應力、弧垂(即安裝曲線)。這些工作完成以后,方能列出線路桿塔的荷重條件,繼而進行桿塔結構計較。  本法式分法式1、法式二,法式一解決上述工作1、2、3;法式二解決工作4。  PC-1500機上電線力學法式的主要計較公式的解法及法式的毛病。  電線狀態方程式:就是從已知氣象條件下的應力,求另外一條件下應力的計較式,懸掛于兩固定點間的導線,當氣象條件發生變化時,導線的應力亦將隨之變化。設已知氣象條件下的溫度為Tm,比載為Gm,此時應力為Sm,L為變量(檔距),令待求氣象條件下的溫度是T,比載是Gn,應力是S,若何求得S呢?可用下面的導線的狀態方程式對S求解  (1)  令上式中:  (2)  把(2)代進(1)得:  (3)  式中S為待求應力,注腳m暗示已知條件下的數值,注腳n暗示待求條件下的數值。  人工計較時,先求出與每L相對應的A、B值,然后用試算法求解上述三次方程。本方程系采用直接求解法,故將方程作以下變換:  對于(4)  令(5)  原方程化為(6)  又令(7)  得:(8)  因而(9)  據韋達定理,為二次方程:的兩個根(10)  故:(11)  當時  (12)  當時,令:  (13)  時,  (14)  時,  (15)  憑據以上公式算出各類控制條件下的應力S,然后又憑據弧垂公式F=GL/8S,得出各類控制條件下的弧垂F。這樣就可計較各類代表檔距下在分歧溫度時的電線應力、弧垂(即安裝曲線)  而在PC-1500機輸電線路力學計較法式編寫中把判別式編寫錯了,  即:時,  (16)  時,  (17)  因判別式遍寫錯,故法式得出的應力(S)、弧垂(F)有誤,計較出的安裝曲線誤差更年夜,不能用于設計,本法式不能用。我對這一法式進行了修改并把它成功地移植到微機中。在移植中,因PC-1500機上的Basic語言比力接近微機上的一般Basic語言,而TurboBasic語言與一般Basic語言相比,是向下兼容的,即TurboBasic語言包括一般Basic語言,并所擴大,下面就移植進程中需要注重的一些問題作一些介紹。兩種機型的Basic語言幾近是不異的,只是在語句中,微機的語句界說符(如IF、THEN、FOR、TO、STEP等)與前后部門的內容一般都用空格來分格開,以便與其它成份進行區分,而PC-1500機上沒有這類要求,這是首先要注重的問題。  其次,在PC-1500機中,函數后所跟的自變量可以不用圓括號括起來,而在微機上函數后所跟的自變量必需用圓括號括起來,這也是必需引發注重的地方。  此外,常量、變量、語句、函數中,也有一些差異需求注重,下面劃分進行說明。  常量:PC-1500機上有PI(丌)常量;微機上沒有,只能用“3.1415927”這個具體的數來暗示。變量:PC-1500機的變量用一個英文字母、或二個英文字母的組合,或一個英文字母加上一個數字的組合組成的字符串來暗示;而微機則是作英文字母開首的字母串或字母數字串來暗示變量名,這里需要說明的是,與語言界說符不異的字符串不能做變量名。賦值語句:LET…,PC-1500機在多個賦值語句之間可以用逗號“,”分隔,而微機上只能以冒號“:”分隔。在微機上,當賦值號“=”雙方的數據類型分歧時,自動轉換成賦值號左側變量的數據類型。鍵盤輸進語句:INPUT…,PC-1500機的INPUT語句中可以包括多個“說明”,用來說明每一個期待輸進的變量,微機上則只能有一個說明。對于PC-1500的輸進語句,INPUT“說明”;變量,“說明”;變量,…的形式,在微機上可以改寫為多個INPUT“說明”;變量語句來實現,也能夠寫為一個INPUT“說明”;變量,變量,…語句的形式。輸出語句:PRINT/LPRINT;輸出語句分屏幕顯示輸出語句PRINT,打印機打印輸出語句LPRINT。PC-1500機顯示輸出語句PRINT會中斷法式運行,一般需要與PAUSE語句、或WAIT語句配合使用,而微機的PRINT語句不會中斷法式運行,則可以把PC-1500機中的PAUSE語句或WAIT語句直接刪失落。在用USING界說的花式輸出語句中,PC-1500機可以把USING作為一個界說花式的語句零丁使用,而微機上則不能零丁作為語句使用,只能配合PRINT(LPRINT)使用,即:PRINTUSING“花式”;變量,變量,…。在輸出語句中使用了TAB位置函數時,PC-1500機TAB后所跟的位置參數可以不用括號,而微機上TAB后所跟的位置參數必需用圓括號括起來,即要把TAB15改寫為TAB(15)。清屏語句:CLS;PC-1500機屏幕只有一行,顯示輸出成效和信息時,需屢次頻仍地使用清屏語句,而微機屏幕共25行,一般情況下,只需在法式開首使用,PC-1500機法式中過剩的清屏語句楞直接刪除失落。條件語句:IF…THEN…;PC-1500機上IF…LET形式的語句,若是要在微機上使用,需改成IF…THEN或IF…THENLET語句形式。輪回語句:FOR…NEXT;兩種機械語句形式基底細同,只是在執行FOR語句時,微機是先判別后輪回,而PC-1500機是先輪回,后判別。轉移語句:GOTO…;PC-1500機GOTO語句后可所以表達式,而微機上只能跟行號。轉子語句GOSUB以后在PC-1500機上可所以表達式或肯定的行號。而微機上只能跟行號。  PC-1500機隨機配CE-150繪圖式打印機,具有繪圖、打印兩種功能,其繪圖語句和部門打印語句與該打印有關,一般不能直接用于其它計較機上。由于微機用打印機繪圖時,通常為采用拷貝屏幕的方式實現,是以,對于繪圖語句,在移植法式時,由于實現方式分歧,最好用注釋語句注釋起來,或直接刪除的法子處置。等法式初步伐通后,再進一步斟酌繪圖功能的實現。  法式移植技巧  把PC-1500機法式移植到微機上使用,一般需要經過以下幾個步驟:首先將PC-1500機與微機聯機,經由過程RC-232串行口輸進、或手工鍵盤輸進,把PC-1500機法式以ASCⅡ碼形式寄存在微機上,然后逐行檢查法式,對需要注釋或刪除的語句(如顯示繪圖語句、繪圖打印語句)進步前輩行處置,對兩種機械上有差異的語句、函數進行修改(如語句界說符加空格、函數加括號)。在這些工作做完后,就能夠起頭調試法式。在調試進程中,多輸出一些中心成效,以便檢查犯錯緣由,直到算出準確的成效。  微機法式在初步伐試經由過程后,可憑據微機的特點,擴充法式功能,完善打印輸出,增加和設計用戶界面,直到編寫出使人滿意的法式為止。  總之,只要弄清晰了上面所敘述的兩種計較機之間的語言差異,并在法式移植進程中加以注重,PC-1500機法式很容易就能夠移植到微機上使用。本高壓送電線路電線力學計較法式經修改、移植到微機中,現也經由過程算例,并可以用于設計了。  附修改、移植后的法式以下:  法式一:  1:CLS  2:LPRINTTAB(10);"高壓送電線路力學計較法式計較成效"  3:INPUT"電線型號B$=";B$  4:INPUT"電線標稱截面C$=";C$  6:LPRINTTAB(4);B$;"-"C$  8:LETK=50  9:LETD=1  10:DIML(6),GM(4),TM(4),SM(4)  15:INPUT" 電線彈性模量E=";E  16:LPRINTTAB(4);" 電線彈性模量=";E  17:INPUT" 電線溫度線脹系數W="W  18:LPRINTTAB(4);" 電線溫度線脹系數="W  20:DATA3.55E-3,-30,11.2,4.96E-3,-5,11.2,5.03E-3,-5,11.2,3.55E-3,5,7  25:INPUT"肇端計較檔距L(0)="L(0)  26:INPUT"最年夜計較檔距L(4)="L(4)  35:LPRINTTAB(4);" 肇端計較檔距=";L(0);" 最年夜計較檔距=";L(4)  40:FORI=1TO4  50:READGM(I),TM(I),SM(I)  60:NEXTI  70:FORI=1TO3  80:X=1:Y=I 1:GOSUB900  90:IFZ<0GOTO110  100:L(I)=INT(.5 SQR(Z))  105:NEXTI:GOTO120  110:L(I)=-1:GOTO105  120:FORI=4TO5  130:X=2:Y=I-1:GOSUB900  140:IFZ<0GOTO160  150:L(I)=INT(.5 SQR(Z))  155:NEXTI:GOTO170  160:L(I)=-1:GOTO155  170:X=3:Y=4:GOSUB900  180:IFZ<0GOTO200  190:L(6)=INT(.5 SQR(Z)):GOTO210  200:L(6)=-1  210:FORI=1TO6  220:LPRINTTAB(4);"L(";I;")=";L(I);"(m)":NEXTI  225:LPRINT"L(AB)=";L(1)"(m)";"L(AC)=";L(2)"(m)";"L(AD)=";L(3);"(m)";  227:LPRINT"L(BC)=";L(4)"(m)";"L(BD)=";L(5)"(m)";"L(CD)=";L(6)"(m)"  230:IFL(1)<=0ORL(2)<=0ORL(3)<=0GOTO340  235:G1=GM(1):T1=TM(1):S1=SM(1)  240:IFL(1)<L(2)ANDL(1)<L(3)THENL1=L(1):GOTO270  250:IFL(2)<L(1)ANDL(2)<L(3)THENL1=L(2):GOTO300  260:L1=L(3):L2=0:L3=0:G2=GM(4):T2=TM(4):S2=SM(4):GOTO360  270:IFL(4)<=0ORL(5)<=0GOTO330  275:G2=GM(2):T2=TM(2):S2=SM(2)  280:IFL(4)<L(5)THENL2=L(4):GOTO310  290:L2=L(5):L3=0:GOTO360  300:IFL(6)>L1THENL2=L(6):G2=GM(3):T2=TM(3):S2=SM(3)  305:L3=0:G3=GM(4):T3=TM(4):S3=SM(4):GOTO360  310:IFL(6)>L2THENL3=L(6):G3=GM(3):T3=TM(3):S3=SM(3)  315:G4=GM(4):T4=TM(4):S4=SM(4):GOTO360  320:L3=0:G3=GM(3):T3=TM(3):S3=SM(3):GOTO360  330:IFL(6)>0THENL(2)=L(6):G2=GM(3):T2=TM(3):S2=SM(3):L3=0  335:G3=GM(4):T3=TM(4):S3=SM(4):GOTO360  340:IFL(4)<=0ORL(5)<=0GOTO354  342:IFL(4)<L(5)THENL1=L(4):G1=GM(2):T1=TM(2):S1=SM(2):GOTO350  344:L1=L(5):G1=GM(2):T1=TM(2):S1=SM(2):L2=0:L3=0:GOTO360  350:IFL(6)>L1THENL(2)=L(6):G2=GM(3):T2=TM(3):S2=SM(3):L3=0  351:G3=GM(4):T3=TM(4):S3=SM(4):GOTO360  352:L2=0:L3=0:G2=GM(3):T2=TM(3):S2=SM(3):GOTO360  354:IFL(6)<=0GOTO598  356:L1=L(6):G1=GM(3):T1=TM(3):S1=SM(3):L2=0:L3=0  358:G2=GM(4):T2=TM(4):S2=SM(4):GOTO360  360:LPRINT" L1=";L1;"(m)";  361:LPRINT" L2=";L2;"(m)";  365:LPRINT" L3=";L3;"(m)"  400:print" S1=";S1;" S2="S2;" S3="S4;" S4="S4  410:PRINT" G1=";G1;" G2="G2;" G3="G3;" G4="G4  420:PRINT" T1=";T1;" T2="T2;" T3="T3;" T4="T4  500:DIMA$(10),G(10),T(10),C(L4/K 3),H(L4/K 3)  505:RESTORE550  510:FORI=1TO10  520:READA$(I),G(I),T(I)  530:LPRINTA$(I)  540:LPRINT"檔距L(m)應力S(kg/mm2)弧垂F(m)"  550:DATA"最高溫度",3.55E-3,40,"最低溫度",3.55E-3,-30,"最年夜風速",5.03E-3,-5,"最年夜復冰",4.96E-3,-5  560:DATA"平均溫度",3.55E-3,5,"年夜氣過電壓<1>:V=0",3.55E-3,15,"年夜氣過電壓<2>"  570:DATA3.59E-3,15,"安裝",3.59E-3,-15,"操作過電壓",3.74E-3,-15,"事故",3.55E-3  580:DATA-10  590:GOSUB600  595:NEXTI  598:END  600:GM=G1:TM=T1:SM=S1  610:FORL=L(0)TOK*INT(L1/K)STEPK  612:GOSUB700  615:NEXTL  620:L=L1:GOSUB700  625:GM=G2:TM=T2:SM=S2  630:FORL=K K*INT(L1/K)TO600STEPK  631:GOSUB700  635:NEXTL  671:GOSUB700  675:RETURN  700:G=G(I):T=T(I)  710:A=(L^2*GM^2*E/(24*SM^2))-SM E*W*(T-TM)  720:B=L^2*G^2*E/24  730:P=-A^2/9:Q=A^3*2/27-B  740:IFQ*Q 4*P^(3)<0GOTO850  750:U=((-Q SQR(Q^2 4*P^(3)))/2)^(1/3)  760:V=((-Q-SQR(Q^2 4*P^(3)))/2)^(1/3)  770:S=U V-A/3  780:F=L*L*G/8/S  790:S=INT((S 0.005)*1000)/1000:F=INT((F .005)*1000)/1000  800:LPRINTUSING"######";L;  801:LPRINTUSING"##########.##";S;  802:LPRINTUSING"###########.##";F  820:RETURN  850:O=ATN((SQR((-Q^2-4*P^(3))))/(-Q))  860:IFQ>0THENS=(COS(O/3)-SQR(3)*SIN(O/3))*SQR(-P)-A/3  870:IFQ<0THENS=2*SQR(-P)*COS(O/3)-A/3  880:GOTO780  900:Z1=(24/E)*(SM(X)-SM(Y)) 24*W*(TM(X)-TM(Y))  902:Z2=(GM(X)/SM(X))^2-(GM(Y)/SM(Y))^2  905:Z=Z1/Z2  910:RETURN  法式二:  800:LPRINTTAB(8)"安裝曲線表"  810:K=50  815:X=15  816:E=8490  817:W=18.86E-6  818:PRINT" W=";W;" E=";E  820:DIMX(11),A(11)  830:restore921  840:FORI=1TO11  850:READX(I),A(I)  851:L=X(I):SM=A(I)  921:DATA100,9.01,150,9.21,200,8.88,250,8.48,300,8.17,350,7.93,400,7.76  922:DATA450,7.63,500,7.53,550,7.46,600,7.40  930:GOSUB955  935:nextI  950:END  955:G=.00355:TM=-30:GM=.00355  980:LPRINTtab(4);" L=";L;"(m)"  985:Lprint"氣溫T(0C)應力S(kg/mm2)弧垂F(m)"  990:forT1=-5TO30STEP5  995:T=T1-X  1000:T2=T1-5  1710:A=(L^2*GM^2*E/(24*SM^2))-SM E*W*(T-TM)  1720:B=L^2*G^2*E/24  1730:P=-A^2/9:Q=A^3*2/27-B  1740:IFQ*Q 4*P^(3)<0GOTO1850  1750:U=((-Q SQR(Q^2 4*P^(3)))/2)^(1/3)  1760:V=((-Q-SQR(Q^2 4*P^(3)))/2)^(1/3)  1770:S=U V-A/3  1780:F=L*L*G/(8*S)  1790:S=INT((S 0.005)*1000)/1000:F=INT((F .005)*1000)/1000  1792:LPRINTUSING"######";T2;  1793LPRINTUSING"##########.##";S;F  1794NEXTT1  1795IFL=0GOTO950  1820:RETURN  1850:O=ATN((SQR((-Q^2-4*P^(3))))/(-Q))  1860:IFQ>0THENS=(COS(O/3)-SQR(3)*SIN(O/3))*SQR(-P)-A/3  1870:IFQ<0THENS=2*SQR(-P)*COS(O/3)-A/3  1880:GOTO1780  參考文獻:1、《水利水電工程PC—1500法式集》  2、《Basic語言》譚浩強田淑清編著科學普及出書社  3、《計較機技術與計較機運用》1995.1

返回列表 | 打印本頁
上一篇:SF6全絕緣環網柜及負荷開關-熔斷器特點    下一篇:淺談發電機集電環發熱現象及處理意見
猜你喜歡
·送電線路的基本知識
·送電線路的基本知識
·變電站全站停送電的操作程序
·[技術課堂]酒泉風電二期風電送電線路工程開工
·[行業技術文章]拉線門型塔在山區送電線路中的使用
·[行業技術文章]送電線路跳閘的事故處理
·[行業技術文章]送電線路鳥害及其防止措施
·[行業技術文章]山區架空送電線路的鳥害防治
·[行業技術文章]送電線路防治鳥害的好方法
 
同類推薦
·焦化煤氣燃氣發電廠項目建議書及可研
·[行業技術文章]10kV線路故障跳閘的快
·中國風電設備踏上自主路 未來企業訂單
·[行業技術文章]淺談如何加強地方電廠
·縣級電網調度自動化系統RTU延時停電裝
·6KV廠用電系統單相接地的處理
·[行業技術文章]對低壓避雷器安裝位置
·電源電子設備的電磁兼容
推薦企業
東莞市厚街竑鈺布料商店
蘇州宏遠商業設施制造有限公司
廣州市廣京裝飾材料有限公司(歐佰天花
深圳市科思特光電有限公司
江蘇省江都市蘇中商貿城日文鞋業經營
南京源順紙業有限公司
東莞市縱橫交通設施工程有限公司
廣州市黃埔區星燁禮品玩具廠
福鼎市云銳機車部件廠
江蘇精科互感器股份有限公司
關于我們 - 使用手冊 - 法律聲明 - 廣告服務 - 聯系我們 - 友情鏈接 - 刪除或修改信息 - 網站地圖
本站信息由會員自主添加,如涉及隱私等,網站不承擔任何責任!如發現侵權違規等問題請發郵件至2697327695#qq.com(#用@代替)或在線留言聯系刪除。
版權所有 1024商務網 浙ICP備12020213號-1 客服QQ:2697327695
明日之后送礼
在随州跑滴滴赚钱吗 股票赚钱宝客服 2018魔域还赚钱吗 单机麻将免费下载 手机最赚钱软件app 小财神彩票苹果 梦幻西游军火商赚钱吗 红警修改器 原创视频怎么才能赚钱 动漫周边在淘宝卖的赚钱吗 琼崖海南麻将赢钱技巧 5.1用车赚钱吗 麻将技巧口诀 gtaol怎么卖车赚钱 海王捕鱼猫大爷攻略 商业策划赚钱