RE: A simple problem

*To*: mathgroup at smc.vnet.net*Subject*: [mg25820] RE: [mg25786] A simple problem*From*: "David Park" <djmp at earthlink.net>*Date*: Sat, 28 Oct 2000 01:41:12 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Paul, This is one of the irritating features of Mathematica. The Version 4 package ExpressionManipulation, which Ted Ersek helped we write, has a routine called RootsTogether. ?RootsTogether "RootsTogether[expr] will put factors involving the same kind of root \ together under one root sign. Like PowerExpand it is not always a permissible \ operation. Mathematica automatically removes numeric factors from root \ expressions." tsol = Solve[1/2*a*t^2 == p, t] RootsTogether[%] {{t -> -((Sqrt[2]*Sqrt[p])/Sqrt[a])}, {t -> (Sqrt[2]*Sqrt[p])/Sqrt[a]}} {{t -> -Sqrt[2]*Sqrt[p/a]}, {t -> Sqrt[2]*Sqrt[p/a]}} I do not know how to get the 2 into the square root into the same root since Mathematica automatically removes numeric factors. The package is available at my web site below. With nospam mail addresses you may only get a very delayed response because nobody can send you a direct reply. David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ > From: Paul Lutus [mailto:nospam at nosite.com] To: mathgroup at smc.vnet.net > I have a very simple notation problem I cannot solve (because of > my limited > knowledge of Mathematica). > > Example -- an equation from physics: > > f := a * t^2 / 2 - p == 0 > > Now I want to create the different forms of this equation, such as: > > Solve[f,t] > > which produces: > > sqrt(2) * sqrt(p) / sqrt(a) > > Okay, the correct general solution. What I really wanted was the limited > solution ( sqrt(2p/a) ). I know I need to say "assume all the > variables are > >= 0", but I can't figure out how to express this. > > I've tried applying a number of different constraints without success. > > Hey -- I warned you. Simple problem. :) > > -- > > Paul Lutus > www.arachnoid.com >