border

Miembros:
Mensajes:
Temas:
Online:

Ultimo Miembro:

 
 


Retroceder   VB-MUNDO - Programacion Visual > Programacion - Lenguajes > Visual Basic 6.00
Registrarse FAQ Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
LinkBack Herramientas Desplegado
  #1 (permalink)  
Antiguo 02-10-2006, 07:22:52
Avatar de JohnSuarez
Buena Participación en el Foro
 
Registrado: oct 2006
Ubicación: Riohacha
Posts: 98
JohnSuarez Valoración +2
Contactar con JohnSuarez a través de MSN
Predeterminado Graficando arcos de circunferencias



Porfavornecesitorealizarungráficoenvisualbasicquemuestreunarcodeuncircunferencia, teniendo punto de inicio, alcance horizontal y alcanzace vertical teniedo en cuenta El angulo de lanzamiento y la velocidad, tiene que ver algo con el lanzamiento de los proyectiles en fisica en la unidad de Cinematica, cualquier ayuda se les agradeceria grandemente.
__________________
EXITOS
________________
John Jairo Suarez
JJSB
Responder Con Cita
  #2 (permalink)  
Antiguo 02-10-2006, 08:22:20
Moderador
 
Registrado: dic 2002
Ubicación: Madrid
Posts: 4.266
acalanto ha deshabilitado la reputación
Predeterminado

Pero no es un arco de circunferencia lo que describe un proyectil (O cualquier objeto lanzado a una velocidad inicial determinada), más bien es una trayectoria parabólica.

Las fórmulas que calculan (aproximadamente) los pasos de la trayectoria en la hipótesis de un terreno completamente plano, son las siguientes:


x = V[sub:32890f53d0]o[/sub:32890f53d0] · t · cos(gamma)

y = (V[sub:32890f53d0]o[/sub:32890f53d0] · t · sin(gamma)) - (g/2 · t[sup:32890f53d0]2[/sup:32890f53d0])


El alcance máximo del proyectil viene dado por la siguiente expresión

Xv = (Vo[sup:32890f53d0]2[/sup:32890f53d0] · sin(2 · gamma)) / g



donde:

t = tiempo transcurrido
V[sub:32890f53d0]o[/sub:32890f53d0] = velocidad inicial del proyectil (en m/sg.)
g = 9.8 m/sg
gamma = ángulo inicial de la trayectoria sobre el horizonte.


Observarás que estas expresiones son una simplificación en la que el valor <X> no tiene límite, éste lo define y->0. Existen otras formas más precisas de calcular trayectorias de un objeto, en las que además de las variables representadas, se tienen en cuenta factores como la densidad, volumen, rozamiento y variaciones gravitatorias...pero son bastante más complejas y no por ello se alcanza un grado mayor de precisión (Para lo que pretendes graficar)
Espero que te resulte útil
__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Responder Con Cita
  #3 (permalink)  
Antiguo 02-10-2006, 22:47:59
Avatar de JohnSuarez
Buena Participación en el Foro
 
Registrado: oct 2006
Ubicación: Riohacha
Posts: 98
JohnSuarez Valoración +2
Contactar con JohnSuarez a través de MSN
Predeterminado

Te agradesco tu colaboración, ya yo tengo las formulas que me permiten calcular la altura máxima, el tiempo de vuelo y el alcance horizontal, lo que necesito realizar es obtenido todos estos valores realizar la gráfica en el plano, creo que lo mas conveniente es utilizando Pset o otra cosa, pero por favor necesito su colaboración, los créditos de está función en mi proyecto de grado serán para usted, cualquier cosa el que necesite el Form donde se calcula todo esto escribame y porfavor yo se los envio.
__________________
EXITOS
________________
John Jairo Suarez
JJSB
Responder Con Cita
  #4 (permalink)  
Antiguo 03-10-2006, 04:02:48
Moderador
 
Registrado: dic 2002
Ubicación: Madrid
Posts: 4.266
acalanto ha deshabilitado la reputación
Predeterminado

Lo mejor será que utilices el método LINE en un pictureBox y previo a la representación gráfica tendrás que calcular los valores mínimos y máximos para poder representarlo a escala adecuada. El siguiente codigo te muestra un esquema de cómo puedes representar.


Código:
public sub trayectoria(Vo as double, gamma as double, jPanel as PictureBox)
    dim t             as long
    dim maxx      as double
    dim maxy      as double 
    dim x()          as double
    dim y()          as double 
    dim items      as long 
    on local error resume next 
    items = 0 : t = 0
    'Factor radianes
    dim radians as double
    radians = 4*atn(1)/180
    'Alcance máximo
    maxx = Vo^2 * sin(2*gamma*radians) / 9.8
    maxy = -999999999
    'Calculamos trayectoria
    do until (Vo * t * cos(gamma*radians)) > maxx
        t=t+1
        items = items + 1
        redim preserve x(1 to items)
        redim preserve y(1 to items)
        x(items) = Vo * t * cos(gamma*radians)
        y(items) = (Vo · t · sin(gamma*radians)) - (9.8/2 * t^2) 
        maxy = iif(y(items)>maxy, y(items), maxy)
    loop
    'Escalamos el panel gráfico
    jPanel.Scale (-maxx/10,maxy*1.1)-(maxx*1.1,-maxy/10)
    jPanel.clear
    'Representamos la gráfica mediante el método LINE
    for t=1 to items-1
        jPanel.line (x(t), y(t))-(x(t+1),y(t+1)),qbcolor(12)
    next t 
    jPanel.refresh 
end sub

Lógicamente es un ejemplo de código escrito 'al vuelo' y no probado; Tendrás que adaptarlo a tu proyecto y necesidades. Observarás que la iteración es 'lineal' y por esta razón los primeros segmentos (Mayor velocidad), serán de una magnitud superior, decrecerán según se acercan al vértice de la trayectoria (deceleración ascendente) y volverán a ser crecientes en el descenso.

Si no lo ves claro, pásame el proyecto comprimido como fichero adjunto en este mismo post y trataré de echarte una mano.
__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Responder Con Cita
  #5 (permalink)  
Antiguo 03-10-2006, 04:06:25
Avatar de JohnSuarez
Buena Participación en el Foro
 
Registrado: oct 2006
Ubicación: Riohacha
Posts: 98
JohnSuarez Valoración +2
Contactar con JohnSuarez a través de MSN
Predeterminado

Lo que pasa es que tengo dificultades para usar el el metodo Line, porque son pocas los ejercicios que he hecho de esta clase
__________________
EXITOS
________________
John Jairo Suarez
JJSB
Responder Con Cita
  #6 (permalink)  
Antiguo 03-10-2006, 04:35:29
Moderador
 
Registrado: dic 2002
Ubicación: Madrid
Posts: 4.266
acalanto ha deshabilitado la reputación
Predeterminado

Me da la sensación que mientras escribía el ejemplo has insertado una nueva respuesta. Vuelve a entrar en el post.
__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Responder Con Cita
  #7 (permalink)  
Antiguo 03-10-2006, 05:11:59
Avatar de JohnSuarez
Buena Participación en el Foro
 
Registrado: oct 2006
Ubicación: Riohacha
Posts: 98
JohnSuarez Valoración +2
Contactar con JohnSuarez a través de MSN
Predeterminado

Ya subi el fichero en Zip espero que puedas colaborar, te lo agradecería grandemente :smt004
__________________
EXITOS
________________
John Jairo Suarez
JJSB
Responder Con Cita
  #8 (permalink)  
Antiguo 03-10-2006, 07:15:52
Moderador
 
Registrado: dic 2002
Ubicación: Madrid
Posts: 4.266
acalanto ha deshabilitado la reputación
Predeterminado

Pero.. ¿Dónde lo has subido?
__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Responder Con Cita
  #9 (permalink)  
Antiguo 03-10-2006, 22:05:05
Avatar de JohnSuarez
Buena Participación en el Foro
 
Registrado: oct 2006
Ubicación: Riohacha
Posts: 98
JohnSuarez Valoración +2
Contactar con JohnSuarez a través de MSN
Predeterminado

Ahora si está a disposición el fichero de mi proyecto, parece ser que no lo había subido correctamente :smt004
__________________
EXITOS
________________
John Jairo Suarez
JJSB
Responder Con Cita
  #10 (permalink)  
Antiguo 04-10-2006, 07:43:06
Moderador
 
Registrado: dic 2002
Ubicación: Madrid
Posts: 4.266
acalanto ha deshabilitado la reputación
Predeterminado

Lo siento, no consigo ver donde lo has subido. Ya me dirás
__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Responder Con Cita
Respuesta


Herramientas
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último Mensaje
Graficando datos de Access en un MsChart arodriguezp Visual Basic 6.00 0 05-03-2006 02:48:52


La franja horaria es GMT. Ahora son las 20:12:53.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
A vBSkinworks Design

Alojado en el servicio Premium de Masquewebs | Diseño mejorado por MasqueWebs

right