[Haskell-beginners] nested guards

[Thomas Engel]

Hello,

I'm new to haskell. I want to write a function for a s-curve acceleration in haskell.
A solution in VBA is already working.

Are there nested guards in haskell available or how can I rewrite this function?
  
The function should calculate the acceleration for a given distance, max acceleration, velocity, jerk at time since start

acc_skurve::Float->Float->Float->Float->Float->Float
acc_skurve str acc v jerk taktuell
 | str <= str2jerk                  |taktuell <= (0.5 * str / jerk)**(1/3::Float)    = jerk * taktuell
                                    |taktuell <= (4 * str / jerk)**(1/3::Float)      = jerk**(2/3::Float) * 2**(2/3::Float) * str**(1/3::Float) - jerk * taktuell
                                    |taktuell <= (27/2 * str / jerk)**(1/3::Float)   = - jerk * taktuell + 2**(2/3::Float) * str**(1/3::Float) * jerk**(2/3::Float)
                                    |taktuell <= (32 * str / jerk)**(1/3::Float)     = -2 * 2**(2/3::Float) * str**(1/3::Float) * jerk**(2/3::Float) + jerk * taktuell
 | str > str2jerk && str < str2acc  |taktuell <= acc / jerk                                                                     = jerk * taktuell                                                                   
                                    |taktuell <= - acc / 2 / jerk + sqrt(acc^3 + 4 * str * jerk^2) / (2 * jerk * sqrt(acc))     = acc                                                                               
                                    |taktuell <=  acc / 2 / jerk + sqrt(acc^3 + 4 * str * jerk^2) / (2 * jerk * sqrt(acc))      = acc / 2 - jerk * taktuell + sqrt(acc^3 + 4 * str * jerk^2) / (2 * sqrt(acc))      
                                    |taktuell <=  3 * acc / 2 / jerk + sqrt(acc^3 + 4 * str * jerk^2) / (2 * jerk * sqrt(acc))  = acc / 2 - jerk * taktuell + sqrt(acc^3 + 4 * str * jerk^2) / (2 * sqrt(acc))  
                                    |taktuell <=  sqrt(acc^3 + 4 * str * jerk^2) / (sqrt(acc * jerk))                           = - acc                                                                                                  
                                    |taktuell <=  acc / jerk + sqrt(acc^3 + 4 * str * jerk^2) / (sqrt(acc * jerk))              = - acc + jerk * taktuell - sqrt(acc^3 + 4 * str * jerk^2) / sqrt(acc)                      
 | str >= str2acc                   |taktuell <= acc / jerk                 = jerk * taktuell                                                                                                                   
                                    |taktuell <= v / acc                    = acc                                                      
                                    |taktuell <= acc / jerk + v / acc       = acc - jerk * taktuell + v * jerk / acc                   
                                    |taktuell <= str / v                    = 0                                                        
                                    |taktuell <= str / v + acc / jerk       = jerk * str / v - jerk * taktuell                         
                                    |taktuell <= str / v + v / acc          = - acc                                                    
                                    |taktuell <= str / v + acc / jerk + v / acc = -(str / v + acc / jerk + v / acc - taktuell) * jerk  
   where str2jerk = 2 * acc^2 / jerk^2
         str2acc  = acc^2 * v + v^2 * jerk / (jerk * acc)


best regards
Thomas