Define LibPub cpq()=
Prgm
:Local i,ele,a1,b1,c1,d1,t1,t2,r
:Request "Compuesto=",ele
:i:=1
:While ele≠nombre[i] and i<dim(nombre)
:i:=i+1
:EndWhile
:If ele=nombre[i] Then
:a1:=constante_a[i]
:b1:=constante_b[i]
:c1:=constante_c[i]
:d1:=constante_d[i]
:Request "T1=",t1
:Request "T2=",t2
:
:8.314*∫(a1+b1*10^(−3)*t+c1*10^(−6)*t^(2)+d1*10^(5)*t^(−2),t,t1,t2)→r
:Disp "Cp(Joule)=",r
:Else
:Disp " No encontrada"
:EndIf
:EndPrgm
How to solve "Error: A test did not resolve to TRUE or FALSE"?