Wesitos · July 19, 2014 06:27
diff --git a/qf.gp b/qf.gp
 reset
 #constantes
 e  = 1e-6
 v  = 0.98
 pd = 4e-8
 d  = 0.92
 #Mierda
 f(x,y)= (1 - (1- exp(-2*y**2/x)+pd)*(1-exp(-2*((1-exp(-2*y**2/x))/(1-exp(-2*y**2/x)+pd)*(1-d)*(2*v-1))**2)))**x - e

 #Valor de prueba
 m_prueba = 2000

 set samples 1000
 set xrange [0:100]
 set yrange [-0.01 : 0.1]
 set term wxt
 plot f(m_prueba,x),0
	reset
	#constantes
	e = 1e-6
	v = 0.98
	pd = 4e-8
	d = 0.92
	#Mierda
	f(x,y)= (1 - (1- exp(-2y2/x)+pd)(1-exp(-2((1-exp(-2y*2/x))/(1-exp(-2y*2/x)+pd)(1-d)(2v-1))2)))x - e

	#Valor de prueba
	m_prueba = 2000

	set samples 1000
	set xrange [0:100]
	set yrange [-0.01 : 0.1]
	set term wxt
	plot f(m_prueba,x),0