Converting milliseconds to frequency

[Kamikaze47]

I had a few spare mins so i wrote up a subroutine that would work. Im sure its not the most elegant piece of code, but it will do what you want just fine.

It will take the z value and store a relavant value into rpm. The value in rpm will be in hundreds of rpms. So if you write the value of the variable rpm to your lcd, followed by "00" it will display in rpms.

If rpm=0 after the subroutine has run then the input was out of range.

convert_to_rpm:
IF z<10 THEN rpm=0
IF z=10 THEN rpm=60
IF z=11 THEN rpm=55
IF z=12 THEN rpm=50
IF z=13 THEN rpm=46
IF z=14 THEN rpm=43
IF z=15 THEN rpm=40
IF z=16 THEN rpm=38
IF z=17 THEN rpm=35
IF z=18 THEN rpm=33
IF z=19 THEN rpm=32
IF z=20 THEN rpm=30
IF z=21 THEN rpm=29
IF z=22 THEN rpm=27
IF z=23 THEN rpm=26
IF z=24 THEN rpm=25
IF z=25 THEN rpm=24
IF z=26 THEN rpm=23
IF z=27 THEN rpm=22
IF z>27 AND z<30 THEN rpm=21
IF z=30 THEN rpm=20
IF z>30 AND z<33 THEN rpm=19
IF z>32 AND z<35 THEN rpm=18
IF z>34 AND z<37 THEN rpm=17
IF z>36 AND z<39 THEN rpm=16
IF z>38 AND z<42 THEN rpm=15
IF z>41 AND z<45 THEN rpm=14
IF z>44 AND z<49 THEN rpm=13
IF z>48 AND z<53 THEN rpm=12
IF z>52 AND z<58 THEN rpm=11
IF z>57 AND z<64 THEN rpm=10
IF z>63 AND z<71 THEN rpm=9
IF z>70 AND z<81 THEN rpm=8
IF z>80 AND z<93 THEN rpm=7
IF z>92 AND z<110 THEN rpm=6
IF z>109 AND z<134 THEN rpm=5
IF z>133 AND z<172 THEN rpm=4
IF z>171 AND z<241 THEN rpm=3
IF z>240 AND z<401 THEN rpm=2
IF z>400 AND z<1201 THEN rpm=1
IF z>1200 then rpm=0
return