Another STL simplification

[userxyz]

How would you write this...

What I do is length/speed = time in ms, to be used for SFB4


L "speed m/min deel 1"
ITD
DTR
L 1.000000e+001
/R
T #Speed_Real
L 2.900000e+000
>R
JC CAL1
L 0.000000e+000
JC Nul1
CAL1: L 1.500000e+001
L #Speed_Real
/R
L 6.000000e+004
*R
Nul1: RND
T "B_S_MEM".Starttijd // Starttijd in ms

 

[PeterW]

seems to me length(in mm)/m per min = time (mS)

so something travelling at 2m per min over 1 metre would take 1000/2 = 500mS.

L "speed m/min deel 1" 
L 0
<=I
JC TIME // If not greater than zero, make time zero
 
L "length" //presuming this is fixed in Floating Point (REAL)
L "speed m/min deel 1"
ITD
DTR // Convert speed to REAL
/R
RND
TIME: T "B_S_MEM".Starttijd // Starttijd in ms

 

[userxyz]

hi

L "speed m/min deel 1" // speed from 0 to 30m/min
ITD
DTR
L 1.000000e+001 // the value is 0 to 300, but should be 0 to 30 m/min

/R
T #Speed_Real // speed in real value

L 2.900000e+000 // 3m/min is the minimum speed of the machine

>R
JC CAL1
L 0.000000e+000 // send 0 if less then 2.9m/min
JC Nul1
CAL1: L 1.500000e+001 // 15 meters distance to make
L #Speed_Real
/R
L 6.000000e+004 // x 60 x 1000 = ms instead of minuts

*R
Nul1: RND // round actual value in accu 1
T "B_S_MEM".Starttijd

 

[PeterW]

L "speed m/min deel 1" 
L 30
<I
L 0
JC TIME // If not greater than 3, make time zero
 
L "length" //presuming this is fixed in Floating Point (REAL)
L "speed m/min deel 1"
ITD
DTR // Convert speed to REAL
/R
L 1.000000e+001 // the value is 0 to 300, but should be 0 to 30 m/min
*R
RND
TIME: T "B_S_MEM".Starttijd // Starttijd in ms

 

[userxyz]

great

great peace of code u made of it,

thanks very much, I really learned something