Re: estrella en un plano cartesiano con las funciones trigonometricas

512 views
Skip to first unread message

Daniel Ajoy

unread,
Jun 20, 2013, 12:42:46 AM6/20/13
to tita...@hotmail.com, LogoES
On Wed, 19 Jun 2013 18:08:36 -0500, <neop...@cp2.ssl1.us> wrote:

> De: uriel hernandez dominguez
> Pais: mexico ciudad de mexico
> Referer: http://neoparaiso.com/imprimir/figuras-plano-cartesiano.html
>
> nesesito hacer una estrella en un plano cartesiano con las funciones trigonometricascomo lo hago?
>


los puntos de una estrella de 5 puntas son los mismos puntos de un polígono de 5 puntos.

Daniel

lrcvs

unread,
Jun 20, 2013, 3:40:28 PM6/20/13
to log...@googlegroups.com, tita...@hotmail.com

to xx
ct
cs
ht
make "nl 5    ;<<<<<<<<<<<<<<<<<<<<<<<< numero de puntas
make "rg 100  ;<<<<<<<<<<<<<<<<<<<<<<<< radio mayor
make "rp 25   ;<<<<<<<<<<<<<<<<<<<<<<<< radio menor

make "x 0
make "y 0
make "c 0
make "j 0
make "nl (360/:nl) / 2
pu

for [n 0 360 :nl][make "c :c + 1
                 make "c remainder :c 2
                 if :c = 0 [make "r :rg]
                 if :c > 0 [make "r :rp]
                 make "x int (sin :n) * :r 
                 make "y int (cos :n) * :r 
                 if :j > 0 [pd]
                 setpos (list :x :y)  
                 pd 
                 ;circle 5
                 make "j 1]

end


lrcvs

unread,
Jun 20, 2013, 3:45:59 PM6/20/13
to log...@googlegroups.com, tita...@hotmail.com
Aqui tienes lo mismo, pero con las coordenadas:

to xx
ct
cs
ht
make "nl 5    ;<<<<<<<<<<<<<<<<<<<<<<<< numero de puntas
make "rg 100  ;<<<<<<<<<<<<<<<<<<<<<<<< radio mayor
make "rp 25   ;<<<<<<<<<<<<<<<<<<<<<<<< radio menor

make "x 0
make "y 0
make "c 0
make "j 0
make "np  0
make "nl (360/:nl) / 2
pu

for [n 0 360 :nl][make "np :np + 1
                 make "c :c + 1
                 make "c remainder :c 2
                 if :c = 0 [make "r :rg]
                 if :c > 0 [make "r :rp]
                 make "x int (sin :n) * :r 
                 make "y int (cos :n) * :r 
                 if :j > 0 [pd]
                 setpos (list :x :y) 
                 print (sentence "Numero_de_punto_= :np "X_= :x "Y_= :y) 

lrcvs

unread,
Jun 20, 2013, 4:06:13 PM6/20/13
to log...@googlegroups.com, tita...@hotmail.com
Aqui tienes un "divertimento" :

to xx
ct
cs
ht
for [nl 2 25 ][
;make "nl 9 ;<<<<<<<<<<<<<<<<<<<<<<<< numero de puntas
make "rg 100  ;<<<<<<<<<<<<<<<<<<<<<<<< radio mayor
make "rp 50   ;<<<<<<<<<<<<<<<<<<<<<<<< radio menor

make "x 0
make "y 0
make "c 0
make "j 0
make "np  0
make "nl int (360/:nl) / 2
pu

for [n 0 4000 :nl][make "np :np + 1
                 make "c :c + 1
                 make "c remainder :c 2
                 if :c = 0 [make "r :rg]
                 if :c > 0 [make "r :np]
                 make "x int (sin :n) * :r 
                 make "y int (cos :n) * :r 
                 if :j > 0 [pd]
                 setpos (list :x :y) 
                 ;print (sentence "Numero_de_punto_= :np "X_= :x "Y_= :y) 
                 pd circle 5
                 make "j 1] wait 45 cs ct]

end

lrcvs

unread,
Jun 20, 2013, 4:18:39 PM6/20/13
to log...@googlegroups.com, tita...@hotmail.com
Aqui tienes otro "divertmento".

to xx
ct
cs
ht
for [nl 2 20 ][
;make "nl 9 ;<<<<<<<<<<<<<<<<<<<<<<<< numero de puntas
make "rg 100  ;<<<<<<<<<<<<<<<<<<<<<<<< radio mayor
make "rp 50   ;<<<<<<<<<<<<<<<<<<<<<<<< radio menor

make "x 0
make "y 0
make "c 0
make "j 0
make "np  0
make "nl int (360/:nl) / 2
pu

for [n 0 4000 :nl][make "np :np + 1
                 make "c :c + 1
                 make "c remainder :c 2
                 if :c = 0 [make "r :rg + :np]
                 if :c > 0 [make "r :np]
                 make "x int (sin :n) * :r 
                 make "y int (cos :n) * :r 
                 if :j > 0 [pd]
                 setpos (list :x :y) 
                 ;print (sentence "Numero_de_punto_= :np "X_= :x "Y_= :y) 
                 pd 
                 for [k 1 5][circle :k]
                 make "j 1] wait 45 cs ct pu]

end

Daniel Ajoy

unread,
Jun 20, 2013, 4:21:38 PM6/20/13
to log...@googlegroups.com
recordé que "dotEstrella" hace algo similar en LogoFE:

escribemat dotEstrella [5 100 25]

-23.7764129073788 7.72542485937369
-95.1056516295154 -30.9016994374947
-14.6946313073118 -20.2254248593737
-2.1316282072803e-14 -100
14.6946313073118 -20.2254248593737
95.1056516295153 -30.9016994374948
23.7764129073788 7.72542485937368
58.7785252292473 80.9016994374947
7.08255069176156e-15 25
-58.7785252292473 80.9016994374948
-23.7764129073788 7.72542485937369
-95.1056516295154 -30.9016994374947

borrapantalla dibujalinea dotEstrella [5 100 25]

escribemat dotEstrella [6 100 25]

-21.650635094611 12.5
-100 3.5527136788005e-14
-21.650635094611 -12.5
-50 -86.6025403784438
-1.12458870341059e-14 -25
49.9999999999999 -86.6025403784439
21.650635094611 -12.5
100 -7.105427357601e-14
21.650635094611 12.5
50.0000000000001 86.6025403784438
2.37358960611389e-14 25
-49.9999999999999 86.6025403784439
-21.650635094611 12.5
-100 1.27897692436818e-13

"dotEstrella" es usado para marcar los puntos en las gráficas:

http://neoparaiso.com/logofe/pages/p32.htm

Daniel

Luis Belmonte Abellan

unread,
Jun 20, 2013, 4:35:16 PM6/20/13
to log...@googlegroups.com
Hay muchos decimales.!




Daniel

--

---Has recibido este mensaje porque estás suscrito al grupo "LogoES" de Grupos de Google.

Para anular la suscripción a este grupo y dejar de recibir sus correos electrónicos, envía un correo electrónico a logoes+unsubscribe@googlegroups.com.
Para obtener más opciones, visita https://groups.google.com/groups/opt_out.



Daniel Ajoy

unread,
Jun 20, 2013, 4:38:30 PM6/20/13
to log...@googlegroups.com
escribemat impon [impon "int] dotEstrella [5 100 25]

-23 7
-95 -30
-14 -20
0 -99
14 -20
95 -30
23 7
58 80
0 25
-58 80
-23 7
-95 -30


On Thu, 20 Jun 2013 15:35:16 -0500, Luis Belmonte Abellan <luisbelmo...@gmail.com> wrote:

> Hay muchos decimales.!
>
>
> El 20 de junio de 2013 22:21, Daniel Ajoy <da....@gmail.com> escribió:
>
>> On Thu, 20 Jun 2013 14:45:59 -0500, lrcvs <luisbelmo...@gmail.com**>
>> http://neoparaiso.com/logofe/**pages/p32.htm<http://neoparaiso.com/logofe/pages/p32.htm>
>>
>> Daniel
>>
>> --
>>
>> ---Has recibido este mensaje porque estás suscrito al grupo "LogoES" de
>> Grupos de Google.
>>
>> Para anular la suscripción a este grupo y dejar de recibir sus correos
>> electrónicos, envía un correo electrónico a logoes+unsubscribe@**
>> googlegroups.com <logoes%2Bunsu...@googlegroups.com>.
>> Para obtener más opciones, visita https://groups.google.com/**
>> groups/opt_out <https://groups.google.com/groups/opt_out>.
>>
>>
>>

Luis Belmonte Abellan

unread,
Jun 20, 2013, 4:51:44 PM6/20/13
to log...@googlegroups.com
Asi esta mejor !!!



googlegroups.com <logoes%2Bunsubscribe@googlegroups.com>.

Para obtener más opciones, visita https://groups.google.com/**
groups/opt_out <https://groups.google.com/groups/opt_out>.



--

---Has recibido este mensaje porque estás suscrito al grupo "LogoES" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus correos electrónicos, envía un correo electrónico a logoes+unsubscribe@googlegroups.com.
Para obtener más opciones, visita https://groups.google.com/groups/opt_out.



Reply all
Reply to author
Forward
0 new messages