Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Solving Inequality in Mathematica 5.2' topicStudent Support Forum > General > Archives > "Solving Inequality in Mathematica 5.2"

Help | Reply To Topic
Author Comment/Response
Quang
10/26/07 6:52pm

Dear all,

My friend has the following Mathematica code which is run fine in her laptop:

<< "Algebra`InequalitySolve`"

c2 = 580
c3 = 600

b1 = 50
c1 = 400
d1 = 100
p1 = .1
r1 = .3
a2 = 400
b2 = 300
d2 = 50
p2 = .9
r2 = .7
\[Alpha]1 = .1
\[Alpha]2 = .2
\[Alpha]3 = .3
\[Alpha]4 = .4
\[Alpha]5 = .5
\[Alpha]6 = .6
\[Alpha]7 = .7
\[Alpha]8 = .8
\[Alpha]9 = .9
\[Alpha]10 = 1
\[Alpha]11 = 1.1
\[Alpha]12 = 1.2
\[Alpha]13 = 1.3
\[Alpha]14 = 1.4
\[Alpha]15 = 1.5
(*0-15*)
a1 = 30
a3 = 680
b = 0
\[Gamma] = 0.1
InequalitySolve[{a1^\[Alpha]1*(Exp[-(-Log[p1])^\[Gamma]]) +
b1^\[Alpha]1*(1 - Exp[-(-Log[p1])^\[Gamma]]) <
c1^\[Alpha]1*(Exp[-(-Log[r1])^\[Gamma]]) +
d1^\[Alpha]1*(1 - Exp[-(-Log[r1])^\[Gamma]]),
a3^\[Alpha]1*(Exp[-(-Log[p1])^\[Gamma]]) +
b1^\[Alpha]1*(1 - Exp[-(-Log[p1])^\[Gamma]]) >
c1^\[Alpha]1*(Exp[-(-Log[r1])^\[Gamma]]) +
d1^\[Alpha]1*(1 - Exp[-(-Log[r1])^\[Gamma]]),
a2^\[Alpha]1*(Exp[-(-Log[p2])^\[Gamma]]) +
b2^\[Alpha]1*(1 - Exp[-(-Log[p2])^\[Gamma]]) >
c2^\[Alpha]1*(Exp[-(-Log[r2])^\[Gamma]]) +
d2^\[Alpha]1*(1 - Exp[-(-Log[r2])^\[Gamma]]),
a2^\[Alpha]1*(Exp[-(-Log[p2])^\[Gamma]]) +
b2^\[Alpha]1*(1 - Exp[-(-Log[p2])^\[Gamma]]) <
c3^\[Alpha]1*(Exp[-(-Log[r2])^\[Gamma]]) +
d2^\[Alpha]1*(1 -
Exp[-(-Log[r2])^\[Gamma]])}, {\[Gamma], \[Alpha]1, b}]


However, when I run the same code in my laptop, there was a message saying that " 0.1 is not a variable". 0.1 is actually the initial value assigned to Gamma. Can you help me solving this?

Many thanks!

Quang



URL: ,
Help | Reply To Topic