鐵路線路縱斷面ppt課件(參考版)
2025-05-15 13:36本頁面
【正文】 ? 七、重新計算坡度 ? DO 140,I=1,J1 ? AIL(I)=(HBY(I+1)HBX(I))/LBC(I) ? 140 CONTINUE ? 八、超限坡調整 ? DO 150,I=2,J ? IF(ABS(AIL(I1)*1000)+)THEN ? HBX(I1)=HBX(I1)+LBC(I1)*((ABS(AIL(I1))*1000+))/2022 ? HBY(I)=HBY(I)LBC(I1)*((ABS(AIL(I1))*1000+))/2022 ? end if Continue 前點升高，后點降低！方法比較多！ ? 九、再次計算坡度 ? DO 160,I=1,J1 ? AIL(I)=(HBY(I+1)HBX(I))/LBC(I)*1000 ? 160 CONTINUE ? 十、輸出結果文件 ? DO 190,I=1,J1 ? WRITE(2,300)LBC(I),AIL(I) ? 300 FORMAT(1X,I4,7X,) ? 190 CONTINUE 。 開始 輸入數(shù)據(jù) 角度轉化 判斷變坡點 變坡點高程優(yōu)化 各坡段坡度優(yōu)化 變坡點修正 圓曲線坡度折減計算 實際坡度的計算 輸出數(shù)據(jù) 結束 設計坡度的計算 抬降量的計算 既有線縱斷面優(yōu)化程序設計 ? 一、輸入數(shù)據(jù)文件 ? 讀入測點數(shù)，高程，里程 ? read(1,*)N ? do 5,i=1,N ? read(1,*)H(i),LC(i) ? continue ? 二、計算每兩個測點之間的坡度值 ? do 10,i=1,N ? PD(I)=(H(I+1)H(I))/ ? 10 continue ? 三、坡度差計算 ? do 20,i=2,N ? PDC(I)=PD(I)PD(I1) ? 20 continue ? 四、計算變坡點序號 ? J=2 ? do 30,i=5,N4 ? IF(PDC(I).*PDC(I1).(I).*PDC(I+1))THEN ? BPD(J)=I ? J=J+1 ? END IF ? 30 continue BPD(1)=1 ? BPD(J)=N ? 五、選擇最優(yōu)初始點高程（ H值確定，采用黃金分割法） ? DO 40 I=1,J1 ? JB=BPD(I) 第一變坡點，即初始點 ? JA=BPD(I+1) 第二變坡點 ? LOW=H(JB) ? HIGH=H(JB)+ ? H1=LOW+*(HIGHLOW) ? H2=*(HIGHLOW) ? LBC(I)=LC(JA)LC(JB) 坡度長度（第一二變坡點之間的） ? IF()THEN ? DL1=0 進行累加前準備 ? DL2=0 ? LL=0 ? S1=0 ? S2=0 ? DO 50,II=JB,JA ? LCC=LC(II)LC(JB)任意一測點到第一個變坡點之間的距離 ? DD1=H(II)H1 相當于 值 ? DD2=H(II)H2 ? DL1=DL1+DD1*LCC d和 l的乘積， ? DL2=DL2+DD2*LCC ? LL=LL+LCC**2 l的平方，計算函數(shù) s須首先計算坡度 i ? 50 continue
教學課件相關推薦
鄂ICP備17016276號-1