Anuncio

Colapsar
No hay anuncio todavía.

Solicitar Entradas en TI CAS CX

Colapsar
X
  • Filtrar
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes

  • Solicitar Entradas en TI CAS CX

    Buenas soy nuevo en el foro

    Tengo una duda con respecto a la programacion en la TI NSPIRE CX CAS.

    Cuando creo mis programas, a la hora de pedir los datos de entrada, solo conozco el comando "Request", y debo de hacer un request para cada variable que quiero introducir al programa.

    Lo que quiero saber es si existe alguna manera de crear una tabla donde pueda introducir todas las variables de una sola vez, sin necesidad de ir una por una con los "Request".

    Gracias de antemano

  • #2
    Podrias introducir los datos a una matriz si son bastantes datos con los que trabajaras
    Manejando y Programando mi calculadora

    Comentario


    • #3
      mmmm no se puede crear una tabla con varias entradas?, y al hacerlo con matrices, como llamo a un solo elemento de la matriz? digamos el que esta en la posicion (2,1)?

      Comentario


      • #4
        Fijate en este post que ahi esta un codigo que trabaja con matrices y tambien ciclos For, te servira para lo que andas necesitando.
        http://www.calculadoras.cl/foro/show...hlight=simplex
        Manejando y Programando mi calculadora

        Comentario


        • #5
          Este codigo t puede servir como ejemplo
          Podrias utilizar de esta manera una vez que hayas definido la dimension de tu matriz m1
          Request "Ingrese valor:",m1[2,1]

          Código:
          Define LibPub mn_newton_raph()=
          Prgm
          Text "Método Numérico 1 variable:       Newton-Raphson",0
          Text "Si requiere redondeo introduzca "s", si no es necesario introduzca "n"",0
          ClearAZ
          Local x0,n1,x1,i,m1,red1,red
          red:=n
          RequestStr "¿Redondeo?:",red,0
          If red="n" Then Request "Función a resolver:",f1(x)
          Request "Número de iteraciones:",n1
          Request "Valor inicial, x₀:",x0
          m1:=newMat(n1+1,6)
          Fill _,m1
          m1[1,1]:=n
          m1[1,2]:=xi
          m1[1,3]:=f(xi)
          m1[1,4]:=f'(xi)
          m1[1,5]:=xi+1
          m1[1,6]:=dx
          :(f1(x),x)→der(x)
          Disp "La derivada es:",der(x)
          For i,2,n1+1
          x1:=x0-((f1(x0))/(der(x0)))
          m1[i,1]:=i-2
          m1[i,2]:=x0
          m1[i,3]:=f1(x0)
          m1[i,4]:=der(x0)
          m1[i,5]:=x1
          m1[i,6]:=abs(x1-x0)
          x0:=x1
          EndFor
          Disp "Resultados:"
          Disp approx(m1)
          Text "Fin de iteraciones buscar 
          valor mas cercano a 0.000",0
          ElseIf red="s" Then
          Text "Introduzca un valor entre 0 y 12 para redondeo de decimales",0
          Request "Numero de decimales:",red1,0
          Request "Función a resolver:",f1(x)
          Request "Número de iteraciones:",n1
          Request "Valor inicial, x₀:",x0
          m1:=newMat(n1+1,6)
          Fill _,m1
          m1[1,1]:=n
          m1[1,2]:=xi
          m1[1,3]:=f(xi)
          m1[1,4]:=f'(xi)
          m1[1,5]:=xi+1
          m1[1,6]:=dx (f1(x),x)→der(x)
          Disp "La derivada es:",der(x)
          For i,2,n1+1
          x1:=round(x0-((f1(x0))/(der(x0))),red1)
          m1[i,1]:=i-2
          m1[i,2]:=round(x0,red1)
          m1[i,3]:=round(f1(x0),red1)
          m1[i,4]:=round(der(x0),red1)
          m1[i,5]:=round(x1,red1)
          m1[i,6]:=round(abs(x1-x0))
          x0:=x1
          EndFor
          Disp "Resultados:"
          Disp m1
          Text "Fin de iteraciones buscar valor mas cercano a 0.000",0
          Else
          Text "El programa finalizara porque no introdujo un valor apropiado",0
          Goto fin
          EndIf
          Lbl fin
          ClearAZ
          DelVar der
          EndPrgm
          Editado por última vez por Chicheño; http://www.calculadoras.cl/foro/member/1902-chiche%C3%A3%C2%B1o en 10/05/12, 00:47:56.
          Manejando y Programando mi calculadora

          Comentario


          • #6
            fhould neherdryd

            Muchas gracias eso me sera de muchisima ayuda

            Comentario

            Trabajando...
            X