Ecuacion De Van Der Waals

gas = raw_input("Ingrese el nombre del Gas : ")
T = float(raw_input("Ingrese la temperatura absoluta del gas (Kº):\nT = "))
P = float(raw_input("Ingrese la presion del gas en atmosferas:\nP = "))a = float(raw_input("Ingrese la constante a del gas:\na ( atm L^2/mol^2 ) = "))
b = float(raw_input("Ingrese la constante b del gas:\nb ( L/mol ) = "))
n = int(raw_input("Ingrese la cantidad decifras significativas\nn = ")
#Asignacion de valores por defecto y calculo de valores iniciales
R = 0.0821
vi = (T*R)/P
Es = 0.5*(10**(2-n))
Ea = 100
cond = 1
i=0

#Ciclo iterativo
#Itera hastaque el Error aproximado Ea sea menor que
#la tolerancia porcentual prefijada Es
while Ea > Es :
fv = (P*vi)+(a/vi)-((a*b)/(vi**2))-(R*T)
dfv = P-(a/(vi**2)+((2*(a*b))/(vi**3))
vi1 =vi - (fv/dfv)
Ea = abs(((vi1 - vi)/vi1)*100)
vi = vi1
i += 1

#Da formato de salida al resultado, expresando el mismo
#con las cifras significativas solicitadas
volumen_entero = int (vi1)#toma el entero del resultado
vol_entero_cadena = str( volumen_entero ) #convierte el entero en cadena
b = len(vol_entero_cadena) #calcula el largo de la cadena anterior
c = n - bvolumen_molar_cadena = str (vi1) #convierte en cadena el resultado obtenido por el ciclo iterativo
volumen_cadena_redondo = str ( round ( vi1,c ) ) #redonde la ultima sifra significativa del resultado y loconvierte en cadena


#imprime el resultado si la ultima sifra significativa se estimo en 0
if len ( volumen_cadena_redondo ) < (n+1) and volumen_entero > 0:
factor = (n+1) - len (volumen_cadena_redondo )
v_m = volumen_cadena_redondo + (factor*'0')
print 'El volumen molar del gas ', gas, ' es: \nvm = ', v_m,' L/gmol'

#imprime el resultado si este es menor que cero, con sus cifrassignificativas correspondientes
elif volumen_entero == 0:
z = 2
corte = 0
while corte == 0 :#itera hasta encontrar el primer valor no nulo y lo convierte en notacion cientifica con sus...