Expresiones algebraicas

[[Delphius]]

Empezado por rauros

He visto que si que hay una, pero que es de pago :S. Yo no puedo permitirme pagar por tales cosas, así que deberé abandonar por falta de métodos. Es que por mucho que le de vueltas a la cabeza no se si el problema es más matemático o más funciones delphi...

Rauros, no nos supiste decir de si se trata de una tarea. Si lo estabas haciendo con el fin de practicar no hay problema, pero si se trata de una tarea hazla, al menos presenta lo que hayas entendido.

Independientemente de si se trata de una cuestión de aprender para práctica y/o si es un trabajo, no te rindas. De poder se puede, y en la informática tenemos la regla de que todo se puede.

Si te cuesta tanto, lo que debes hacer es acotar los límites del sistema, achicarlo un poco y trabajar sobre ello, una vez que consigas eso y si ves que te resulta viable continuar ampliarlo.

Saludos,

[[egostar]]

Este hilo me hace recordar esto......

Salud OS (+)

[rauros]

No no es una tarea. En mi país con mi edad nunca piden nada de informática. Lo hago(quiero hacer) porque pienso que es algo útil y que me va a servir de ayuda en el futuro, ya sea como programación y como calculadora. Voy a empezar con algo sencillo, es a traducir algo escrito en un "Tedit" de matemáticas de las que te enseñan en la escuela a RPN (notacion polaca inversa). ¿Por donde debería empezar?

[rauros]

Egostar he leído el tema. Los pasos son para calcular una ecuación ya puesta antes. Yo una ecuación siempre sabré simplificarla. El problema es como simplificar una cualquiera, dando igual si lo que pongo es uno o dos incógnitas...

Ejemplo de simplificación:

2x - 15 = 23 / x
x - 15 = 23 / x / 2
x*x - 15 = 23 / 2
x^=11.5-15
x=sqrt(-3.5) (Esta no se podría hacer por que no hay raíz cuadrada de un número negativo...)

En RPN

x2*15-=23x/ (corregidme si me equivoco)

[rauros]

Saludillos. Hoy durmiendo (técnicamente entre ayer y hoy) me vino un rayo de luz de inspiración, y he pensado como hacerlo. Es un método poco potente, ya que solo podrá llegar a calcular incógnitas pequeñas o como yo deseé. De ahora en adelante seguiré con este proyecto hasta encontrar un método menos heterodoxo. Necesito que me ayudéis con el código. Si me podéis poner las funciones que deba usar o el código comentado, os lo agradecería nuevamente.

Cogemos 3 "Tedit". En uno de ellos ponemos la parte que está a la izquierda del igual, en el otro ponemos la que está a la derecha. En el otro ponemos que letra se usará para incógnita.

Está hecho a memoria sin comprobar (contad como que las variables ya estuvieran declaradas):

Código Delphi [-]
begin
letraincg=edit3.caption;
for incognita := 1 to 99999 do
{Sutituimos de alguna manera (no se ninguna) lo que iguale letraincg por incognita
Ejemplo:
letraincg=x
pues sustituimos todas las x por el valor de incognita}
ParteIzq=edit1.caption;
ParteDrc=edit2.caption;
If ParteIzq = ParteDrc then begin
{paramos el for (¿¿como se hace??)}
label1.caption='La incognita es '+incognita
end;
end.

Nota: Hasta cuantos for me recomendáis hacer?

[Robert01]

Empezado por rauros

2x - 15 = 23 / x
x - 15 = 23 / x / 2
x*x - 15 = 23 / 2
x^=11.5-15
x=sqrt(-3.5) (Esta no se podría hacer por que no hay raíz cuadrada de un número negativo...)

No entiendo lo de arriba. Yo creo salvo que hoy esté muy mal que esto va así:

(2x - 15) *x = 23

2x*x - 15 x = 23

x^2 - 7.5x - 11.5 = 0

x = (7.5 + sqrt(7.5^2 + 4*11.5)) / 2

x = (7.5 - sqrt(7.5^2 + 4*11.5)) / 2

Salu2

[rauros]

Bueno las ecuaciones dan igual, mirad el código.

[rauros]

Saludos. Ahora he hecho esto, pero me da un error de que el valor introducido no es un valor integer.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
label4.caption:='';
partizq := StrToInt(edit1.text);
partder := StrToInt(edit2.text);
for x := 1 to 100 do
if partizq = partder then begin
label4.caption := IntToStr(x);
end
end;
end.

El problema es que quiero poner 3x = 3x y no puedo, porque no es un valor integer. Yo quiero hacer que si pongo 4x + 2 = 5x - 2 (x=4) no puedo tomar ni sumas, ni restas, ni incógnitas con integer. Como podría hacerlo?

[[Delphius]]

Empezado por rauros

Saludos. Ahora he hecho esto, pero me da un error de que el valor introducido no es un valor integer.

El problema es que quiero poner 3x = 3x y no puedo, porque no es un valor integer. Yo quiero hacer que si pongo 4x + 2 = 5x - 2 (x=4) no puedo tomar ni sumas, ni restas, ni incógnitas con integer. Como podría hacerlo?

Obvio, que no vas a poder de ese modo.
StrToInt() sólo va a funcionar si lo que se ingresa es un entero. Si llega a ver un caracter extraño, va a producir una excepción (error).

Veamos como puedo guiarte.
El ejemplo que te voy a dar es muy simple, pero espero que pueda ilustrarte.

Supongamos que tienes dos edits (Edit1 y Edit2). El primero tiene una operación algebraica y el segundo es para mostrar el resultado. A manera de ilustración digamos que tenemos 5 + 12.

Bueno, entonces lo que debemos hacer es inspeccionar caracter a caracter para ver si nos encontramos con un número o una operación.
Hagamos de cuenta que tenemos tres variables: operando1, operando2 y resultado.

En operando1 guardaremos 5, en operando2 guardamos 12, y en resultado pues... 17.
¿Cómo conseguimos esto?
Como sabrás, el contenido de un string puede ser analizado como un vector, de modo que en la posición 1 se ubique el primer caracter, en la 2, el segundo, etc...

De modo que el primer operando será aquel que esté antes del caracter de la operación.

No quiero darte código, quiero invitarte a que lo razones, la idea es:

1. Mientras Edit1.Text[i] not in Operacion hacer:
1.1. concatenar Edit1.Text[i] en Aux.
2. Convertir Aux en entero y guardarlo en operando1

Operación es un conjunto que está formado por los simbolos que representan las 4 operaciones elementales.

Hagamos el supuesto de que tienes además una variable Operador que guarda el caracter que representa al operador, teniendo esto en mente podemos hacer algo como esto:

1. En caso de que Operador sea:
1.1. '+' hacer: Resultado = Operando1 + Operando2
1.2. '-' hacer: Resultado = Operando1 - Operando2
1.3. '*' hacer: Resultado = Operando1 * Operando2
1.4. '/' hacer: Resultado = Operando1 / Operando2

¿Se entiende? Debes explorar el contenido del Edit e ir guardando el contenido en sus respectivas variables.

Esto se vincula al hecho de porque te decíamos que estudiaras e investigaras sobre la notación polaca inversa. En notación polaca inversa el operador lo vas a encontrar al final, y para separar un operando de otro puedes usar un caracter "bandera", como puede ser #. De modo que si tienes 5#12+ Lo que haces es encontrar la posición del caracter bandera. Todo lo que esté detrás sera operando1. Localizas a operador (siempre está al final), y lo que esté después de bandera y antes de operador es operando2.

También te hemos dicho que estudies Pos, Legth(), replace... Estas funciones te asistirán a hacer lo que te comento.

Espero haberte guiado un poco.

Saludos,