鐵路線路縱斷面ppt課件-資料下載頁
2025-05-12 13:36本頁面
【正文】 H1=H2 ? H2=*(HIGHLOW) ? ELSE ? LOW=H2 ? H2=H1 ? H1=LOW+*(HIGHLOW) ? END IF ? 這只是 1次逼近，還需進一步逼近，這里需要用到一個循環(huán)，逐步逼近。留作大家思考！ ? 以最優(yōu)坡度時的 H計算最小的 S ? IF()THEN ? AIL(I)=AI2 ? HBX(I)=H2 ? ELSE ? AIL(I)=AI1 ? HBX(I)=H1 ? END IF 六、變坡點高程修正 ? DO 180,I=2,J ? HBY(I)=HBX(I1)+LBC(I1)*AIL(I1) ? 將每個坡段賦予兩個高程（ HBX前點，HBY后點）便于每個坡度段的修正 ? 180 CONTINUE ? DO 130,I=2,J1 ? IF(ABS(HBY(I)HBX(I)).)THEN ? HBX(I)=(HBY(I)+HBX(I))/ ? HBY(I)=HBX(I) ? AIL(I1)=(HBY(I)HBX(I1))/LBC(I1) ? AIL(I)=(HBY(I+1)HBX(I))/LBC(I) ? END IF ? IF(ABS(HBY(I)HBX(I)).(I1).(I).(I).(I))THEN ? BPD(I)=BPD(I)1 ? HBX(I)=HBY(I)50*AIL(I1) ? HBY(I)=HBX(I) ? LBC(I1)=LBC(I1)50 ? LBC(I)=LBC(I)+50 ? AIL(I)=(HBY(I+1)HBX(I))/LBC(I) ? END IF 50mHBY(i )HBX(i )新的BPD? IF(ABS(HBY(I)HBX(I)).(I1).(I).(I).(I))THEN ? BPD(I)=BPD(I)+1 ? HBX(I)=HBX(I)50*AIL(I) ? HBY(I)=HBX(I) ? LBC(I)=LBC(I)50 ? LBC(I1)=LBC(I1)+50 ? AIL(I1)=(HBY(I)HBX(I1))/LBC(I1) ? END IF 50mHBY(i)HBX(i)新的BPD? 另外還有幾種情況，大家下去自己推導一下，不再一一陳述。 ? 七、重新計算坡度 ? DO 140,I=1,J1 ? AIL(I)=(HBY(I+1)HBX(I))/LBC(I) ? 140 CONTINUE ? 八、超限坡調(diào)整 ? 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
教學課件相關推薦
鄂ICP備17016276號-1