// Delay bound analysis using horizontal deviation (hDev)
// Given arrival curve alpha and service curve beta, the worst-case delay is:
// D = sup{ t: alpha(t) > beta(t) } = hDev(alpha, beta)
// Example: arrival at 1000 bytes/s with burst 100, service at 2000 bytes/s with latency 20ms
// Expected delay bound: D = (100 + 0) / 2000 + 0.02 = 0.07 = 7/100 seconds
> arrival := bucket ( 1000 , 100 )
arrival = new SigmaRhoArrivalCurve(100, 1000)
> service := ratency ( 2000 , 0.02 )
service = new RateLatencyServiceCurve(2000, new Rational(1, 50))
> delay_bound := hDev ( arrival , service )
delay_bound = 7/100
> delay_bound
7/100