Aplicaciones/Fragmentos de Código :: Ayuda Metodo De Biseccion

Portal

Foro

Buscar

FAQ

Registrarse

Conectarse

Fecha y hora actual: Martes, 30 Abril 2024, 17:18 • Todas las horas son UTC + 1 Hora

Ayuda Metodo De Biseccion

Página 1 de 1

Ayuda Metodo De Biseccion

Autor

Mensaje

skhaliburg Sexo: Masculino

Aprendiz

Registrado: Octobre 2009
Mensajes: 58
Edad: 40

Ayuda Metodo De Biseccion

Por mas que le he buscado e inclusive he recibido la asesoria de jsbsan http://foro.gambas-es.org/viewtopic.php?f=1&t=931
no he logrado nada, me encontre este codigo en vb e inclusive ya lo hice ahi y si jala, pero al pasarlo a mi adorado gambas2 no funciona, he de mencionar que le hice los cambios y nada

A qui les paso el archivo

Biseccion.tar.gz
Descripción:		Descargar
Nombre del archivo:	Biseccion.tar.gz
Tamaño:	11.97 KB
Descargado:	86 veces

Biseccion.tar.gz
Descripción:		Descargar
Nombre del archivo:	Biseccion.tar.gz
Tamaño:	11.97 KB
Descargado:	86 veces

Biseccion.tar.gz
Descripción:		Descargar
Nombre del archivo:	Biseccion.tar.gz
Tamaño:	11.97 KB
Descargado:	86 veces

#1 Martes, 12 Octobre 2010, 16:38

jsbsan

Analista Programador

Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51
Ubicación:

dos hermanas, sevilla

Re: Ayuda Metodo De Biseccion

skhaliburg y yo, estamos cooperando para crear un programa que dibuje la grafica y de las raices de la ecuación, os adelanto parte del programa:

Código: [Descargar] [Ocultar] [Seleccionar]

PUBLIC FUNCTION f(x AS Float) AS Float
'funcion de ejemplo
RETURN (x ^ 2 + 2 * x + 0.5)
END

PUBLIC SUB Button2_Click()
DIM a AS Float
DIM b AS Float
DIM n AS Long
DIM epsilon AS Float
DIM x AS Float
DIM c AS Float
a = ValueBox1.value
b = valuebox2.value
epsilon = ValueBox3.value
n = 0
REPEAT
c = (a + b) / 2
IF Abs(f(c)) < epsilon THEN
    x = c
     BREAK ' en vez de EXIT DO
    ELSE
      IF (f(a) * f(c)) < 0 THEN
        b = c
        ELSE
        a = c
        END IF
    END IF
n = n + 1
UNTIL (Abs(f(c)) <= epsilon)
ValueBox4.Value = c
ValueBox5.value = n
END

Citar:
Los cambios introducidos del codigo de V.B. a gambas son:
1) La funcion devuelve el resultado con RETURN
2) En vez de Double , hay que poner Float
3) Do .....Loop While , en gambas es Repeat...... Until
4) Exit Do, en gambas se pone Break
5) ElseIf, lo he cambiado por un Else If... then....endif (por tenerlo mejor ordenado)
Ademas tenia un error el codigo, el bucle termina cuando la función es menor o igual que el error (Abs(f(c)) <= epsilon) , y no como venia en tu codigo (>=).

Esperamos terminarlo, completamente, y subirlo muy pronto, para toda la comunidad gambas.

Saludos

===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!

#2 Jueves, 14 Octobre 2010, 20:23

Dervins

Usuario

Registrado: Diciembre 2010
Mensajes: 18
Edad: 34
Ubicación:

Re: Ayuda Metodo De Biseccion

hola me intereso tu programa y me lo descargue para probarlo, pero en el momento de ejecutarlo me arroja un error
en pantalla
que dice
not an objet
en la linea
IF Abs(f(c)) < epsilon THEN

por que sucede eso?

última edición por Dervins el Miercoles, 09 Febrero 2011, 19:55; editado 1 vez

#3 Miercoles, 09 Febrero 2011, 19:54

jsbsan

Analista Programador

Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51
Ubicación:

dos hermanas, sevilla

Re: Ayuda Metodo De Biseccion

Se envio la version hecha para gambas:

http://manualjsb.googlecode.com/fil...on-0.0.1.tar.gz

Saludos

===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!

#4 Viernes, 11 Febrero 2011, 11:02

Dervins

Usuario

Registrado: Diciembre 2010
Mensajes: 18
Edad: 34
Ubicación:

Re: Ayuda Metodo De Biseccion

No les molesta que haya modificado el código??
aqui les dejo mi modificacion

Biseccion.zip
Descripción:		Descargar
Nombre del archivo:	Biseccion.zip
Tamaño:	20.67 KB
Descargado:	73 veces

Biseccion.zip
Descripción:		Descargar
Nombre del archivo:	Biseccion.zip
Tamaño:	20.67 KB
Descargado:	73 veces

Biseccion.zip
Descripción:		Descargar
Nombre del archivo:	Biseccion.zip
Tamaño:	20.67 KB
Descargado:	73 veces

#5 Miercoles, 16 Febrero 2011, 04:32

skhaliburg Sexo: Masculino

Aprendiz

Registrado: Octobre 2009
Mensajes: 58
Edad: 40

Re: Ayuda Metodo De Biseccion

Te lo agradecemos, cuidate

#6 Miercoles, 16 Febrero 2011, 09:06

jsbsan

Analista Programador

Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51
Ubicación:

dos hermanas, sevilla

Re: Ayuda Metodo De Biseccion

Dervins:

Te ha quedado muy bien, ahora da mucha mas información, lo pondre en mi blog... ¡muy buena colaboración!!,,,

¡¡¡ asi, asi, !!! entre todos hacemos software libre

Saludos

Julio

===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!

#7 Miercoles, 16 Febrero 2011, 17:11

Temas parecidos

	Autor	Foro	Respuestas	último mensaje
Comportamiento De Formularios Usando El Me...	inkarri	Controles/Librerías/Componentes	1	Lunes, 11 Julio 2011, 19:16 inkarri
Efecto Del Metodo Resize Con Un Dibujo	Shell	Aplicaciones/Fragmentos de Código	2	Domingo, 09 Junio 2013, 19:47 jguardon
Metodo ToString() En Gambas3 [Resuelto]	sulky16v2	General	6	Jueves, 07 Abril 2016, 19:10 Invitado
Agregar A La Clase Setting Un Metodo FindK...	v3ctor	General	2	Sabado, 23 Abril 2016, 09:23 jguardon

Página 1 de 1

Fecha y hora actual: Martes, 30 Abril 2024, 17:18 • Todas las horas son UTC + 1 Hora

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno

Lista de permisos

No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

Versión reducida del foro - (Lo-Fi)
Página generada en:: 0.7767s (PHP: -90% SQL: 190%)
Consultas SQL: 48 - Debug off - GZIP Activado

Design by Mighty Gorgon