Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2013

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: extract from Reduce

  • To: mathgroup at smc.vnet.net
  • Subject: [mg130359] Re: extract from Reduce
  • From: debguy <johnandsara2 at cox.net>
  • Date: Thu, 4 Apr 2013 22:31:56 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-newout@smc.vnet.net
  • Delivered-to: mathgroup-newsend@smc.vnet.net
  • References: <kjkc5k$7n0$1@smc.vnet.net>

this will get a num list if ==, !=, ||, && are involved

Begin["a`"]
Reduce[p*x == 1 && x^2 == y, {p, x}];
% /. x_ == y_ -> {x, y} /. x_ != y_ -> {x, y}; (* 1 *)
% //. x_ && y_ -> {x, y} //. x_ || y_ -> {x, y};
Partition[Flatten[%], 2]; (* 2 *)
answer=%[[All,2]] (* just the numbers so to speak *)
End[];
Scan[Remove, Names["a`*"]]

(* note!  without !=, &&, || values are "wrong" unless used in context
*)

(* (1)
%//InputForm
{p, -(1/Sqrt[y])} && {x, -Sqrt[y]} && {y, 0} ||
 {p, 1/Sqrt[y]} && {x, Sqrt[y]} && {y, 0}
*)

(* 2
% // InputForm
{{p, -(1/Sqrt[y])}, {x, -Sqrt[y]}, {y, 0}, {p, 1/Sqrt[y]}, {x,
Sqrt[y]},
 {y, 0}}
*)



  • Prev by Date: Re: Problem with function definition inside DynamicModule
  • Next by Date: Re: find position in a list made by string by searching incomplete string
  • Previous by thread: Re: extract from Reduce
  • Next by thread: Re: extract from Reduce