@@@@@@@@@@@@‚b‚`‚r‚h‚n@‚e‚w|‚U‚O‚R‚o @@@@@@@Survey Program@601 (@Ver. 1.01@) CASIO FX-603P ( International DEGREE ) - 35- @@@@@@@@@@@@ @m Contents n@@ @Outline @ @EEEEEEEEEEEEE 37 @Program Outline @ EEEEEEEEEEEEE 37 @Program Contents@E@Instruction @@P 0 :@Reverse Calculation@m@Radiaton Reverse@n EEEEEE38 @@P 1 :@Radiation Traverse@E@Open Traverse Calculation EEE39 @@P 2 :@Intermidiam Point@E@Width Point Calculation EEEEE40 @@P 3 :@4 Points Intersection Calculation EEEEEE41 @@P 4 :@Slope Length ---> Distance EEEEEE42 @@P 5 :@Angle Calculation EEEEEE43 @@P 6 :@Indirect Level Calculation 1 ( S,V ) EEEEEE44 @@P 7 :@Simple curve Intermidiam Calculation EEEEEE45 @@P 8 :@2 Angles Intersection Calculation EEEEEE46 @P 9 :@2 Lengths Intersection Calculation EEEEEE47 @@P10 :@Perpendicular Calculation EEEEEE48 P11 :@Vertical Calculation EEEEEE49 P12 :@WILD Atmospher Distance Correction EEEEEE50 P13 :@Distance Calculation EEEEEE51 P14 :@Stadia Calculation 1 m Elevetion n EEEEEE52 P15 :@Stadia Calculation 2 m Elevation , Coordinates n EEE53 P16 :@Stadia Calculation 3 m Reverse n EEEEEE54 @@P17 :@Indirect Level Calculation 2 ( h,l ) EEEEEE55 @@P18 :@Indirect Level Calculation 3 ( S,V ) m Reverse n EEE56 @@P19 :@Indirect Level Calculation 4 ( dh ) m Reverse n EEE57 - 36- @@@@@@@@@@@‚b‚`‚r‚h‚n@‚e‚w|‚U‚O‚R‚o @@@@@@Survey Program@601 (@Ver. 1.01@) m@Outline@n @Recentry in the office we can calculate elevation and coordinates simply by personal computers. Therefore in the field we can calculate elevation and coordinates simply by pocket computeres , I think that programmable calculator is resonable computer for example CASIO FX-603P . @The above mentioned CASIO FX-603P is suited for field calculation. m@Program Outline@n @Those programs were made of simple calculation check for main object in the field. If you can get the result of calculation by personal computers simply , you had better used personal computer instead of pocket computers in the office. Those programs include +- 1 mm error but this error is ignored. - 37- m@Program Contents@E@Instruction@n @ @P 0 :@Reverse Calculation@m@Radiaton Reverse@n Object length and azimuth can be calculated from 2 points coordinates. @@@@@@@@@@@@@@@Bi‚Q|‚Pj @@@@@@@@@@@@@@@@@@@@Bi‚Q|‚Qj @@@@@@i‚Pj@B @@@@@EEEEEE@Memory table EEEEEE @@@@@‚l 81F‚w‚P Coordinate @‚l 83F‚w‚Q Coordinate @@@@@‚l 82F‚x‚P Coordinate @‚l 84F‚x‚Q Coordinate @@@@@‚l 00FPlane Length ‚l FFAzimuth @@@@@EEEEEE@@Example@EEEEEE @@@@@‚w‚P‚P‚O‚OD‚O‚O‚O@‚x‚P‚P‚O‚OD‚O‚O‚O @@@@@‚w‚Q‚R‚T‚OD‚O‚O‚O@‚x‚Q‚Q‚T‚OD‚O‚O‚O@i‚Q|‚Pj @@@@@‚w‚Q‚Q‚Q‚UD‚W‚Q‚S@‚x‚Q‚S‚O‚XD‚R‚R‚Q@i‚Q|‚Qj EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@@@@@@‚o‚O @@‚Q@Reverse @@@@@@ ‚d‚w‚d Indicate Title @@‚R@‚w‚P@@@@@@@@@‚P‚O‚O@‚d‚w‚d@@@@@Input ‚w‚P Coordinate @@‚S@‚x‚P@@@@@@@@@‚P‚O‚O@‚d‚w‚d@@@@@Input ‚x‚P Coordinate @@‚T@‚w‚Q@@@i‚Q|‚Pj@‚R‚T‚O@‚d‚w‚d@@@@@Input ‚w‚Q Coordinate @@‚U@‚x‚Q@@@i‚Q|‚Pj@‚Q‚T‚O@‚d‚w‚d@@@@@Input ‚x‚Q Coordinate @@‚V@‚`‚y 59K02f10.48h ‚d‚w‚d@@@@@Indicate Azimuth @@‚W@‚k@‚Q‚X‚PD‚T‚S‚W@@‚d‚w‚d@@@@@@@@@Indicate Plane Length @@‚X@‚w‚Q@@@i‚Q|‚Qj@‚Q‚Q‚UD‚W‚Q‚S@‚d‚w‚d@Input ‚w‚Q Coordinate @‚P‚O@‚x‚Q@@@i‚Q|‚Qj@‚S‚O‚XD‚R‚R‚Q@‚d‚w‚d@Input ‚x‚Q Coordinate @‚P‚P@‚`‚y 22K17f35.85h ‚d‚w‚d@@@@@Indicate Azimuth @‚P‚Q@‚k@‚R‚R‚SD‚R‚Q‚P@@‚d‚w‚d@@@@@@@@@Indicate Plane Length @‚P‚R@‚w‚Q@@@@@@@@@@@@@@@@@@@@@Input ‚w‚Q Coordinate - 38- @@ P 1 :@Radiation Traverse@E@Open Traverse Calculation Object coodinates can be calculated from horizontal angle and length. @@@@@@ In case Radiation Traverse is HA , Input@+ ( Plus ) . @@@@@@ In case Open Traverse is HA , Input@- ( Minus ) . + ( Plus ) --- Radiation Traverse @@@@@@@@@@ - ( Minus ) @--- Open Traverse @@@@@ @@In case Slope Length input L is - ( Minus ) . @@@@ Vertical input mode @@@@@@@@@@In case Horizontal is 90K, Input@+ ( Plus ) . @@@@@@@@@@In case Horizontal is 0K, Input@- ( Minus ) . @@@@EEEEE@Memory table@EEEEE@@EEE@Memory name@EEE @@@‚l 81F‚w‚P Coordinate ‚l FFAzimuth @@@@ ‚g‚`@@Horizontal Angle @@@‚l 82F‚x‚P Coordinate ‚l 97FHorizontal Angle ‚k@@@Length @@@‚l 83F‚w‚Q Coordinate ‚l 8FF‚w Coordinate @ ‚u@@@Vertical @@@‚l 84F‚x‚Q Coordinate ‚l 9FF‚x Coordinate @@@EEEEEEE@@Example@@EEEEEEE @@@‚w‚P‚P‚O‚OD‚O‚O‚O@@@‚x‚P‚P‚O‚OD‚O‚O‚O @@@‚w‚Q‚R‚T‚OD‚O‚O‚O@@@‚x‚Q‚Q‚T‚OD‚O‚O‚O @@@‚g‚` 53K15f25h @‚k@‚R‚R‚SD‚R‚Q‚Q EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@@@@@@‚o‚P @@‚Q@Traverse @@ @‚d‚w‚d@@@@@Indicate Title @@‚R@‚w‚P@@@@@@@@@‚P‚O‚O@‚d‚w‚d@@@@@Input ‚w‚P Coordinate @@‚S@‚x‚P@@@@@@@@@‚P‚O‚O@‚d‚w‚d@@@@@Input ‚x‚P Coordinate @@‚T@‚w‚Q@@@@@@@@@‚R‚T‚O@‚d‚w‚d@@@@@Input ‚w‚Q Coordinate @@‚U@‚x‚Q@@@@@@@@@‚Q‚T‚O@‚d‚w‚d@@@@@Input ‚x‚Q Coordinate @@‚V@‚`‚y 59K02f10.48" @@@‚d‚w‚d@@ @@ Indicate Basic Azimuth @@‚W@‚k@‚Q‚X‚PD‚T‚S‚W@@‚d‚w‚d@@@@@@@@@Indicate Basic Length @@‚X@‚g‚`@@@@@@@@@53.1525 ‚d‚w‚d@ Input Horizontal Angle @‚P‚O@‚k@@@@@@@@@@‚R‚R‚SD‚R‚Q‚Q@‚d‚w‚d@Input Length @‚P‚P@‚`‚y 112K17f35.4h @‚d‚w‚d@@@@@Indicate Azimuth @ 12 @X @ 409.333 @@‚d‚w‚d@@@@@@@@@Indicate X Coordinate @ 13 @Y @ - 26.824 @@‚d‚w‚d@@@@@@@@@Indicate Y Coordinate @‚P‚S@‚g‚`@@@@@@@@@@@@@@@@@@@@@Input Horizontal Angle - 39- @@ P 2 :@Intermidiam Point@E@Width Point Calculation @@@@We can get intermidiam coordinates of straight line and width point. @@@@@i|j@EEE@Left side@i{j@EEE@Right side @@@@EEEEE@Memory table@EEEEE@@EEE@Memory name@EEE @@@‚l@81F‚w‚P Coordinate ‚l@95FAzimuth @@@@‚k @Intermidiam Length @@@‚l@82F‚x‚P Coordinate ‚l@@F @@@@|F{ Width Length @@@‚l@83F‚w‚Q Coordinate ‚l@8FF‚w Coordinate @@@‚l@84F‚x‚Q Coordinate ‚l@9FF‚x Coordinate @@@EEEEEEE@@Example@@EEEEEEE @@@‚w‚P‚P‚O‚OD‚O‚O‚O@@@‚x‚P‚P‚O‚OD‚O‚O‚O @@@‚w‚Q‚R‚T‚OD‚O‚O‚O@@@‚x‚Q‚Q‚T‚OD‚O‚O‚O @@@‚k@‚P‚U‚VD‚P‚U‚O@@|F{@‚P‚OD‚O‚O‚O EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@@@@@@‚o‚Q @@‚Q@Inter Point @@@@‚d‚w‚d@@@@@Indicate Title @@‚R@‚w‚P@@@@@@@@@‚P‚O‚O@‚d‚w‚d@@@@@Input ‚w‚P Coordinate @@‚S@‚x‚P@@@@@@@@@‚P‚O‚O@‚d‚w‚d@@@@@Input ‚x‚P Coordinate @@‚T@‚w‚Q@@@@@@@@@‚R‚T‚O@‚d‚w‚d@@@@@Input ‚w‚Q Coordinate @@‚U@‚x‚Q@@@@@@@@@‚Q‚T‚O@‚d‚w‚d@@@@@Input ‚x‚Q Coordinate @@‚V@‚`‚y 59K02f10.48h ‚d‚w‚d@@@@@Indicate Basic Azimuth @@‚W@‚k@‚Q‚X‚PD‚T‚S‚W@@‚d‚w‚d@@@@@@@@@Indicate Basic Length @@‚X@‚k@@@@@@@@@@‚P‚U‚VD‚P‚U‚O@‚d‚w‚d@Input Intermidiam Length @‚P‚O@‚`‚y 59K02f10.48h ‚d‚w‚d@@@@@Indicate Azimuth of Int. @ 11 @X @ 243.339 ‚d‚w‚d@@@@@@@@@Indicate INT.X Coordinate @ 12 @Y @ 186.003 @@‚d‚w‚d@@@@@@@@@Indicate INT.Y Coordinate @‚P‚R@|F{@@@@@@@@‚P‚O@@‚d‚w‚d@@@@@Input Width Length @‚P‚S@‚`‚y 149K02f10.48h ‚d‚w‚d@@@@@Indicate Azimuth of Wid. @ 15 @X @ 248.483 @@‚d‚w‚d@@@@@@@@@Indicate Wid.X Coordinate @ 16 @Y @ 177.428 @@‚d‚w‚d@@@@@@@@@Indicate Wid.Y Coordinate @‚P‚V@|F{@@@@@@@@@@@@@@@@@@@@Input Width Length - 40- @@ P 3 :@4 Points Intersection Calculation We can get 4 points intersection coordinates. @@@@@@@@@@@@@@@@@@@@@Bi‚Qj @@@@@@@i‚Rj@B @@@@@@@@i‚Pj@B@@@@@@@@Bi‚Sj @@@@@EEEEEE@Memory table@EEEEEE @@@@@‚l@81F‚w‚P Coordinate @‚l@85F‚w‚R Coordinate @@@@@‚l@82F‚x‚P Coordinate @‚l@86F‚x‚R Coordinate @@@@@‚l@83F‚w‚Q Coordinate @‚l@87F‚w‚S Coordinate @@@@@‚l@84F‚x‚Q Coordinate @‚l@88F‚x‚S Coordinate @@@@@‚l@8FF‚w@ Coordinate @‚l@9FF‚x@ Coordinate @@@@@EEEEEE@@Example@@EEEEEE @@@@@‚w‚P@@‚SD‚O‚O‚O@‚x‚P@@‚TD‚O‚O‚O @@@@@‚w‚Q@‚P‚PD‚O‚O‚O@‚x‚Q@‚P‚QD‚O‚O‚O @@@@@‚w‚R@@‚VD‚O‚O‚O@‚x‚R@@‚SD‚O‚O‚O @@@@@‚w‚S@@‚UD‚O‚O‚O@‚x‚S@‚P‚QD‚O‚O‚O EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@@@@@@‚o‚R @@‚Q@‚S‚w@@@@@@@@@‚d‚w‚d@@@@@@@@@@Indicate Title @@‚R@‚w‚P@@@@@@@@ @‚S@@‚d‚w‚d@@@@@@Input ‚w‚P Coordinate @@‚S@‚x‚P@@@@@@@@@ ‚T@@‚d‚w‚d@@@@@@Input ‚x‚P Coordinate @@‚T@‚w‚Q@@@@@@@@@‚P‚P@@‚d‚w‚d@@@@@@Input ‚w‚Q Coordinate @@‚U@‚x‚Q@@@@@@@@@‚P‚Q@@‚d‚w‚d@@@@@@Input ‚x‚Q Coordinate @@‚V@‚w‚R@@@@@@@@@ ‚V@@‚d‚w‚d@@@@@@Input ‚w‚R Coordinate @@‚W@‚x‚R@@@@@@@@@ ‚S@@‚d‚w‚d@@@@@@Input ‚x‚R Coordinate @@‚X@‚w‚S@@@@@@@@@ ‚U@@‚d‚w‚d@@@@@@Input ‚w‚S Coordinate @‚P‚O@‚x‚S@@@@@@@@@‚P‚Q@@‚d‚w‚d@@@@@@Input ‚x‚S Coordinate @ 11 @X @‚UD‚T‚T‚U@@@@‚d‚w‚d@@@@@@@@@@Indicate X Coordinate @ 12 @Y@ ‚VD‚T‚T‚U@@@@‚d‚w‚d@@@@@@@@@@Indicate Y Coordinate @‚P‚R@‚w‚P@@@@@@@@@@@@@@@@@@@@@@Input ‚w‚P Coordinate - 41- @@ P 4 :@Slope Length ---> Distance @@@@ We can get a rest distance when we want set a point by setting temporary point. @@@ Result@‚„{i Plus j F@‚„@Far away from temporary point @@@@@Result@‚„|i Minus jF@‚„@Neer from temporary point @@@ Vertical input mode @@@@@@@@@In case Horizontal is 90K, Input@+ ( Plus ) . @@@@@@@@@In case Horizontal is 0K, Input@- ( Minus ) . @@@@@@@@@@@@@@@@@@@@@@@@@@@@ B @@@@@@@@@@@@@@@@@‚k @@@@@Instrument@B@@@@@@@@@@@B@@@@@@BTemporary @@@@@@ @point@@@@@@‚k‚O@@@@True @-‚„ point point @@@EEEEEEEEE@Memory table@EEEEEEEEE @@@‚l@00FBasic Lengthm‚k‚On@‚l@90FSlope Length@m‚r@n @@@‚l@94FPlane Length@@@@@‚l@5FFVertical @m‚u@n @@@@@@@@EEEE@@Example@@EEEE @@@@@@@@‚k‚O‚P‚O‚OD‚O‚O‚O@@@Basic Length @@@@@@@@‚u@‚W‚WK‚S‚Xf‚T‚Th@Vertical @@@@@@@@‚r@‚P‚O‚OD‚P‚P‚P@@@Slope Length EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@@@@@@‚o‚S @@‚Q@‚r|„‚k@@@@@@@‚d‚w‚d@@@@@@@@@Indicate Title @@‚R@‚k‚O@@@@@@@@@‚P‚O‚O@‚d‚w‚d@@@@@Input Basic Plane Length @@‚T@‚u@@@@@@@@@@‚W‚WD‚S‚X‚T‚T@‚d‚w‚d@Input Vertical @@‚S@‚r@@@@@@@@@@‚P‚O‚OD‚P‚P‚P@‚d‚w‚d@Input Slope Length @@‚U@‚k@‚P‚O‚OD‚O‚X‚O@@‚d‚w‚d@@@@@@@@@Indicate Plane Length @@‚V@‚„@|‚OD‚O‚X‚O@@@‚d‚w‚d@@@@@@@@@Indicate rest Length @@‚W@‚u@@@@@@@@@@@@@@@@@@@@@@Input Vertical - 42- @@ P 5 :@Angle Calculation We can get a inter angle and length from 3 known points. @@@@@@@@@@@@@@@Bi‚Qj @@@@@@@@@@@@@@@@@@@@Bi‚Rj @@@@@@i‚Pj@B @@@@EEEEEE@Memory table@EEEEEE@ @@@ ‚l@81F‚w‚P Coordinate @‚l@85F‚w‚R Coordinate @@ @‚l@82F‚x‚P Coordinate @‚l@86F‚x‚R Coordinate @@ @‚l@83F‚w‚Q Coordinate @‚l@ FFHorizontal Angle @@ @‚l@84F‚x‚Q Coordinate ‚l@00FPlane Length @@ @EEEEEE@@Example@@EEEEEE @@@ ‚w‚P‚P‚O‚OD‚O‚O‚O@‚x‚P‚P‚O‚OD‚O‚O‚O @@@ ‚w‚Q‚R‚T‚OD‚O‚O‚O@‚x‚Q‚Q‚T‚OD‚O‚O‚O @@ @‚w‚R‚Q‚Q‚UD‚W‚Q‚S@‚x‚R‚S‚O‚XD‚R‚R‚Q EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@ @SHIFT ‚o‚T @@‚Q@Angle @@@@@@‚d‚w‚d@@@@@@@@@Indicate Title @@‚R@‚w‚P@@@@@@@@@‚P‚O‚O@‚d‚w‚d@@@@@Input ‚w‚P Coordinate @@‚S@‚x‚P@@@@@@@@@‚P‚O‚O@‚d‚w‚d@@@@@Input ‚x‚P Coordinate @@‚T@‚w‚Q@@@@@@@@@‚R‚T‚O@‚d‚w‚d@@@@@Input ‚w‚Q Coordinate @@‚U@‚x‚Q@@@@@@@@@‚Q‚T‚O@‚d‚w‚d@@@@@Input ‚x‚Q Coordinate @@‚V@‚`‚y@ 59K02f10.48h ‚d‚w‚d@@@@@Indicate Basic Azimuth @@‚W@‚k@‚Q‚X‚PD‚T‚S‚W@@‚d‚w‚d@@@@@@@@@Indicate Basic Length @@‚X@‚w‚R@@@@@@@@@‚Q‚Q‚UD‚W‚Q‚S@‚d‚w‚d@Input ‚w‚R Coordinate @‚P‚O@‚x‚R@@@@@@@@@‚S‚O‚XD‚R‚R‚Q@‚d‚w‚d@Input ‚x‚R Coordinate @‚P‚P@‚`‚m‚f 323K15f25.3h @@@‚d‚w‚d@Indicate Horizont. Angle @‚P‚Q@‚k@‚R‚R‚SD‚R‚Q‚P@@‚d‚w‚d@@@@@@@@@Indicate Plane Length @‚P‚R@‚w‚R@@@@@@@@@@@@@@@@@@@@@Input ‚w‚R Coordinate - 43- @@ P 6 :@Indirect Level Calculation 1 ( S,V ) m Elevation , Coordinates n @@@@ We can get elevation and coordinates from survey length and vertical angle. @@@ In case input ‚l‚gi Target High j |i Minus jthat point turnning point. @@@ In case input ‚h‚gi Instrument High j |i Minus joutput coordinates. @@@ Vertical input mode @@@@@@@@@In case Horizontal is 90K, Input@+ ( Plus ) . @@@@@@@@@In case Horizontal is 0K, Input@- ( Minus ) . @@@EEEEEEEEE@Memory table@EEEEEEEEE @@@‚l@91FBasic Elevationm‚d‚kn@‚l@96FGrand High m‚f‚gn @@@‚l@94FPlane Length@@@@@ ‚l@92FInstrument High m‚h‚gn @@@‚l@5FFVertical m‚u@n ‚l@93FTarget High @m‚l‚gn @@@‚l@90FSlope Length @m‚k@n @@@@@@EEEEEE@@Example@@EEEEEE @@@@@@‚d‚k‚T‚O‚OD‚O‚O‚O@‚r@‚P‚O‚OD‚O‚O‚O @@@@@@‚h‚g@@‚PD‚T‚O‚O@‚u@‚W‚VK‚R‚Xf‚S‚Th @@@@@@‚l‚g@@‚OD‚Q‚T‚O@ EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@@@SHIFT ‚o‚U @@‚Q@High 1 ( S,V ) ‚d‚w‚d@@@@@Indicate Title @@‚R@‚d‚k@@@@@@@‚T‚O‚O @‚d‚w‚d@@@@@Input Basic Elevation @@‚S@‚h‚g@@@@@@@@@‚PD‚T‚O‚O@‚d‚w‚d@@@Input Instrument High @@‚T@‚l‚g@@@@@@@@@‚OD‚Q‚T‚O@‚d‚w‚d@@@Input Target High @@‚U@‚r@@@@@@@@‚P‚O‚O@ ‚d‚w‚d@@@@@Input Slope Length @@‚V@‚u@@@@@@@@@‚W‚VD‚R‚X‚S‚T@ ‚d‚w‚d@Input Vertical @@‚W@‚k@ ‚X‚XD‚X‚P‚V@‚d‚w‚d@@@@@@@@@Indicate Plane Length @@‚X@‚f‚g@‚T‚O‚TD‚R‚Q‚X@‚d‚w‚d@@@@@@@@@Indicate Grand High @‚P‚O@‚l‚g@@@@@@@@@@@@@@@@@@@@@Input Target High - 44- @@ P 7 :@Simple curve Intermidiam Calculation @@@ We can get intermidiam coordinates from a simple curve on the known 2 points. After input known 2 points please input radius then output center coordinates of simple curve. @@@ In this case Radius is i‚qj @@@@ @i|j@EEE@Left side@@@@i{j@EEE@Right side @@@and curve length is i‚b‚kj @@@@@ @@@@@+ Order ( 1 ---> 2 ) @@@@@@@@@@ - Opposite ( 1 ---> 2 ) @@@@@EEEEE@Memory table@EEEEEEEE@ @@@@@‚l@81F‚w‚P Coordinate@‚l@97FRadius@ m‚q@n@ @@@@@‚l@82F‚x‚P Coordinate@‚l@98FCurve Lengthm‚b‚kn@@ @@@@@‚l@83F‚w‚Q Coordinate@‚l@8FF‚w Coordinate @@@@@‚l@84F‚x‚Q Coordinate@‚l@9FF‚x Coordinate @@@EEEEEEE@@Example@@EEEEEEE @@@‚w‚P‚P‚O‚OD‚O‚O‚O@@@‚x‚P@@‚OD‚O‚O‚O @@@‚w‚Q@@‚OD‚O‚O‚O@@@‚x‚Q‚P‚O‚OD‚O‚O‚O @@|‚q{‚P‚O‚OD‚O‚O‚O@@@‚b‚k@‚P‚OD‚O‚O‚O EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@@@SHIFT ‚o‚V @@‚Q@‚rimple Curve @@@‚d‚w‚d@@@@@Indicate Title @@‚R@‚w‚P@@@@@@@@@‚P‚O‚O@‚d‚w‚d@@@@@Input ‚w‚P Coordinate @@‚S@‚x‚P@@@@@@@@@@@‚O@‚d‚w‚d@@@@@Input ‚x‚P Coordinate @@‚T@‚w‚Q@@@@@@@@@@@‚O@‚d‚w‚d@@@@@Input ‚w‚Q Coordinate @@‚U@‚x‚Q@@@@@@@@@‚P‚O‚O@‚d‚w‚d@@@@@Input ‚x‚Q Coordinate @@‚V@‚`‚y 315K0f0h @@@@‚d‚w‚d@@@@@Indicate Basic Azimuth @@‚W@‚k@‚P‚S‚PD‚S‚Q‚P@@‚d‚w‚d@@@@@@@@@Indicate Basic Length @@‚X@|‚q{@@@@@@@@‚P‚O‚OD‚O‚O‚O@‚d‚w‚d@Input Radius @ 10 @X @ 100.000 @@@@‚d‚w‚d@@@@@@@@@Indicate CE. X Coordinate @ 11 @Y @ 100.000 @@@‚d‚w‚d@@@@@@@@@Indicate CE. Y Coordinate @‚P‚Q@‚b‚k@@@@@@@@@‚P‚O@@‚d‚w‚d@@@@@Input Curve Length @ 13 @X @ 90.017 @@@‚d‚w‚d@@@@@@@@@Indicate INT.X Coordinate @ 14 @Y 0.500 @@ @‚d‚w‚d@@@@@@@@@Indicate INT.Y Coordinate @‚P‚T@‚b‚k@@@@@@@@@@@@@@@@@@@@@Input Curve Length - 45- @ @P 8 :@2 Angles Intersection Calculation @@@@ We can get coordinates from 2 known anglesi‚`C‚aj. @@@Basic point 1 --- Angle ‚` @@Basic point 1 --- Angle ‚a @ @@ Object point is made right hand side of basic points 1 ---> 2. @@@@@@@@@@@@@@@i‚QjB @@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@‚a@@@BObject point @@@@@@@@@@@@@@@@@@@‚`@@ @@@@@@@@@@@@@@@i‚PjB @@@@@@@@EEEEE@Memory table@EEEEEEE@ @@@@@@@@‚l@81F‚w‚P Coordinate@‚l@96FAngle m‚`n@ @@@@@@@@‚l@82F‚x‚P Coordinate@‚l@97FAngle m‚an@@ @@@@@@@@‚l@83F‚w‚Q Coordinate@‚l@8FF‚w Coordinate @@@@@@@@‚l@84F‚x‚Q Coordinate@‚l@9FF‚x Coordinate @@@@@@EEEEEEE@@Example@@EEEEEEE @@@@@@‚w‚P‚P‚O‚OD‚O‚O‚O@@@‚x‚P‚P‚O‚OD‚O‚O‚O @@@@@@‚w‚Q‚R‚T‚OD‚O‚O‚O@@@‚x‚Q‚Q‚T‚OD‚O‚O‚O @@@@@@‚`@‚R‚UK‚S‚Sf‚R‚Th@‚a@‚W‚RK‚P‚Tf‚Q‚Th EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@@@SHIFT ‚o‚W @@‚Q@2 Angles @@@@‚d‚w‚d@@@@@Indicate Title @@‚R@‚w‚P@@@@@@@@@‚P‚O‚O@‚d‚w‚d@@@@@Input ‚w‚P Coordinate @@‚S@‚x‚P@@@@@@@@@‚P‚O‚O@‚d‚w‚d@@@@@Input ‚x‚P Coordinate @@‚T@‚w‚Q@@@@@@@@@‚R‚T‚O@‚d‚w‚d@@@@@Input ‚w‚Q Coordinate @@‚U@‚x‚Q@@@@@@@@@‚Q‚T‚O@‚d‚w‚d@@@@@Input ‚x‚Q Coordinate @@‚V@‚`‚y@ 59K02f10.48h ‚d‚w‚d@@@@@Indicate Basic Azimuth @@‚W@‚k@‚Q‚X‚PD‚T‚S‚W@@‚d‚w‚d@@@@@@@@@Indicate Basic Length @@‚X@‚`@@@@@@@@@@‚R‚UD‚S‚S‚R‚T@‚d‚w‚d@Input Anglei‚`j @‚P‚O@‚a@@@@@@@@@@‚W‚RD‚P‚T‚Q‚T@‚d‚w‚d@Input Anglei‚aj @‚P‚P@‚`‚y@ 95K46f45.48h ‚d‚w‚d@@@@@Indicate Azimuth @ 12 @X @ 432.622 @@‚d‚w‚d@@@@@@@@@Indicate X Coordinate @ 13 @Y @ 66.335 @@‚d‚w‚d@@@@@@@@@Indicate Y Coordinate @‚P‚S@‚`@@@@@@@@@@@@@@@@@@@@@ Input Angle(‚`) - 46- @ P 9 :@2 Lengths Intersection Calculation @@@@ We can get coordinates from 2 known radiusi‚C‚‚j. @@@Basic point 1 --- Radius ‚ @@Basic point 1 --- Radius ‚‚ @ @@ Object point is made right hand side of basic points 1 ---> 2. @@@@@@@@@@@@@@@i‚QjB @@@@@@@@@@@@@@@@@@@@‚‚ @@@@@@@@@@@@@@@@@@@@@@BObject point @@@@@@@@@@@@@@@@@@@@@‚ @@@@@@@@@@@@@@@i‚PjB @@@@@@@@EEEEE@Memory table@EEEEEEE@ @@@@@@@@‚l@81F‚w‚P Coordinate@‚l@98FRadiusm‚n @@@@@@@@‚l@82F‚x‚P Coordinate@‚l@99FRadiusm‚‚n @@@@@@@@‚l@83F‚w‚Q Coordinate@‚l@8FF‚w Coordinate @@@@@@@@‚l@84F‚x‚Q Coordinate@‚l@9FF‚x Coordinate @@@@@@EEEEEEE@@Example@@EEEEEEE @@@@@@‚w‚P‚P‚O‚OD‚O‚O‚O@@@‚x‚P‚P‚O‚OD‚O‚O‚O @@@@@@‚w‚Q‚R‚T‚OD‚O‚O‚O@@@‚x‚Q‚Q‚T‚OD‚O‚O‚O @@@@@@@‚‚R‚R‚SD‚R‚Q‚Q@@@@‚‚‚Q‚O‚PD‚R‚X‚R EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@@@SHIFT ‚o‚X @@‚Q@2 Lengths @@@‚d‚w‚d@@@@@Indicate Title @@‚R@‚w‚P@@@@@@@@@‚P‚O‚O@‚d‚w‚d@@@@@Input ‚w‚P Coordinate @@‚S@‚x‚P@@@@@@@@@‚P‚O‚O@‚d‚w‚d@@@@@Input ‚x‚P Coordinate @@‚T@‚w‚Q@@@@@@@@@‚R‚T‚O@‚d‚w‚d@@@@@Input ‚w‚Q Coordinate @@‚U@‚x‚Q@@@@@@@@@‚Q‚T‚O@‚d‚w‚d@@@@@Input ‚x‚Q Coordinate @@‚V@‚`‚y@ 59K02f10.48h ‚d‚w‚d@@@@@Indicate Basic Azimuth @@‚W@‚k@‚Q‚X‚PD‚T‚S‚W@@‚d‚w‚d@@@@@@@@@Indicate Basic Length @@‚X@‚@@@@@@@@@@‚R‚R‚SD‚R‚Q‚Q@‚d‚w‚d@Input Radiusi‚j @‚P‚O@‚‚@@@@@@@@@@‚Q‚O‚PD‚R‚X‚R@‚d‚w‚d@Input Radiusi‚‚j @‚P‚P@‚`‚y@ 95K46f45.01h @@@@‚d‚w‚d@Indicate Azimuth @ 12 @X @ 432.623 @@‚d‚w‚d@@@@@@@@@Indicate X Coordinate @ 13 @Y@ 66.336 @@‚d‚w‚d@@@@@@@@@Indicate Y Coordinate @‚P‚S@‚@@@@@@@@@@@@@@@@@@@@@ Input Radius(‚) - 47- @@ P10 :@Perpendicular Calculation @@@@ We can get the perpendicular length from 3 known points. @@@[‚ˆ{F@Right High is + ( plus ) of basic line. Left High is - ( minus ) of basic line. @@ @@‚k@F@+ Order ( 1 ---> 2 ) @@@@@@@@@@ - Opposite ( 1 ---> 2 ) @@@@@@@@@@@@@@@i‚QjB @@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@Bi‚Rj @@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@i‚PjB @@@@@@@@EEEEE@Memory table@EEEEEEE @@@@@@@@‚l@81F‚w‚P Coordinate@‚l@85F‚w‚R Coordinate @@@@@@@@‚l@82F‚x‚P Coordinate ‚l@86F‚x‚R Coordinate @@@@@@@@‚l@83F‚w‚Q Coordinate@‚l@3FF[‚ˆ{ @@@@@@@@‚l@84F‚x‚Q Coordinate@‚l@4FF‚k @@@@@@EEEEEEE@@Example@@EEEEEEE @@@@@@@‚w‚P‚P‚O‚OD‚O‚O‚O@‚x‚P‚P‚O‚OD‚O‚O‚O @@@@@@@‚w‚Q‚R‚T‚OD‚O‚O‚O@‚x‚Q‚Q‚T‚OD‚O‚O‚O @@@@@@@‚w‚R‚Q‚Q‚UD‚W‚Q‚S@‚x‚R‚S‚O‚XD‚R‚R‚Q EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@@@@@@‚o‚P‚O @@‚Q@Perpendicular @@‚d‚w‚d@@@@@Indicate Title @@‚R@‚w‚P@@@@@@@@@‚P‚O‚O@‚d‚w‚d@@@@@Input ‚w‚P Coordinate @@‚S@‚x‚P@@@@@@@@@‚P‚O‚O@‚d‚w‚d@@@@@Input ‚x‚P Coordinate @@‚T@‚w‚Q@@@@@@@@@‚R‚T‚O@‚d‚w‚d@@@@@Input ‚w‚Q Coordinate @@‚U@‚x‚Q@@@@@@@@@‚Q‚T‚O@‚d‚w‚d@@@@@Input ‚x‚Q Coordinate @@‚V@‚`‚y@ 59K02f10.48h ‚d‚w‚d@@@@@Indicate Basic Azimuth @@‚W@‚k@‚Q‚X‚PD‚T‚S‚W@@‚d‚w‚d@@@@@@@@@Indicate Basic Length @@‚X@‚w‚R@@@@@@@@@‚Q‚Q‚UD‚W‚Q‚S@‚d‚w‚d@Input ‚w‚R Coordinate @‚P‚O@‚x‚R@@@@@@@@@‚S‚O‚XD‚R‚R‚Q@‚d‚w‚d@Input ‚x‚R Coordinate @‚P‚P@[‚ˆ{@@@@@@@@ -200.000 ‚d‚w‚d@Indicate High @‚P‚Q@‚k@@@@@@@@@@‚Q‚U‚VD‚X‚O‚P@‚d‚w‚d@Indicate Plane Length @‚P‚S@‚w‚R@@@@@@@@@@@@@@@@@@@@@Input ‚w‚R Coordinate - 48- P11 :@Vertical Calculation @@@@ We can get correct vertical from right vertical and left vertical. @@@@@@@@@@@EE@Memory table@EE@ @@@@@@@@@@@‚l@96FVertical Rightm‚u‚’n@@ @@@@@@@@@@@‚l@97FVertical Left m‚u‚Œn@@ @@@@@@@@@@@EE@@Example@@EE @@@@@@@@@@@‚u‚’@‚X‚SK‚P‚Rf‚T‚Rh@ @@@@@@@@@@@‚u‚Œ‚Q‚U‚TK‚S‚Uf‚S‚Xh@ EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@@@@@@‚o‚P‚P @@‚Q@Vertical @@@‚d‚w‚d@@@@@@@@@Indicate Title @@‚R@‚u‚’@@@@@@@@@‚X‚SD‚P‚R‚T‚R@‚d‚w‚d@Input Vertical Right @@‚S@‚u‚Œ@@@@@@@@‚Q‚U‚TD‚S‚U‚S‚X@‚d‚w‚d@Input Vertical Left @@‚T@‚R‚U‚OK‚Of‚S‚Qh@@‚d‚w‚d@@@@@@@@@Indicate Total Vertical @@‚U@@@‚OK‚Of‚S‚Qh@@‚d‚w‚d@@@@@@@@@Indicate Error @@‚V@‚P‚W‚WK‚Q‚Vf‚Sh@@‚d‚w‚d@@@@@@@@@Indicate ‚u‚’|‚u‚Œ @@‚W@@‚X‚SK‚P‚Rf‚R‚Qh@‚d‚w‚d@@@@@@@@@Indicate ‚y @@‚X@@|‚SK‚P‚Rf‚R‚Qh@‚d‚w‚d@@@@@@@@@Indicate ƒ¿ @‚P‚O@‚u‚’@@@@@@@@@@@@@@@@@@@@@Input Vertical Right - 49- P12 :@WILD Atmospher Distance Correction @@@@ We can get a correct distance. Basic Elevation ----- 0 m Basic Temperature ----- 10ßC @@@@@@@EEEEE@Memory table EEEEEEE@ @@@@@@@@‚l@91FGH Grand High @ ‚l@5FFV Vertical @@@@@@@@‚l@92FIH Instrument High ‚l@81FL 1 Slope Length @@@@@@@@‚l@93FFH Target High @@‚l@82FL 2 Slope Length @@@@@@@@‚l@94FTemperature ‚l@83FL 3 Slope Length @@@@@@EEEEEEE@@Example@@EEEEEEE @@ @GH = 500.000 Tem= 20ßC @@@ FH = 0.250 L 1= 1000.001 @@@ V = + 1ß14'25" L 2= 1000.002 IH = 1.500 L 3= 1000.003 EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@@@@@@‚o‚P‚Q @@‚Q@WILD Atmospher ‚d‚w‚d@@@@Indicate Title @@‚R@GH @@@@@@@@@500 ‚d‚w‚d@@@@Input Grand High @@‚S@IH @@@@@@@@ 1.5 ‚d‚w‚d@@@@Input Instrument High @@‚T@FH @@@@@@@@@0.25 @ ‚d‚w‚d@@@@Input Target High @@‚U@Tem @@@@@@@@@20 @ ‚d‚w‚d@@@@Input Temperature @@‚V@V 1.1425 ‚d‚w‚d @@@Input Vertical @@‚W@L 1 1000.001 ‚d‚w‚d@@@@Input Slope Length 1 @@‚X@L 2 1000.002 ‚d‚w‚d@@@@Input Slope Length 2 ‚P‚O L 3 1000.003 ‚d‚w‚d@@@@Input Slope Length 3 @‚P‚P@ƒ°@@@@@@@@@@3000.006 ‚d‚w‚d Indicate Total Length @‚P‚Q@AL 1000.0020 ‚d‚w‚d Indicate Average Length @‚P‚R@* 2.39 ‚d‚w‚d Indicate a coefficient @‚P‚S@d @ 0.0239 ‚d‚w‚d Indicate Correct @‚P‚T@D0 1000.0259 ‚d‚w‚d@@@@Indicate Correct Length ‚P‚U@GH@@@@@@@@@@@@@@@@@@@@@@Input Grand High - 50- P13 :@Distance Calculation @@@@ We can get a correct distance. Radius of the earth --- 6,377,397.155 m Scale coefficient --- 0.9999 @@@@@@@@EEEEE@Memory table@EEEEEEE@ @@@@@@@@‚l@90FD0 Slope Length @‚l@91FGH Grand High @@@@@@@@‚l@87FV1 Vertical @ ‚l@92FIH Instrument High @@@@@@@@‚l@88FV2 Vertical @‚l@93FFH Target High @@@@@@@@‚l@5FFV Vertical ‚l@98FRadius of the earth @@@@@@@@ ‚l@99FScale coefficient @@@@@@EEEEEEE@@Example@@EEEEEEE @@@@@@@@@D0 = 1000.0259 IH = 1.500 V1 = + 4ß13'30" FH = 0.250 @@ @V2 = - 4ß13'34" K = 0.9999 GH = 500.000 EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@@@@@@‚o‚P‚R @@‚Q@Distance ‚d‚w‚d@@@@@Indicate Title @@‚R@D0 @@@@@@@@@1000.0259 ‚d‚w‚d@@@@Input Slope Length @@‚S@V1 @@@@@@@@ 4.1330 ‚d‚w‚d@@@@@Input Vertical @@‚T@V2 @@@@@@@@ -4.1334@‚d‚w‚d@@@@@Input Vertical @@‚U@V @@@@@@@@@4ß13'32" ‚d‚w‚d @@@@Indicate Ave. Vertical @@‚V@GH @@@@@@@ @500 ‚d‚w‚d@@@@@Input Grand High @@‚W@IH @@@@@@@ @ 1.5 ‚d‚w‚d@@@@@Input Instrument High @@‚X@FH @@@@@@@@@ 0.25@‚d‚w‚d@@@@@Input Target High @‚P‚O@dH @@@@@@@@ @73.685 ‚d‚w‚d@@@@@Indicate Different High @‚P‚P@EL 574.935 ‚d‚w‚d@@@@@Indicate Elevation @‚P‚Q@AH 537.468 ‚d‚w‚d@@@@@Indicate Ave. Elevation @‚P‚R@D 997.3075 ‚d‚w‚d @@@@Indicate L * COS V ‚P‚S d -0.0841 ‚d‚w‚d@@@@ Indicate projec. correct @‚P‚T@S @@@@@@@@@@997.2234 ‚d‚w‚d Indicate Spher. Length @‚P‚U@K 0.9999 ‚d‚w‚d@ Input Scale coefficient @‚P‚V@dK -0.0997 ‚d‚w‚d Indicate Scale correct @‚P‚W@L 997.1237 ‚d‚w‚d Indicate Plane Length ‚P‚X@D0@@@@@@@@@@@@@@@@@@@@@@Input Slope Length - 51- P14 :@Stadia Calculation 1 m Elevetion , Distance n Stadia a coefficient K ---- 100 Stadia a coefficient C ---- 0 @@@@@@@@EEEEE@Memory table@EEEEEEE@ @@@@@@@@‚l@91FEL Elevation@ ‚l@87FS1 Under(Upper) Stadia @@@@@@@@‚l@92FIH Instrument High ‚l@88FS2 Upper(Under) Stadia @@@@@@@@‚l@93FFH Target High @@ ‚l@94FL Plane Length @@@@@@@@‚l@5FFV Vertical ‚l@3FFdH Different High @@@@@@@@‚l@@F ‚l@96FGH Grand High ‚l@98FStadia a coefficient K ‚l@99FStadia a coefficient C @@@@@@EEEEEEE@@Example@@EEEEEEE @@@@@@@@@EL = 500.000 V = 89ß14'25" IH = 1.500 S1 = 1.230 @@ @FH = 2.895 S2 = 4.560 EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@@@@@@‚o‚P‚S @@‚Q@Stadia 1 ‚d‚w‚d@@@@@Indicate Title @@‚R@EL @@@@@@@@@500.000 ‚d‚w‚d @@@@Input Elevation @@‚S@IH @@@@@@@ @ 1.5 ‚d‚w‚d@@@@@Input Instrument High @@‚T@FH @@@@@@@@@ 2.895 ‚d‚w‚d@@@@@Input Target High @@‚U@V @@@@@@@@@89.1425 ‚d‚w‚d @@@@Input Vertical @@‚V@S1 @@@@@@@ @ 1.230 ‚d‚w‚d@@@@@Input Under(Upper) Stadia @@‚W@S2 @@@@@@@ @ 4.560 ‚d‚w‚d@@@@@Input Upper(Under) Stadia @@‚X@L @@@@@@@@@332.94@‚d‚w‚d@@@@@Indicate Plane Length @‚P‚O@dH @@@@@@@@ @ 3.02 ‚d‚w‚d@@@@@Indicate Different High @‚P‚P@GH 503.02 ‚d‚w‚d@@@@@Indicate Grand High ‚P‚Q@FH@@@@@@@@@@@@@@@@@@@@@@Input Target High - 52- P15 :@Stadia Calculation 2 m Elevation , Coordinates n Stadia a coefficient K ---- 100 Stadia a coefficient C ---- 0 @@@@@@@@EEEEE@Memory table@EEEEEEE@ @@@@@@@@‚l@91FEL Elevation@ ‚l@93FFH Target High @@@@@@@@‚l@92FIH Instrument High ‚l@5FFV Vertical @@@@@@@@‚l@81FX1 Coordinate ‚l@87FS1 Under(Upper) Stadia @@@@@@@@‚l@82FY1 Coordinate ‚l@88FS2 Upper(Under) Stadia @@@@@@@@‚l@83FX2 Coordinate ‚l@94FL Plane Length @@@@@@@@‚l@84FY2 Coordinate ‚l@3FFdH Different High @@@@@@@@‚l@@F @@ ‚l@96FGH Grand High ‚l@98FStadia a coefficient K ‚l@99FStadia a coefficient C @@@@@@EEEEEEE@@Example@@EEEEEEE @@@@@@@@@EL = 500.000 FH = 2.895 IH = 1.500 V = 89ß14'25" X1 = 0.000 S1 = 1.230 @@ @Y1 = 0.000 S2 = 4.560 X2 = 100.000 HA = 90ß0'0" Y2 = 100.000 EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@@@@@@‚o‚P‚T @@‚Q@Stadia 2 ‚d‚w‚d@@@@@Indicate Title @@‚R@EL @@@@@@@@@500.000 ‚d‚w‚d @@@@Input Elevation @@‚S@IH @@@@@@@ @ 1.5 ‚d‚w‚d@@@@@Input Instrument High @@‚T@X1 @@@@@@@@@ 0.000 ‚d‚w‚d@@@@@Input X1 Coordinate @@‚U@Y1 @@@@@@@@@ 0.000 ‚d‚w‚d@@@@@Input Y1 Coordinate @@‚V@X2 @@@@@@@@@100.000 ‚d‚w‚d@@@@@Input X2 Coordinate @@‚W@Y2 @@@@@@@@@100.000 ‚d‚w‚d@@@@@Input Y2 Coordinate @@‚X@AZ @@@@@@@@@45ß0'0" ‚d‚w‚d@@@@@Indicate Azimuth @‚P‚O@L @@@@@@@@@141.421 ‚d‚w‚d@@@@@Indicate Plane Length @‚P‚P@FH @@@@@@@@@ 2.895 ‚d‚w‚d@@@@@Input Target High @‚P‚Q@V @@@@@@@@@89.1425 ‚d‚w‚d @@@@Input Vertical @‚P‚R@S1 @@@@@@@ @ 1.230 ‚d‚w‚d@@@@@Input Under(Upper) Stadia @‚P‚S@S2 @@@@@@@ @ 4.560 ‚d‚w‚d@@@@@Input Upper(Under) Stadia @‚P‚T@L @@@@@@@@@332.94@‚d‚w‚d@@@@@Indicate Plane Length @‚P‚U@dH @@@@@@@@ @ 3.02 ‚d‚w‚d@@@@@Indicate Different High @‚P‚V@GH 503.02 ‚d‚w‚d@@@@@Indicate Grand High @‚P‚W@HA 90.0000 ‚d‚w‚d@@@@@Input Horizontal Angle @‚P‚X@AZ @@@@@@@@ 135ß0'0" ‚d‚w‚d@@@@@Indicate Azimuth @ 20 @Y @@@@@@@@@ 235.43 ‚d‚w‚d@@@@@Indicate X Coordinate @ 21 @X @@@@@@@@ -235.43 ‚d‚w‚d@@@@@Indicate Y Coordinate ‚Q‚Q@FH@@@@@@@@@@@@@@@@@@@@@@Input Target High - 53- P16 :@Stadia Calculation 3 m Reverse n Stadia a coefficient K ---- 100 Stadia a coefficient C ---- 0 @@@@@@@@EEEEE@Memory table@EEEEEEE@ @@@@@@@@‚l@91F*EL Elevation ‚l@87FS1 Under(Upper) Stadia @@@@@@@@‚l@92F*IH Instrument High ‚l@88FS2 Upper(Under) Stadia @@@@@@@@‚l@93F*FH Target High @‚l@94FL Plane Length @@@@@@@@‚l@5FFV Vertical ‚l@3FFdH Different High @@@@@@@@‚l@@F ‚l@96FGH Grand High ‚l@98FStadia a coefficient K ‚l@99FStadia a coefficient C @@@@@@EEEEEEE@@Example@@EEEEEEE @@@@@@@@ *EL = 503.020 V = 89ß14'25" *IH = 1.500 S1 = 1.230 @@ *FH = 2.895 S2 = 4.560 EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@@@@@@‚o‚P‚U @@‚Q@Stadia 3 ‚d‚w‚d@@@@@Indicate Title @@‚R@*EL @@@@@@@@@503.020 ‚d‚w‚d @@@@Input Elevation @@‚S@*IH @@@@@@@ @ 1.5 ‚d‚w‚d@@@@@Input Instrument High @@‚T@*FH @@@@@@@@@ 2.895 ‚d‚w‚d@@@@@Input Target High @@‚U@V @@@@@@@@@89.1425 ‚d‚w‚d @@@@Input Vertical @@‚V@S1 @@@@@@@ @ 1.230 ‚d‚w‚d@@@@@Input Under(Upper) Stadia @@‚W@S2 @@@@@@@ @ 4.560 ‚d‚w‚d@@@@@Input Upper(Under) Stadia @@‚X@L @@@@@@@@@332.94@‚d‚w‚d@@@@@Indicate Plane Length @‚P‚O@dH @@@@@@@@ @-3.02 ‚d‚w‚d@@@@@Indicate Different High @‚P‚P@GH 500.00 ‚d‚w‚d@@@@@Indicate Grand High @‚P‚Q@STADIA 3 ‚d‚w‚d@@@@@Indicate Title - 54- @@ P17 :@Indirect Level Calculation 2 ( h,l ) m Elevation , Coordinates n @@@@ We can get radiation elevation and coordinates from survey high and plane length. @@@ In case input ‚l‚gi Target High j |i Minus jthat point turnning point. @@@ In case input ‚h‚gi Instrument High j |i Minus joutput coordinates. @@@EEEEEEEEE@Memory table@EEEEEEEEE @@@‚l@91FEL Basic Elevation@@‚l@96FGH Grand High @@@‚l@92FIH Instrument High @‚l@81FX1 Coordinate @@@‚l@93FMH Target High @@@‚l@82FY1 Coordinate @@@‚l@1FFdh Survey High @@ ‚l@83FX2 Coordinate ‚l@2FFdL Plane Length ‚l@84FY2 Coordinate @@@@@@EEEEEE@@Example@@EEEEEE @@@@@@@@@EL = 500.000 X1 = 0.000 IH = 1.500 Y1 = 0.000 MH = 0.250@@@@@@X2 = 100.000 @@ @dh = 50.000 @@@@@Y2 = 100.000 dL = 100.000 @@@@ HA = 90ß0'0" EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@@@ ‚o‚P‚V @@‚Q@High 2 ( h,l )@@@@‚d‚w‚d@@@@@@@@@Indicate Title @@‚R@EL @@@@@@@@@500.000 @‚d‚w‚d@@@Input Basic Elevation @@‚S@IH@@@@@@@@@ 1.500 @‚d‚w‚d@@@Input Instrument High @@‚T@MH@@@@@@@@@ 0.250 @‚d‚w‚d@@@Input Target High @@‚U@dh@@@@@@@@@@ 50.000 @‚d‚w‚d@@@Input Survey High @@‚V@GH @ 551.250@ ‚d‚w‚d@@@Indicate Grand High @‚P‚O@MH @@@@@@@@@@@@@@@@@@@@@Input Target High - 55- @@ P18 :@Indirect Level Calculation 3 ( S,V ) m Reverse n We can get a unknown elevation from known elevation. @@@@@@@@EEEEE@Memory table@EEEEEEE@ @@@@@@@@‚l@91F*EL Elevation ‚l@5FFV Vertical @@@@@@@@‚l@92F IH Instrument High ‚l@94FL Plane Length @@@@@@@@‚l@93F MH Target High @‚l@1FFDH Different High @@@@@@@@‚l@90F S Slope Length ‚l@96FGH Grand High @@@@@@EEEEEEE@@Example@@EEEEEEE @@@@@@@@ *EL = 505.329 S = 100.000 IH = 1.500 V = 87ß39'45" @@ MH = 0.250 EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@@@@@@‚o‚P‚W @@‚Q@High 3 ( S,V ) ‚d‚w‚d@@@@@Indicate Title @@‚R@*EL @@@@@@@@@505.329 ‚d‚w‚d @@@@Input Elevation @@‚S@IH @@@@@@@ @ 1.5 ‚d‚w‚d@@@@@Input Instrument High @@‚T@MH @@@@@@@@@ 0.25@‚d‚w‚d@@@@@Input Target High @@‚U@S @@@@@@@ @ 100.000 ‚d‚w‚d@@@@@Input Slope Length @@‚V@V @@@@@@@@@87.3945 ‚d‚w‚d @@@@Input Vertical @@‚W@L @@@@@@@ @ 99.917 ‚d‚w‚d@@@@@Indicate Plane Length @@‚X@DH @@@@@@@@@-5.329@‚d‚w‚d@@@@@Indicate Different High @‚P‚O@GH 500.000 ‚d‚w‚d@@@@@Indicate Grand High @‚P‚Q@HIGH 3 ( S,V ) ‚d‚w‚d@@@@@Indicate Title - 56- @@ P19 :@Indirect Level Calculation 4 ( dh ) m Reverse n We can get a unknown elevation from known elevation. @@@@@@@@EEEEE@Memory table@EEEEEEE@ @@@@@@@@‚l@91F*EL Elevation ‚l@1FFdh Survey High @@@@@@@@‚l@92F IH Instrument High ‚l@2FFDH Different High @@@@@@@@‚l@93F MH Target High @‚l@96FGH Grand High @@@@@@EEEEEEE@@Example@@EEEEEEE @@@@@@@@ *EL = 451.250 MH = 0.250 IH = 1.500 dh = -50.000 EEEEEEEEEEEEE@Operaion Process@EEEEEEEEEEEEEE Step Indication Key Remarks @@‚P@@@@@@@@@@@@‚o‚P‚X @@‚Q@High 4 ( dh ) ‚d‚w‚d@@@@@Indicate Title @@‚R@*EL @@@@@@@@@451.250 ‚d‚w‚d @@@@Input Elevation @@‚S@IH @@@@@@@ @ 1.5 ‚d‚w‚d@@@@@Input Instrument High @@‚T@MH @@@@@@@@@ 0.25@‚d‚w‚d@@@@@Input Target High @@‚U@dh @@@@@@@ @-50.000 ‚d‚w‚d@@@@@Input Survey High @@‚V@DH @@@@@@@@@ 48.750 ‚d‚w‚d@@@@@Indicate Different High @@‚W@GH 500.000 ‚d‚w‚d@@@@@Indicate Grand High @@‚X@HIGH 4 ( dh ) ‚d‚w‚d@@@@@Indicate Title - 57- @Main attentions for using programs. @@E@Usualy Instrument point must be thought mainly. @@@@@@@@‚w‚PC‚x‚P@EEEE@Instrument point Coordinates @@@@@@@@‚w‚QC‚x‚Q@EEEE@Back point Coordinates @@@@@@@@Azimuth @@EEEE@Azimuth toward Instrument to back point @@@E@ In case input 2 known points coordinates( ‚w‚P,‚x‚PE‚w‚Q,‚x‚Q ), first those programs calculate Reverse Calculation and indicate Length and Azimuth after that calculate for the Program. @@@@@ In case input ‚w‚Q = Azimuth ( Outer Azimuth ), we can calculate Azimuth is used input ‚x‚Q = ‚O(Zero). @@@@@ If ‚x‚Q is ‚OiZeroj, we must input a dummy i‚OD‚O‚O‚O‚O‚Pj in the ‚x‚Q. @@@E @As vertical correspnd to two kindsiHorizontal ‚OKC‚X‚OKj, we can't use +- vertical instrument. @@@E@Input AngleiInnerEVerticalj‚n‚n‚nD‚n‚n‚n‚n‚d‚w‚d @@@@@@@@@@@@@@@@@@@i@@ D@@ M@ S@j - 58- m@Example@n @@@@@@@@@ @@Bi‚Rj@@@Bi‚Qj @@@@@@@@i‚Pj@B @‚w‚P‚P‚O‚OD‚O‚O‚O@‚x‚P‚P‚O‚OD‚O‚O‚O@Angle 1 ‚R‚UK‚S‚Sf‚R‚Th @‚w‚Q‚R‚T‚OD‚O‚O‚O@‚x‚Q‚Q‚T‚OD‚O‚O‚O@Angle 2 ‚W‚RK‚P‚Tf‚Q‚Th @‚w‚R‚Q‚Q‚UD‚W‚Q‚S@‚x‚R‚S‚O‚XD‚R‚R‚Q@Angle 3 ‚U‚OK‚O‚Of‚O‚Oh @‚ki‚P|‚Qj‚Q‚X‚PD‚T‚S‚W@@Azimuthi‚P|‚Qj @59K02f10h @‚ki‚Q|‚Rj‚Q‚O‚PD‚R‚X‚R@@Azimuthi‚Q|‚Rj 322K17f36h @‚ki‚R|‚Pj‚R‚R‚SD‚R‚Q1 @@Azimuthi‚R|‚Pj 202K17f36h - 59- @@@@CASIO FX-603P Survey Program ( Internatinal DEGREE ) 601 Ver. 1.01 ( 603P601I ) @@@@@@@@@@@ 991 STEPS FREE 14850 bytes Coded by Toshio KAWAGUCHI NIFTY-Serve ID:KHF00050 All Program List P0 AC DEG "Reverse" HLT MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 LBL1 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 MR84 - MR82 ) R>P ( MR83 - MR81 = Min6F Min00 X<>Y X>=0 GOTO2 + 360 = LBL2 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO1 - 60- P1 AC DEG "Traverse" HLT MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR84 - MR82 ) R>P ( MR83 - MR81 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR97 "HA" HLT Min97 ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min00 MR94 "L" HLT Min94 X>=0 GOTO5 ABS Min90 90 Min89 "V" HLT Min5F ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min95 COS * MR90 = Min3F MR95 SIN * MR90 = Min4F Min94 MR5F X>=0 GOTO4 MR3F Min94 LBL4 MR94 FIX3 "L" HLT LBL5 MR00 + MRF - 360 Min95 = LBL6 X>=0 GOTO7 + MR95 = GOTO6 LBL7 Min95 "AZ" SDMS HLT MR95 SIN * MR94 = Min3F MR95 COS * MR94 = Min4F + MR82 = Min9F MR3F + MR81 = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT MR97 X>=0 GOTO3 MR8F Min81 MR9F Min82 MR95 - 180 = MinF GOTO3 - 61- P2 AC DEG "Inter Point" HLT MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR84 - MR82 ) R>P ( MR83 - MR81 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR81 Min1F MR82 Min2F MR7F MinF AC "L" HLT Min94 MRF - 360 Min95 = LBL4 X>=0 GOTO5 + MR95 = GOTO4 LBL5 Min95 "AZ" SDMS HLT MR95 SIN * MR94 = Min3F MR95 COS * MR94 = Min4F + MR2F = Min9F MR3F + MR1F = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT MR8F Min1F MR9F Min2F MRF + 90 = MinF LBL6 AC "-:+" HLT Min94 X=0 GOTO3 MRF - 360 Min95 = LBL7 X>=0 GOTO8 + MR95 = GOTO7 LBL8 Min95 "AZ" SDMS HLT MR95 SIN * MR94 = Min3F MR95 COS * MR94 = Min4F + MR2F = Min9F MR3F + MR1F = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT GOTO6 - 62- P3 AC DEG "4[MUL]" HLT LBL1 MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 MR84 "Y2" HLT Min84 MR85 "X3" HLT Min85 MR86 "Y3" HLT Min86 MR87 "X4" HLT Min87 MR88 "Y4" HLT Min88 MR84 - MR82 ) / ( MR83 - MR81 = Min3F MR88 - MR86 ) / ( MR87 - MR85 = Min4F * MR85 - MR3F * MR81 + MR82 - MR86 = / ( MR4F - MR3F = Min8F - MR81 ) * MR3F + MR82 = Min9F MR8F FIX3 "X" HLT MR9F FIX3 "Y" HLT GOTO1 P4 AC DEG "S[RTA]L" HLT MR00 "L0" HLT Min00 LBL1 MR5F "V" HLT Min5F ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min95 MR90 "S" HLT ABS Min90 MR95 COS * MR90 = Min3F MR95 SIN * MR90 = Min4F Min94 MR5F X>=0 GOTO2 MR3F Min94 LBL2 MR94 FIX3 "L" HLT MR00 X=0 GOTO1 - MR94 = FIX3 "d" HLT GOTO1 - 63- P5 AC DEG "Angle" HLT MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR84 - MR82 ) R>P ( MR83 - MR81 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR85 "X3" HLT Min85 MR86 "Y3" HLT Min86 MR86 - MR82 ) R>P ( MR85 - MR81 = Min00 X<>Y - MR7F = LBL4 X>=0 GOTO5 + 360 = GOTO4 LBL5 MinF "ANG" SDMS HLT MR00 FIX3 "L" HLT GOTO3 - 64- P6 AC DEG "High 1 ( S,V )" HLT MR91 "EL" HLT Min91 MR92 "IH" HLT Min92 X>=0 GOTO3 MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR84 - MR82 ) R>P ( MR83 - MR81 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR93 "MH" HLT Min93 MR90 "S" HLT ABS Min90 MR5F "V" HLT Min5F ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min95 COS * MR90 = Min3F MR95 SIN * MR90 = Min4F Min94 MR5F X>=0 GOTO4 MR3F Min94 LBL4 MR94 FIX3 "L" HLT MR5F X>=0 GOTO5 MR4F Min3F LBL5 MR3F + MR92 ABS - MR93 ABS + MR91 = Min96 FIX3 "GH" HLT MR92 X>=0 GOTO8 MR97 "HA" HLT Min97 ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = + MRF - 360 Min95 = LBL6 X>=0 GOTO7 + MR95 = GOTO6 LBL7 Min95 "AZ" SDMS HLT MR95 SIN * MR94 = Min3F MR95 COS * MR94 = Min4F + MR82 = Min9F MR3F + MR81 = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT MR93 X>=0 GOTO3 MR8F Min81 MR9F Min82 MR95 - 180 = MinF LBL8 MR93 X>=0 GOTO3 MR96 Min91 MR92 "IH" HLT Min92 GOTO3 - 65- P7 AC DEG "Simple Curve" HLT MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR84 - MR82 ) R>P ( MR83 - MR81 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR97 "-R+" HLT Min97 MR6F / 2 / MR97 ) ACS + MR7F = Min5F SIN * MR97 = Min3F MR5F COS * MR97 = Min4F + MR82 = Min2F Min9F MR3F + MR81 = Min1F Min8F FIX3 "RX" HLT MR9F FIX3 "RY" HLT LBL4 MR98 "CL" HLT Min98 X=0 GOTO3 * 180 / PI / MR97 = Min00 + MR5F - 180 = MinF SIN * MR97 = Min3F MRF COS * MR97 = Min4F + MR2F = Min9F MR3F + MR1F = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT GOTO4 - 66- P8 AC DEG "2 Angles" HLT MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR84 - MR82 ) R>P ( MR83 - MR81 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR96 "A" HLT Min96 Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min98 + MR7F = MinF MR97 "B" HLT Min97 Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min99 +/- + 180 = X>=0 GOTO4 + 180 = Min99 LBL4 MR99 +/- + 180 - MR98 = Min5F MR6F * MR99 SIN / MR5F SIN = Min94 MRF - 360 Min95 = LBL5 X>=0 GOTO6 + MR95 = GOTO5 LBL6 Min95 "AZ" SDMS HLT MR95 SIN * MR94 = Min3F MR95 COS * MR94 = Min4F + MR82 = Min9F MR3F + MR81 = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT GOTO3 - 67- P9 AC DEG "2 Lengths" HLT MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR84 - MR82 ) R>P ( MR83 - MR81 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR98 "a" HLT Min94 Min98 MR99 "b" HLT Min99 ( ( MR98 X^2 + MR6F X^2 - MR99 X^2 ) / ( 2 * MR98 * MR6F ) ) ACS Min5F + MR7F = MinF - 360 Min95 = LBL4 X>=0 GOTO5 + MR95 = GOTO4 LBL5 Min95 "AZ" SDMS HLT MR95 SIN * MR94 = Min3F MR95 COS * MR94 = Min4F + MR82 = Min9F MR3F + MR81 = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT GOTO3 - 68- P10 AC DEG "Perpendicular" HLT MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR84 - MR82 ) R>P ( MR83 - MR81 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR85 "X3" HLT Min85 MR86 "Y3" HLT Min86 MR86 - MR82 ) R>P ( MR85 - MR81 = Min00 X<>Y - MR7F = LBL4 X>=0 GOTO5 + 360 = GOTO4 LBL5 MinF SIN * MR00 = Min3F MRF COS * MR00 = Min4F MR3F FIX3 "-h+" HLT MR4F FIX3 "L" HLT GOTO3 P11 AC DEG "Vertical" HLT LBL1 MR96 "Vr" HLT Min96 Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min98 MR97 "Vl" HLT Min97 Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min99 - MR98 = X>=0 GOTO2 MR98 Min95 MR99 Min98 MR95 Min99 LBL2 MR98 + MR99 ) "T" SDMS HLT - 360 = "e" SDMS HLT MR98 - MR99 = Min5F X>=0 GOTO3 + 360 = Min5F LBL3 "Vr-Vl" SDMS HLT / 2 = "Z" SDMS HLT +/- + 90 = Min5F "V" SDMS HLT GOTO1 - 69- P12 AC DEG "Wild Atmospher" HLT LBL1 MR91 "GH" HLT Min91 MR92 "IH" HLT Min92 MR93 "FH" HLT Min93 MR94 "Tem" HLT Min94 - 30 = Min95 MR5F "V" HLT Min5F INT + ( MR5F FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MR81 "L1" HLT Min81 MR82 "L2" HLT Min82 MR83 "L3" HLT Min83 MR81 + MR82 + MR83 = Min84 FIX3 "[SGM]" HLT / 3 = Min90 FIX4 "AL" HLT * MR7F SIN / 2 + MR91 + MR92 - MR93 = * 0.003 + 1.7 + MR95 * 0.085 = Min85 * MR90 / 5 10^X = Min96 MR85 FIX2 "*" HLT MR96 FIX4 "d" HLT MR90 + MR96 = Min90 FIX4 "D0" HLT GOTO1 - 70- P13 AC DEG "Distance" HLT 6377397.155 Min98 0.9999 Min99 LBL0 MR90 "D0" HLT Min90 1 Min87 0 "V1" HLT Min94 Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min85 MR94 X>=0 GOTO1 1 +/- Min87 LBL1 1 Min88 0 "V2" HLT Min95 Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min86 MR95 X>=0 GOTO2 1 +/- Min88 LBL2 MR94 X=0 GOTO3 MR95 X=0 GOTO4 GOTO5 LBL3 MR86 Min5F GOTO6 LBL4 MR85 Min5F GOTO6 LBL5 ( MR85 ABS + MR86 ABS ) / 2 * MR87 = Min5F SDMS "V" HLT LBL6 MR91 "GH" HLT Min91 MR92 "IH" HLT Min92 MR93 "FH" HLT Min93 MR90 P>R MR5F = Min83 X<>Y Min84 MR94 X=0 GOTO7 MR84 FIX3 "dH" HLT + MR92 - MR93 + MR91 = Min96 FIX3 "EL" HLT + MR91 ) / 2 = Min97 MR95 X=0 GOTO8 MR97 FIX3 "AH" HLT MR94 X=0 GOTO7 MR95 X=0 GOTO8 MR97 +/- * MR83 = Min82 GOTO9 LBL7 MR91 +/- * MR83 = Min82 GOTO9 LBL8 MR96 +/- * MR83 = Min82 LBL9 MR83 FIX4 "D" HLT MR82 / MR98 = FIX4 "d" HLT + MR83 = Min81 FIX4 "S" HLT MR99 "K" HLT Min99 - 1 ) * MR81 = FIX4 "dK" HLT + MR81 = Min00 FIX4 "L" HLT GOTO0 - 71- P14 AC DEG "Stadia 1" HLT 100 Min98 0 Min99 MR91 "EL" HLT Min91 MR92 "IH" HLT Min92 LBL1 MR93 "FH" HLT Min93 MR5F "V" HLT Min5F MR87 "S1" HLT Min87 X>=0 GOTO2 MR87 ABS Min90 GOTO3 LBL2 MR88 "S2" HLT Min88 - MR87 = ABS Min90 LBL3 MR5F ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min85 MR5F X>=0 GOTO4 GOTO6 LBL4 180 - MR89 = X>=0 GOTO5 MR85 - 270 = Min85 GOTO6 LBL5 90 - MR85 = Min85 LBL6 MR98 * MR90 * MR85 COS X^2 + MR99 * MR85 COS = Min94 MR98 * MR90 * MR85 SIN * MR85 COS + MR99 * MR85 SIN + MR92 - MR93 = Min3F + MR91 = Min96 MR94 FIX2 "L" HLT MR3F FIX2 "dH" HLT MR96 FIX2 "GH" HLT GOTO1 - 72- P15 AC DEG "Stadia 2" HLT 100 Min98 0 Min99 MR91 "EL" HLT Min91 MR92 "IH" HLT Min92 MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR84 - MR82 ) R>P ( MR83 - MR81 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR93 "FH" HLT Min93 MR5F "V" HLT Min5F MR87 "S1" HLT Min87 X>=0 GOTO4 MR87 ABS Min90 GOTO5 LBL4 MR88 "S2" HLT Min88 - MR87 = ABS Min90 LBL5 MR5F ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min85 MR5F X>=0 GOTO6 GOTO8 LBL6 180 - MR89 = X>=0 GOTO7 MR85 - 270 = Min85 GOTO8 LBL7 90 - MR85 = Min85 LBL8 MR98 * MR90 * MR85 COS X^2 + MR99 * MR85 COS = Min94 MR98 * MR90 * MR85 SIN * MR85 COS + MR99 * MR85 SIN + MR92 - MR93 = Min3F + MR91 = Min96 MR94 FIX2 "L" HLT MR3F FIX2 "dH" HLT MR96 FIX2 "GH" HLT MR97 "HA" HLT Min97 ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = + MRF - 360 Min95 = LBL9 X>=0 GOTO0 + MR95 = GOTO9 LBL0 Min95 "AZ" SDMS HLT MR95 SIN * MR94 = Min3F MR95 COS * MR94 = Min4F + MR82 = Min9F MR3F + MR81 = Min8F FIX2 "X" HLT MR9F FIX2 "Y" HLT GOTO3 - 73- P16 LBL1 AC DEG "Stadia 3" HLT 100 Min98 0 Min99 MR91 "*EL" HLT Min91 MR92 "*IH" HLT Min92 MR93 "*FH" HLT Min93 MR5F "V" HLT Min5F MR87 "S1" HLT Min87 X>=0 GOTO2 MR87 ABS Min90 GOTO3 LBL2 MR88 "S2" HLT Min88 - MR87 = ABS Min90 LBL3 MR5F ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min85 MR5F X>=0 GOTO4 GOTO6 LBL4 180 - MR89 = X>=0 GOTO5 MR85 - 270 = Min85 GOTO6 LBL5 90 - MR85 = Min85 LBL6 MR98 * MR90 * MR85 COS X^2 + MR99 * MR85 COS = Min94 MR98 * MR90 * MR85 SIN * MR85 COS + MR99 * MR85 SIN + MR92 - MR93 = Min3F +/- + MR91 = Min96 MR94 FIX2 "L" HLT MR3F +/- FIX2 "dH" HLT MR96 FIX2 "GH" HLT GOTO1 - 74- P17 AC DEG "High 2 ( h,l )" HLT MR91 "EL" HLT Min91 MR92 "IH" HLT Min92 X>=0 GOTO3 MR81 "X1" HLT Min81 MR82 "Y1" HLT Min82 MR83 "X2" HLT Min83 Min89 MR84 "Y2" HLT Min84 X=0 GOTO2 MR84 - MR82 ) R>P ( MR83 - MR81 = Min6F Min00 X<>Y X>=0 GOTO1 + 360 = LBL1 Min7F MinF "AZ" SDMS HLT MR6F FIX3 "L" HLT GOTO3 LBL2 MR89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min7F MinF LBL3 MR93 "MH" HLT Min93 MR1F "dh" HLT Min1F MR92 X>=0 GOTO4 MR2F "dL" HLT Min2F LBL4 MR1F + MR92 ABS - MR93 ABS + MR91 = Min96 FIX3 "GH" HLT MR92 X>=0 GOTO7 MR97 "HA" HLT Min97 ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = + MRF - 360 Min95 = LBL5 X>=0 GOTO6 + MR95 = GOTO5 LBL6 Min95 "AZ" SDMS HLT MR95 SIN * MR2F = Min3F MR95 COS * MR2F = Min4F + MR82 = Min9F MR3F + MR81 = Min8F FIX3 "X" HLT MR9F FIX3 "Y" HLT MR93 X>=0 GOTO3 MR8F Min81 MR9F Min82 MR95 - 180 = MinF LBL7 MR93 X>=0 GOTO3 MR96 Min91 MR92 "IH" HLT Min92 GOTO3 - 75- P18 LBL1 AC DEG "High 3 ( S,V )" HLT MR91 "*EL" HLT Min91 MR92 "IH" HLT Min92 MR93 "MH" HLT Min93 MR90 "S" HLT ABS Min90 MR5F "V" HLT Min5F ABS Min89 INT + ( MR89 FRAC * 2 10^X ) Min4F INT / 60 + MR4F FRAC / 36 = Min95 COS * MR90 = Min3F MR95 SIN * MR90 = Min4F Min94 MR5F X>=0 GOTO2 MR3F Min94 LBL2 MR94 FIX3 "L" HLT MR5F X>=0 GOTO3 MR4F Min3F LBL3 MR3F + MR92 ABS - MR93 ABS = Min1F +/- FIX3 "DH" HLT + MR91 = Min96 FIX3 "GH" HLT GOTO1 P19 LBL1 AC DEG "High 4 ( dh )" HLT MR91 "*EL" HLT Min91 MR92 "IH" HLT Min92 MR93 "MH" HLT Min93 MR1F "dh" HLT Min1F + MR92 ABS - MR93 ABS = Min2F +/- FIX3 "DH" HLT + MR91 = Min96 FIX3 "GH" HLT GOTO1 "Coded by Toshio KAWAGUCHI NIFTY-Serve ID:KHF00050" END Memory List