[Maxima-lang-es] Graficar listas de Objetos gráficos

[Robert I. C. <rob...@ho...>]

Hola a todos:

Mi problema es el siguiente: deseo generar una lista de vectores y, una vez almacenados en una variable, graficarlos al invocar dicha variable. Específicamente es esto:

-------------------------------------------------------------------------------------------------

a(t):=[t,sin(t)]$

define( "a'"(t),diff(a(t),t) )$

t0:create_list(i*%pi/4,i,0,8)$

T:create_list( vector(a(i),"a'"(i)),i,t0 )$

P:map(a,t0)$

draw2d(
title="Campo vectorial tangente",
color=red,
parametric(t,sin(t),t,0,2*%pi),
color=blue,
head_length=0.2,
head_angle=10,
unit_vectors=true,
T[1],T[2],T[3],T[4],T[5],T[6],T[7],T[8],T[9],
color=green,
point_type=7,
points(P)
);

-------------------------------------------------------------------------------------------------

con lo anterior obtengo el gráfico deseado sin mayores contratiempos. Pero quiero saber si Maxima incluye alguna forma posible de utilizar la invocación a la lista T de manera directa, de tal manera que lo anterior se resuma a:

-------------------------------------------------------------------------------------------------



a(t):=[t,sin(t)]$



define( "a'"(t),diff(a(t),t) )$



t0:create_list(i*%pi/4,i,0,8)$



T:create_list( vector(a(i),"a'"(i)),i,t0 )$



P:map(a,t0)$



draw2d(

title="Campo vectorial tangente",

color=red,

parametric(t,sin(t),t,0,2*%pi),

color=blue,

head_length=0.2,

head_angle=10,

unit_vectors=true,

T,

color=green,

point_type=7,

points(P)

);



-------------------------------------------------------------------------------------------------

He resaltado con color rojo el detalle de mi interrogante. Por favor, si alguien sabe como resolver esto le supico me ayude. Ya intenté de todo (bueno no soy experto) y no consigo nada.

Muchas gracias.


 
           Prof. Robert Ipanaqué Chero


        Departamento Académico de Ciencias
               Universidad Nacional de Piura
        Urb. Miraflores s/n, Castilla. PIURA (PERU)
              rob...@ho...
                       (51) (73) 969 53 16 42http://www.unp.edu.pe/pers/ripanaque


 		 	   		  
_________________________________________________________________
Connect to the next generation of MSN Messenger 
http://imagine-msn.com/messenger/launch80/default.aspx?locale=en-us&source=wlmailtagline