Hi all,
I'm a newbie in Oz and has a problem regarding := and
how it is supposed to update a cell
The following code fails when the function F2 is
called for the second time, due to a 'tell: ~18.0 =
0.0'
Can anyone tell me why this is?
Thanks in advance
Rukman
local
X
Y1 Y2 Y3 Y4
Bounded
Range F G Start End
Range1 Range2 Range3 Range4 Range5 Range6 Range7
F1 F2 F3 F4 F5 F6 F7
G1 G2 G3 G4 G5 G6 G7
A1 A2 A3 A4 A5 A6 A7
T1 T2 T3 T4
Succ
O1 O2 O3 O4
in
Y1 = {NewCell 0.0}
Y2 = {NewCell 0.0}
Y3 = {NewCell 0.0}
Y4 = {NewCell 0.0}
T1 = {NewCell 0.0}
T2 = {NewCell 0.0}
T3 = {NewCell 0.0}
T4 = {NewCell 0.0}
Range1 = range1(s:0.0 e:9.0)
Range2 = range2(s:9.0 e:11.0)
Range3 = range3(s:11.0 e:20.0)
Range4 = range4(s:20.0 e:30.0)
Range5 = range5(s:30.0 e:180.0)
Range6 = range6(s:180.0 e:216.0)
Range7 = range7(s:216.0 e:10000.0)
%------------------------------------------------
fun {F1 X}
Y1 := 0.0 * X
end
fun {F2 X}
Y1 := ~12.0 * X + 90.0
end
%------------------------------------------------
fun {G1 X}
Y2 := 0.0 * X
end
fun {G2 X}
Y2 := ~5.0 * X + 27.0
end
%------------------------------------------------
fun {Bounded Range F G}
{F Range.s 0.0}
T1:[EMAIL PROTECTED]
{Browse ['T1='@T1]}
{G Range.s 0.0}
T2:[EMAIL PROTECTED]
{Browse ['T2='@T2]}
{F Range.e 0.0}
T3:[EMAIL PROTECTED]
{Browse ['T3='@T3]}
{G Range.e 0.0}
T4:[EMAIL PROTECTED]
{Browse ['T4='@T4]}
Succ = @T1 >= @T2 andthen @T3 >= @T4
end
A1 = {Bounded Range1 F1 G1}
A2 = {Bounded Range2 F2 G2}
%------------------------------------------------
{Browse '-----------Start----------'}
{Browse Range1}
{Browse ['Valid = ' A1]}
end
_________________________________________________________________________________
mozart-users mailing list
[email protected]
http://www.mozart-oz.org/mailman/listinfo/mozart-users
