TI - 84 calculator leveling program (process leveling notes faster)

I made a program on my TI-84 plus calculator that will process leveling notes. The program requires an input of foresight readings, backsight readings, and a starting elevation. From this data it will calculate the elevation of each station, the instrument height of each station, and the closing error. I realize that a lot of companies these days have digital levels that have processing routines built into them. But, for those that still use auto levels or the early digital levels this program can save you some time.?ÿ

Note: I know a lot of crew chiefs use strictly HP calculators so this might not be useful to very many people. I pretty sure some of the more advanced HP calculators have programming capabilities. If they do, you might be able to adapt your own program based on this code. I get my hands on one I'll try to make a program for it and put it on here.

Ill start by putting the Code up then I'll explain how to use it.

Code:

input "Rows:",A

L1-L2 =L3

for (c,1,A)

L4(c)-L3(c)=L4(c+1)

end

0=L2(A+1)

L4+L2=L5

L4(1)-L4(A+1)

in the code above the = is really the store key on the calculator

The variable A is the number of Backsight and Foresight measurements or Rows in your fieldbook.

the L varibles are the lists on you calculator this is where your measurements are input:

L1 = foresight measurements

L2 = Backsight measurements?ÿ

L4 = Starting ELV

L3 = fs-bs

L5 = Instrument height?ÿ

simple input your field notes in the above lists, count the number of rows and run the program. the closure error will popup on the main screen.

to check your other results open up your lists and check L5 and L4 the lists will be populated

Note: before you start this program make sure all your lists are clear then enter your data

So, there it is. I guess I assume you know the basics of programming on your calculator and how to use lists. If you have any questions feel free to ask.

Thanks

?ÿ

i?ÿ?ÿ

?ÿ