Advanced Search

Question: Can someone help me to solve this code. xx expression takes value zero. And i have to find the value of z which is coming 1.48

Question:Can someone help me to solve this code. xx expression takes value zero. And i have to find the value of z which is coming 1.48

cinderella 20 Maple
substitution
December 09 2018
0


 

> 

restart
> 

p := (alpha+c*(beta-k^2/mu)+z-Lambda(z))/(2*beta-k^2/mu)

(alpha+c*(beta-k^2/mu)+z-Lambda(z))/(2*beta-k^2/mu)

 (1)
> 

x := simplify((p-c)/(p-v))

mu*(beta*c+Lambda(z)-alpha-z)/(Lambda(z)*mu+((-c+2*v)*beta-z-alpha)*mu+k^2*(c-v))

 (2)
> 

``
> 

xx := p-c-(p-v)*x

(alpha+c*(beta-k^2/mu)+z-Lambda(z))/(2*beta-k^2/mu)-c-((alpha+c*(beta-k^2/mu)+z-Lambda(z))/(2*beta-k^2/mu)-v)*mu*(beta*c+Lambda(z)-alpha-z)/(Lambda(z)*mu+((-c+2*v)*beta-z-alpha)*mu+k^2*(c-v))

 (3)
> 

Lambda := proc (z) options operator, arrow; int((z-u)*phi(u), u = 0 .. z) end proc

proc (z) options operator, arrow; int((z-u)*phi(u), u = 0 .. z) end proc

 (4)
> 

``yy := eval(xx, [alpha = 50, mu = 10, c = 5, v = 1, beta = 2, k = 2, phi(u) = 1/2])

100/9+(5/18)*z-(5/72)*z^2-10*(136/9+(5/18)*z-(5/72)*z^2)*(-40+(1/4)*z^2-z)/((5/2)*z^2-544-10*z)

 (5)
> 

``
> 

zvalue := solve(yy, z)

z

 (6)
> 

yy

100/9+(5/18)*z-(5/72)*z^2-10*(136/9+(5/18)*z-(5/72)*z^2)*(-40+(1/4)*z^2-z)/((5/2)*z^2-544-10*z)

 (7)
> 

``


 

Download Dummy_Code.mw
Please Wait...