Expresiones algebraicas

[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...

[[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?