Casio fx-5800P - การเขียนโปรแกรมรัน Station ในงานถนน

ในการเขียนโปรแกรมคำนวณโค้งวงกลมหรือโค้งอื่นๆ นั้น นอกจากการเขียนโปรแกรมคำนวณส่วนประกอบโค้งแล้ว การคำนวณรายการวางโค้งหรือ Layout นั้น ก็นับว่ามีความสำคัญไม่น้อยไปกว่ากัน เพราะจะทำให้โปรแกรมมีความสมบูรณ์มากขึ้น และใช้งานได้อย่างสะดวกครบถ้วนมากยิ่งขึ้น


ในบทนี้ผู้เขียนจะเสนอวิธีเขียนโปรแกรมเพื่อคำนวณการรัน Sta แบบอัตโนมัติเพื่อให้ผู้อ่านมีไอเดียในการนำไปเขียนโปรแกรมต่อไป

ตัวอย่าง : ที่โค้งวงกลมโค้งหนึ่งมี PC sta. 0+380.536 และ PT sta. 0+497.283 จงเขียนโปรแกรมเพื่อรัน Station จาก PC ไป PT ทุกๆ 25 เมตร(arc)

วิธีคำนวณ :

การหา Station ถัดจาก PC ทำได้โดย

1. นำ PC มาหารด้วย 25 จะได้ 380.536 ÷ 25 = 15.22144
2. ตัดทศนิยมของผลลัพธ์ออก Int(15.22144) = 15
3. นำ 25 คูณกลับเข้าไป 15 x 25 = 375 ได้เป็น Station เต็มก่อน PC
4. บวก 25 เข้าไป 375 + 25 = 400 ได้เป็น Station ถัดจาก PC

จากนั้นก็บวก 25 ทบเข้าไปเรื่อยๆ เป็น Full Station ถัดไป จนถึง PT

โปรแกรม :

        380.536→A↵        // กำหนดค่า PC

        497.283→B↵        // กำหนดค่า PT

        Cls↵

        A◢        // แสดง PC

        Int(A÷25)x25+25→F↵        // คำนวณ Full Sta ถัดจาก PC

Lbl 0↵
        If F>B:Then Goto 1:IfEnd↵        // Full Sta จะต้องไม่เกิน PT
        F◢        // แสดง Full Sta
        F+25→F↵        // คำนวณ Full Sta ถัดไป
        Goto 0↵       
Lbl 1↵
        B◢        // แสดง PT


ผลการรันโปรแกรม :

380.536
400
425
450
475
497.283


ซึ่ง Station ที่ได้นี้ยังสามารถนำไปคำนวณค่า deflection angle(มุมเปิด) และ chord(ระยะ) ได้อีกด้วย ขึ้นอยู่กับผู้เขียนโปรแกรมว่าต้องการจะเขียนโปรแกรมให้ออกมาเป็นแบบไหน