Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

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

Search the Archive

FW: Re: Newbie mathematica question

  • To: mathgroup at smc.vnet.net
  • Subject: [mg37192] FW: [mg37176] Re: Newbie mathematica question
  • From: Blimbaum Jerry DLPC <BlimbaumJE at ncsc.navy.mil>
  • Date: Wed, 16 Oct 2002 14:25:21 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Allan, I would like to add something to this , something which duzznt deal
with the question directly but with the answer...since I've seen it many
times on the mathgroup forum, I feel i'd like to make a philosophical
comment here...when I look at the reply and the solution , which might be
perfectly good, but it makes me wonder...of what value is it to a
"Newbie"????......quite often I seen questions posted  "Who can do this or
that the fastest?"....How about  "who can come up with a solution that is
the easiest to comprehend?"....Allan, I realize that you are an advanced
user, etc..and that you think along these lines...but for me, and perhaps
many others, I cant think along these lines even though I have read
mathgroup for many years now...with that said, naturally i'm quite thankful
to the 'gurus' who provide answers....

jerry blimbaum  NSWC panama city, fl

-----Original Message-----
From: Allan Hayes [mailto:hay at haystack.demon.co.uk]
To: mathgroup at smc.vnet.net
Subject: [mg37192] [mg37176] Re: Newbie mathematica question


[My previous reply seems to have gone astray - at least it has not come back
to me.
Here is a slightly edited repeat]

You have computed

  f[t_] = {t + Sqrt[3] Sin[t], 2 Cos[t], t Sqrt[3] - Sin[t]};

and then found

    f'

        {1 + Sqrt[3]*Cos[#1], -2*Sin[#1], Sqrt[3] - Cos[#1]} &

To get the function for the norm of the derivative we can use

    norm = Evaluate/@(Simplify/@(Sqrt[#.#]&/@(f')))

        2*Sqrt[2] &

We map the usual functions for calclulating and  simplifying the norm inside
Function[.] (which is the full form of  (.)& and then map the function
Evaluation to make the result evaluate -- this is needed since Function has
the attribute HoldAll.
Please note that the parentheses are essential.


--
Allan

---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565


"Anonymous" <not at for.you> wrote in message news:ao3app$n2d$1 at smc.vnet.net...
> Hi, I have defined a function from R -> R^3 as follows:
>
> f[t_] = {t + Sqrt[3] Sin[t], 2 Cos[t], t Sqrt[3] - Sin[t]}
>
> So It's basically a vector whose coordinates are determined based on the
> values you pass in.
>
> Then I took the derivative by just typing f', which outputs
>
> {1 + Sqrt[3] Cos[#1], -2 Sin[#1], Sqrt[3] - Cos[#1]}&
>
>
> What I'd like to do is have Mathematica calculate the norm of this as it
> would any vector, so that I can play with the norm function.  As it turns
> out, the norm in this case is identical to Sqrt[8], so it would be nice if
> Mathematica could figure that out.  Is it possible to do this?
>
> Thanks
>
>




  • Prev by Date: Re: re: Accuracy and Precision
  • Next by Date: Re: Re: re: Accuracy and Precision
  • Previous by thread: Re: Newbie mathematica question
  • Next by thread: Re: Factoring a polynomial (2)