Buenas noches !!!
Olga Lucia Quintero Fonseca
qfolgalu@hotmail.com
Sun, 23 Feb 2003 19:58:30 -0400
This is a multi-part message in MIME format.
------=_NextPart_000_0005_01C2DB75.F0106CA0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Buenas noches, quisiera consultarles sobre lo siguiente, tengo estas dos =
funciones=20
-- Calcula Raiz Wn
wn n =3D cos c :+ (-1*sin c) where c=3D2*pi/n
=20
twiddlefactor r k =3D=20
concat [(map (^i) [(wn rs)^i | i<-[0..s-1]])| i<-[0..r-1]]
where
rs =3D (r^k) ;
s =3D (r^(k-1))
la dificultad que tengo es que twiddlefactor no me acepta enteros=20
compila pero no me acepta los parametros, sin embargo si la defino como=20
=20
--Calcula vector de Twiddle Factor
twiddlefactor r s rs=3D concat [(map (^i) diag) | i<-[0..r-1]]
where
diag =3D [(wn rs)^i | i<-[0..s-1]]
no tengo problema, lo que sucede es que posteriormente esta definicion =
me es inconveniente pues el valor de rs es r^k y lo necesito en un =
programa recursivo, que me esta dando inconvenientes precisamente por =
que debo estar reenviando el valor r^k. Agradezco la ayuda que puedan =
darme
------=_NextPart_000_0005_01C2DB75.F0106CA0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2723.2500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Buenas noches, quisiera consultarles =
sobre lo=20
siguiente, tengo estas dos funciones </FONT></DIV>
<DIV><FONT face=3DArial size=3D2> </DIV>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN lang=3DES-CO =
style=3D"mso-ansi-language: ES-CO"><FONT face=3D"Courier New">-- Calcula =
Raiz=20
Wn<?xml:namespace prefix =3D o ns =3D =
"urn:schemas-microsoft-com:office:office"=20
/><o:p></o:p></FONT></SPAN></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN lang=3DES-CO =
style=3D"mso-ansi-language: ES-CO"><FONT face=3D"Courier New">wn n =3D =
cos c :+=20
(-1*sin c) where c=3D2*pi/n<o:p></o:p></FONT></SPAN></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN lang=3DES-CO =
style=3D"mso-ansi-language: ES-CO"><o:p><FONT=20
face=3D"Courier New"> </FONT></o:p></SPAN></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN lang=3DES-CO =
style=3D"mso-ansi-language: ES-CO"><o:p><FONT=20
face=3D"Courier New"></FONT></o:p></SPAN></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN lang=3DES-CO =
style=3D"mso-ansi-language: ES-CO"><FONT=20
face=3D"Courier New"><o:p></o:p></FONT></SPAN></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN lang=3DES-CO =
style=3D"mso-ansi-language: ES-CO"><FONT=20
face=3D"Courier New"><o:p></o:p></FONT></SPAN></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN lang=3DES-CO =
style=3D"mso-ansi-language: ES-CO"><o:p><FONT=20
face=3D"Courier New"></FONT></o:p></SPAN></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><FONT=20
face=3D"Courier New">twiddlefactor r k =3D </FONT></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><FONT =
face=3D"Courier New"><SPAN=20
style=3D"mso-spacerun: yes"> </SPAN>concat [(map =
(^i) [(wn=20
rs)^i | i<-[0..s-1]])| i<-[0..r-1]]<o:p></o:p></FONT></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><FONT =
face=3D"Courier New"><SPAN=20
style=3D"mso-spacerun: yes"> =20
</SPAN>where</FONT></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><FONT =
face=3D"Courier New"><SPAN=20
style=3D"mso-spacerun: yes"> =
</SPAN>rs =3D=20
(r^k) ;</FONT></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><FONT =
face=3D"Courier New"><SPAN=20
style=3D"mso-tab-count: 1"> </SPAN><SPAN=20
style=3D"mso-spacerun: yes"> </SPAN>s =3D (r^(k-1))</FONT></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><FONT =
face=3D"Courier New">la=20
dificultad que tengo es que twiddlefactor no me acepta enteros =
</FONT></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><FONT=20
face=3D"Courier New">compila pero no me acepta los parametros, sin =
embargo si la=20
defino como </FONT></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN=20
style=3D"mso-spacerun: yes"><FONT=20
face=3D"Courier New"> </P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN lang=3DES-CO =
style=3D"mso-ansi-language: ES-CO">--Calcula vector de Twiddle=20
Factor<o:p></o:p></SPAN></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt">twiddlefactor r s =
rs=3D concat=20
[(map (^i) diag) | i<-[0..r-1]]<o:p></o:p></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN=20
style=3D"mso-spacerun: yes"> =
</SPAN>where<o:p></o:p></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in 0pt"><SPAN=20
style=3D"mso-spacerun: yes"> =
</SPAN>diag =3D=20
[(wn rs)^i | i<-[0..s-1]]<o:p></o:p></P>
<P class=3DMsoPlainText style=3D"MARGIN: 0in 0in =
0pt"></FONT></SPAN><o:p>no tengo=20
problema, lo que sucede es que posteriormente esta definicion me es=20
inconveniente pues el valor de rs es r^k y lo necesito en un programa =
recursivo,=20
que me esta dando inconvenientes precisamente por que debo estar =
reenviando el=20
valor r^k. Agradezco la ayuda que puedan=20
darme</o:p></P></FONT></BODY></HTML>
------=_NextPart_000_0005_01C2DB75.F0106CA0--