| Monomachus 2006-06-24, 8:01 am |
| Ok, there is the thing ...
I have 2 lists ...
First list @Q where i store all the knots ... of an graf I supose...
ok so the first list is from for ex.: q0 to q1.... ok 2 knots... everythi=
ng's fine... Then second list @Sigma is smth like $glue (connections) va=
lues between knots ...
For ex.: @Sigma=3D(a,b)..
And third list @Delta has elements like (q0,a)=3D{q0,q1}
It means that : q0 has a connection with itself with the value "a" and q0=
has a connection with the q1 with a value "a"...
And the graf will be like this:
a
=E2=94=BC=E2=94=80=E2=94=80=E2=94=80=E2=
94=80=E2=94=80>q0 =E2=
=94=80=E2=94=80=E2=94=80=E2=94=80=E2=94=
80=E2=94=80=E2=94=80=E2=94=80=E2=94=
=80> q1
=E2=94=BC=E2=94=80=E2=94=80=E2=94=80=E2=
94=80=E2=94=80=E2=95=9C=
a
now the question is ... how to make smth like next thing ... I should hav=
e from @Delta all these connections .. May be a list for each knot will h=
ave $#Q elements (for each knot) for ex.: for the q0=3D(a,a).
This is the code for now ...
#!/usr/bin/perl -w
print "\n\n\n\nDati nr de varfuri: (nr of knots) \n";
chomp($v=3D<STDIN> );
my @Q, my @Sigma;
print "Dati elementele Sigma (prin 'Enter') pentru sfarsit apasatzi Ctrl-=
Z:(Sigma elements)\n";
chomp(@Sigma=3D<STDIN> );
for (my $i=3D0;$i<$v;$i++)
{
$Q[$i]=3D"q".$i;
}
print "Elementele \@Q sunt: @Q";
print "\nElementele \@Sigma sunt: @Sigma";
print "\nDati functia de tranzitie (function Delta) (Delta) dupa model\n
(q0,1)=3D{q0,q1} shi daca atzi terminat apasatzi tasta 'Enter' : \=
n";
my @Delta;
chomp(@Delta=3D<STDIN> );
print "@Delta\n";
that's all And I don't know how to do the rest... HELP ... SOS ... :)
---------------------------------------------
This e-mail was sent using Mail.md
|