Question on types conversions - operations

[Olivier Scalbert <olivier.scalbert@algosyn.com>]

Hello,

I have the following three types:
     type Length is new Float;
     type Time   is new Float;
     type Speed  is new Float;

Suppose I need to compute a speed given a length and a time.

     L: Length := 100.0;
     T: Time   :=  10.0;
     S: Speed;

How to do that ?

With S := Speed(Float(L) / Float(T)) ? Mmmm ... not nice.

With S := Speed(L / Length(T)), I am also not satisfy as I convert a 
time in Length ...

I am sure you have better ideas !

Good weekend,

Olivier