@GRSETLIMITS(-2,2,3,-3 )
define model M1(!a,!b,!c,!d)
{
&rr(!a,!b)
&rr(!b,!c)
&rr(!c,!d)
&rr(!d,!a)
&Rsq(!a,!c)
}
&Rsq(1.414213562)
!i1
!i2
model M1:&rm1(!i1,!i2,!i3,!i4)
IN1[!i1,!i2,!i3,!i4]
define form F1(!i1,!i2,!i3,!i4)
{
&(!i1,!i2)
&(!i2,!i3)
&(!i3,!i4)
&(!i4,!i1)
}
form F1:figure:ff1(!i1,!i2,!xi3,!xi4)
-----($a,$b) IN IN1[]DISTINCT
$r1=&$$
$r1($a,$b)
val($r1==&rr)
$P2=#$$
TEST
{
form F1:$P2($a,$b,!$$,!$$)
(con.pos(#ff1 !> $P2))
}
form F1:$P2($a,$b,!$$,!$$)
IN2[]=$P2
-----($a,$b) IN IN2[]DISTINCT
$r2=&$$
$r2($a,$b)
val($r2==&rr)
$P3=#$$
TEST
{
form F1:$P3($a,$b,!$$,!$$)
(con.pos($P2 !> $P3))
}
form F1:$P3($a,$b,!$$,!$$)
@GRVIEWDOM
// @PAUSE