Autor
me gustaría que me ayudaran a pasar un programa hecho en una calculadora Texas Voyage200 a lenguaje C++, por favor
abajo les dejo el código para la calculadora y al final les dejo algunas aclaraciones sobre el codigo
link para visualizar mejor el código
https://onedrive.live.com/redir?resid=50ACFCC6435EB40!1970&authkey=!AILqsYKMc9RuIBQ&ithint=file%2cdocx
Código:
hardy()
Prgm
©INGRESE TODO EN UNIDADES, NO IMPORTA EN QUE ORDEN INGRESE LOS DATOS.
DelType “expr”
DelType “func”
DelType “list”
DelType “mat”
ClrIO
Input “numero de circuitos”, nc
Input “numero total de tramos”, nt
newMat(nt,nc)→t
newMat(nt,nc)→d
newMat(nt,nc)→l
newMat(nt,nc)→km
newMat(nt,nc)→q
newMat(nt,nc)→e
newList(nc) →papa
For j, 1, nc, 1
Input “tramos en el circuito”, var
var→〖papa〗_j
For i, 1, 〖papa〗_j, 1
Input “diámetro”, var
var→d_(i,j)
Input “longitud”, var
var→l_(i,j)
input “factor de perdidas menores”, var
var→〖km〗_(i,j)input “caudal”, var
var→q_(i,j)
If i>1 or j>1 Then
Dialog
DropDown “la rugosidad cambia?”, {“si”, “no”}, rug
EndDlog
If rug=1 Then
Input “rugosidad”, var
var→e_(i,j)
EndIf
Else
Input “rugosidad”, var
var→e_(i,j)
EndIf
If i>1 and j≥1 and rug=2 Then
e_(i-1,j) →e_(i,j)
EndIf
If i=1 and j>1 and rug=2 Then
e_(〖papa〗_(j-1),j-1) →e_(i,j)
EndIf
EndFor
EndFor
1→k
1→j
1→i
Input “viscosidad cinematica”, un
While k=1
While j≤nc
newList(〖papa〗_j) →hl
newList(〖papa〗_j) →cociente
While i≤〖papa〗_j
4|q_(i,j) |/(πd_(i,j)^2 ) →v
Disp “velocidad”
Pause v
(d_(i,j) v)/nu→nr
Disp “numero de Reynolds”
Pause nr
0.25/(log(1/3.7(d_(i,j)/e_(i,j) ) +5.74/(nr^.9 )) )^2 →f
Disp “factor de friccion”
Pause f
sign(q_(i,j) )(f l_(i,j)/d_(i,j) (v^2/(2*9.81m/s^2 ))+〖km〗_(i,j) (v^2/(2*9.81m/s^2 )))→〖hl〗_i
Disp “perdida en el tramo”
Pause 〖hl〗_i
〖hl〗_i/q_(i,j) →〖cociente〗_i
Disp “cociente”
Pause 〖cociente〗_i
i+1→i
EndWhile
Disp “suma de perdidas”
Pause sum(hl)
Disp “suma de cocientes”
Pause sum(cociente)
-sum(hl)/2sum(cociente) →Δq
Disp “Δq”
Pause Δq
1→i
While i≤〖papa〗_j
q_(i,j)+Δq→q_(i,j)
Disp “nuevo caudal”
Pause q_(i,j)
i+1→i
EndWhile
Dialog
DropDown “hay tramos circuito-circuito?”, {“si”, “no”}, tcc
EndDlog
If tcc= Then
Input ”cual tramo?”, hugo
Input “con cual circuito?”, paco
Input “a que tramo corresponde?”, Luis
Dialog
DropDown “que signo le corresponde?”, {“+”, “-”}, signo
EndDLog
EndIf
If tcc=1 and signo=1 Then
|q_(hugo,j) |→|q_(luis,paco) |
EndIf
If tcc=1 and signo=2 Then
-|q_(hugo,j) |→|q_(luis,paco) |
EndIf
1→i
j+1→j
EndWhile
Dialog
DropDown “desea hacer otra iteración?”, {“si”, “no”}, k
EndDlog
1→i
1→j
EndWhile
EndPrgm
el For y el While pues si son igual que en el C, creo que el If también
nada más el Input pues es para ingresar un valor
y luego el newMat(i,j) es para hacer una matriz de i renglones y j columnas
el newList(i) hace una lista de i elementos
en donde viene el Dialog, la texas convierte los valores string a valores numéricos, en donde viene
Dialog
DropDown “la rugosidad cambia?”, {“si”, “no”}, rug
EndDlog
en la texas se abre una pantalla con la pregunta y un menú desplegable, si=1, no=2 y así
y luego en la texas hay que mostrar los valores uno por uno porque si se muestran muchos a la vez no se pueden ver, entonces le puse
Pause hl
para que muestre la variable y el programa se quede en pausa, pero igual y no me interesa que muestre los valores, lo que me interesa es que todos los valores en lugar de mostrarlos que los vaya guardando en un archivo excel
y en donde le puse el sum(hl) es la suma de todos los elementos de la lista hl, ese si no sé si sea igual en C
también hay una función sign(q) para mostrar el signo de esa variable, no sé si en C sea igual
y luego puse una variable string que se llama signo, aclaro para que no se confunda con la función
los valores que están entre barras son valores absolutos, no estoy seguro de cómo se ponga esa función en C
ah y luego puse un valor en metros por segundos cuadrados pero no se si se pueda cargar alguna librería para usar unidades en el C
De verdad si alguien me puede ayudar a pasar este programa a lenguaje C++ se los agradecería mucho
En línea
