Tutoriales sobre MACROS de EXCEL - VB-MUNDO

imported_chiaravel · #1 (**permalink**) 07-09-2006, 04:22:05

He Subido a nuestra seccion de tutoriales un par de ellos sobre MACROS DE EXCEL

Les dejo el LINK

http://www.vb-mundo.com/tutoriales/V...d---Ou/67.html

o

Tutorial MACROS EXCEL

Saludos

Olegario Leon Arechiga · #2 (**permalink**) 17-09-2008, 15:32:19

Hola a todos(as), mi duda es la siguiente: "Estoy interesado en crear un macro en VBA dentro de excel, para graficar curvas paramétricas en 3 dimensiones, en donde se proporcionen las 3 ecuaciones de X, Y & Z, todas ellas dependientes de un parámetro t".

Les agradezco de antemano sus finas atenciones. Saludos cordiales.

Olegario L. A.

acalanto · #3 (**permalink**) 17-09-2008, 19:40:59

Por la redación de la pregunta no acierto a comprender si te refieres a los métodos numéricos para representar un sistema 3D (x,y,z) en una proyección plana (pantalla) o la función, serie o integral que defina una determinada forma geométrica. Que yo sepa, la representación de un sistema geométrico en tres dimensiones responde a la unión de más de una función concreta y en caso de tratarse de un objeto existente que no corresponde a ninguna forma conocida, será consecuencia de una función no definida y discontinua con máximos y mínimos que se pueden producir en cualquiera de sus ejes de representación.

La única cosa por mi conocida es la representación en 3D de 'bloques' que se idealizan en base a conocimientos previos establecidos y que permiten, mediante iteración y convergencia, establecer las relaciones y magnitudes de cualquier orden que se establecen entre ellos (elementos discretos), pero que no responden a modelos catalogados.

No sé, sinceramente es que no comprendo muy bien tu pregunta.

Olegario Leon Arechiga · #4 (**permalink**) 17-09-2008, 21:21:21

Hola, agradezco tu respuesta. Para ser mas específico, quiero construir una macro en excel, que grafique la curva dada por las ecuaciones: X=sin(t), Y=cos(t) -1, Z=sin(2t), donde 0<t<pi; por dar un ejemplo. Esta es una curva en 3D, ¿pero como puedo graficarla en VBA?. Agradezco de antemano tus comentarios. Saludos cordiales.

acalanto · #5 (**permalink**) 17-09-2008, 22:09:10

Pues mira, el algorítmo más sencillo para transformar una entidad 3D en su proyección sobre un plano a una distancia OBS del observador, el cual está situado en una posición definida por DX,DY,DZ, es el siguiente.

Código:

 
Public Sub rotacion(dX As Double, dY As Double, dz As Double, _
                    gx As Double, gy As Double, gz As Double, _
                    xt As Double, yt As Double, zt As Double, _
                    Xs As Double, Ys As Double, Obs As Double)
 
    Dim i As Long, radians As Double
    Dim XR As Double, YR As Double, Zr As Double
    Dim x As Double, y As Double, z As Double
    Dim x1 As Double, y1 As Double, Z1 As Double
    Dim gxx As Double, gyy As Double, gzz As Double
 
    On Local Error Resume Next
    radians = (3.141592654 / 180)
    'Transformar angulares
    gxx = gx * radians
    gyy = gy * radians
    gzz = gz * radians
    'Disponer en temporales
    XR = xt - xmedia + dX
    YR = yt - ymedia + dY
    Zr = zt - zmedia + dz
    '----[primera rotación]
    x1 = -Cos(gzz) * XR - Sin(gzz) * Zr
    Z1 = -Sin(gzz) * XR + Cos(gzz) * Zr
    x = Cos(gyy) * x1 + Sin(gyy) * YR
    y1 = Cos(gyy) * YR - Sin(gyy) * x1
    z = Cos(gxx) * Z1 - Sin(gxx) * y1
    y = Cos(gxx) * Z1 - Sin(gxx) * y1
    Xs = -Obs * x '/ ((Z - zmedia))
    Ys = -Obs * y '/ ((Z - zmedia))
End Sub

donde gxx, gyy y gzz representan el giro rotacional de los tres ejes posibles:

X: de izquierda a derecha
Z: profundidad de la escena
Y: altura de la escena

Estas direcciones tenidas siempre en cuenta que las rotaciones corresponde a '0' grados.

De todas formas -insisto- será muy complicado que puedas materializar con excel una gráfico en 3D, porque necesitarás que el usuario interactúe con él para realizar los giros, desplazamientos y cambios de la focal del observador; además, este es el proceso más sencillo que se me ocurre, otros algorítmos son mucho más complejos de implementar.

PD: Xt, Yt y Zt corresponden a los valores que de cada iteración calculada por la función que representas, se transforman en unas coordenadas XS e YS que son las proyectadas sobre el 'telón' de auerdo a las rotaciones de los ejes, el punto de vista del observador y la focal deseada.