- Re: Expressing values in the legend in terms of original data
Er,
In my version of Mathematica (6.03 WinXP) the ContourPlot is in color
by default. It doesn't make sense to add a grayscale legend. So either
you color the legend or you add a greyscale ColorFunction to the
ContourPlot:
contourPlotFun =
ContourPlot[
2 Sin[x y], {x, -\[Pi]/2, \[Pi]/2}, {y, -\[Pi]/2, \[Pi]/2},
- Re: could not get Simplified form
Obaid,
Could you provide us with a copy of your input? It is quite possible
that you made a typo there.
Cheers,
Sjoerd
On Oct 3, 12:41 pm, "Obaid Rehman"
wrote:
- Re: NDSolve and error
x])/(x^p +
1, 4}]
John,
I think your error results from the fact that you have defined y as
both a function of x and as a function of t (y[t] and y[x]). I am not
certain if you meant for y to be a function of both (in which case you
need to specify it as such (y[x,t]) throughout the equation (and
specify which derivatives you are taking) or if the y[t] on the left
- Using an locator and Rotating 3D graphics
When I try to use locators as inputs to 3D graphics, I end up not
being able to rotate 3d graphics. Clicking on the graphic moves the
nearest locator rather than the graphic. Switching to a collection of
2D sliders works in a pinch, but does not achieve the desired effect.
Here is an example:
Manipulate[v = pt2 - pt1;
- NET/Link Thread in C#
Dear All-
Can anyone give me a hint on how to start C# threads from
Mathematica ?
I tried:
====
Needs["NETLink`"]
InstallNET[];
LoadNETType["System.Threading. Thread"]
myThread = NETNew[ThreadStart]
and I got:
=======
NETType["System.Threading.Thre ad", 8]
NETNew::args: Improper count or type of arguments. >>
- Re: Comparison between Mathematica and other
But this need not have been done this way. It could have been done:
Ordering@(Re/@{##}) || Equal@@(Re/@{##}) && Ordering@(Im/@{##})&
From the perspective of someone not familiar with Mathematica
and its notation, this version is undoubtedly more opaque. But
for me, this is much clearer and easier to read. The issue of
- Re: Comparison between Mathematica and other symbolic systems
The current version of Mathematica has more than 2900 built-in
symbols, with many of these having long lists of options. I
would expect any other system with capabilities equivalent to
Mathematica to have a similarly long list of built-in commands
and options. This number of commands and options is far too long
- Re: Finding the optimum by repeteadly zooming on the solution space (or something like that)
On 10/5/08 at 6:05 AM, cuak2...@gmail.com (Mauricio Esteban Cuak)
wrote:
1,
I don't understand why you would take this approach. Why not use
the built-in function NMaximize, That is:
In[20]:= NMaximize[{obj,
cpoAg1 == 0 && cpoAg2 == 0 && x > 0.1 && y > 0.1}, {a, x, y}]
Out[20]= {2084.72,{a->0.527688,x->22.67 27,y->13.7173}}
- Re: Comparison between Mathematica and other
In article , "peter lindsay"
wrote:
Not certain what earlier words Peter is agreeing with, but I agree with
what Peter himself said -- perhaps edited to say:
"The [primary objectives should be] to persuade people how accessible
Mathematica [can be], not how incredibly learned and expert [its]
- Re: Expressing values in the legend in terms of original data
In addition to my previous reply I should have taken the automatic
ranging of ContourPlot into account as it scales values to give a 0..1
range.
So, if you want to make sure the legend maps GrayLevels 0..1 to the
-2..2 range (in case the ends of this range are not within the plot
region) you have to adjust the scaling of ContourPlot accordingly:
- integration
Dear Experts,
I have been trying to simplify(integrate) the following function, but
M6 seems to give a complex answer which i cann't understand.. please
help.
x[s_]=\!\(
\*SubsuperscriptBox[\(\[Integr al]\), \(0\), \(s\)]\(Cos[
\*FractionBox[\(r\ t\ \((\(-\[Kappa]0\) + \[Kappa]1 + r\ \[Kappa]1)\)
+ \((1 + r)\)\ S\ \((\[Kappa]0 - \[Kappa]1)\)\ \((\(-Log[S]\) + Log[S
- Re: Comparison between Mathematica and other symbolic systems
Albert,
yes it is, but that's an edited version, necessary for the post to
appear on this list. Still, I have to disagree with you, as only a
minority of the users switch from system to another depending on their
needs. Most of us probably master one or at most two systems. That's
it.
Paolo
- Axis in two scales
Hello everyone.
I have a dataset in pairs (x,y) that I would like to plot. The main
problem is that the data set has interesting parts in the beginning
that I would like to view clearly.
As an example, create the following table:
t = Table[{x, If[x < .5, Sin[100*x], Sin[x]]}, {x, 0, 5, 0.001}];
ListPlot[t]
- Re: Comparison between Mathematica and other
Still, I would avoid such a highly condensed bit of code and would
probably first try something more like the following:
complexGreater[z_, w_] :=
(Re[z] > Re[w]) || (Re[z] == Re[w] && Im[z] > Im[w])
evalGreater[edata1_, edata2_] :=
complexGreater[First@edata1, First@edata2]
esys = Eigensystem[RandomReal[{-1, 1}, {6, 6}]]
- Re: Comparison between Mathematica and other symbolic
And "remember how to use it between infrequent uses" is a good criterion
to note when comparing the long-to-type Mathematica names of functions,
on the one hand, and the terse but often cryptic names of functions in
some other systems.
AES wrote:
- an interesting problem of supplying boundary condition for a PDE
Hi All,
Down is the equation system
Jc = -\[Rho] Subscript[\[GothicCapitalD],
k] (D[\[Omega][x, y, t], x] + D[\[Omega][x, y, t], y]) -
Subscript[\[GothicCapitalD],
k] (D[Log[T[x, y, t]], x] + D[Log[T[x, y, t]], y]);
ContEq = D[u[x, y, t], x] + D[u[x, y, t], y] == 0;
MomentumEq = \[Rho] (D[u[x, y, t]^2, x] + D[u[x, y, t]^2, y]) ==
- Re: NDSolve and error
You typed y[t] rather than y[x]
Bob Hanlon
=============
Hello!
Lately I wrote simple code in Mathematica
sol[p_] :=
NDSolve[{Sqrt[
1 + (y'[t])^2] == (x^(p - 1) + (y[x])^(p - 1)*y'[x])/(x^p +
y[x]^p)^(1 - 1/p), y[1] == 6}, y, {x, 1, 4}]
but when I typed sol[2] the following kind of error was shown:
- How do I recover GridLines when using Prolog?
Hi All:
Thanks for all of you suggestions for the gradient soluitons. Below I
provide some simple code of an example plot I made.
bg = Polygon[{ImageScaled[{0, 0}], ImageScaled[{1, 0}],
ImageScaled[{1, 1}], ImageScaled[{0, 1}]},
VertexColors -> {Black, Black, ColorData["Legacy"]["MidnightB lue"],
- Re: NDSolve and error
=================^^^^^^
Must be y'[x] not of t.
In[1]:= sol[p_] :=
NDSolve[{Sqrt[
1 + (y'[x])^2] == (x^(p - 1) + (y[x])^(p - 1)*y'[x])/(x^p +
y[x]^p)^(1 - 1/p), y[1] == 6}, y, {x, 1, 4}]
In[2]:= sol[2]
Out[2]= {{y->InterpolatingFunction[{{1 .,4.}},<>]}}
In[3]:= Plot[y[x] /. %, {x, 1, 4}]
- Re: Comparison between Mathematica and other symbolic systems
In article ,
No mention at all of "how easy it is to learn to use the system" (and
remember how to use it between infrequent uses) ?!?!?!?
- Re: NDSolve and error
doda...@poczta.fm schrieb:
Hi John,
try to replace y'[t] in the call to Sqrt by y'[x], and you'll get an exact
solution for p=2:
In[3]:= DSolve[{Sqrt[Derivative[1][y][ x]^2 + 1] ==
(x^(p - 1) + y[x]^(p - 1)*Derivative[1][y][
x])/(x^p + y[x]^p)^(1 - 1/p),
y[1] == 6} /. p -> 2, y, x]
Out[3]= {{y -> Function[{x}, 6*x]}}
- Re: Comparison between Mathematica and other
I'm really not attempting to re-open the functional vs procedural
programming battle here, but I'd offer a couple or three observations on
the above:
1) Commands like Sort[ ], Transpose[ ], Re[ ] are evidently "functions"
and I suppose these functions contain massive levels of sophisticated
functional programming (and pattern matching) in their internals -- --
- Re: fellow authors
Thanks David
What I was trying to say, is that the only way that I know, is to make
each chapter into a note book document. Then some how combine the
notebooks into a book. But from what I read with Author tools, this way
presents problems such as references (and I have many of them), hyper
links, table of contents and index. The Author tools sounds like it
- Re: mathlink unsigned types and bit sizes
Hi,
1) Mathematica does not know an unsigned type and you have to send int.
2) MLGetReal64Array() are 64 bit reals, i.e. double ??
3) it is up to you when you disown the data. A function that
is called via the template mechanism never disown the array
itself.
Regards
Jens
Art wrote:
- Re: NDSolve and error
Look at the left hand side of differential equation you posted.
It says something about the derivative evaluated at t. But the
right hand side is evaluated at x. Change the t on the left hand
side to x and things should work.
- Re: NDSolve and error
I think u typed wrongly the equation.
I corrected it like this
sol[p_] :=
NDSolve[{Sqrt[
1 + (y'[t])^2] == (t^(p - 1) + (y[t])^(p - 1)*y'[t])/(t^p +
y[t]^p)^(1 - 1/p), y[1] == 6}, y, {t, 1, 4}]
Then
ol = sol[2];
Plot[y[t] /. ol, {t, 1, 4}]
- Finding the optimum by repeteadly zooming on the solution space (or something like that)
Hello everyone.I know somebody has probably writ mathematica code on this
problem.
A general answer would probably benefit more people, but I'll do the
specific example, 'cause I'm not sure how to explain it in another way.
I have these restrictions:
cpoAg1= ( -x + (70*a*(x^0.4 + y^0.4)^0.75)/x^0.6);
- Re: could not get Simplified form
>
You should post the expression and the replacement rules you used
(before evaluation), preferably in *InputForm* [1].
Regards,
- Jean-Marc
[1] Select the cell(s) you want to include in your email, then within
the *Cell* menu select either *Convert To* or *Display As* and choose
*InputForm*. Finally, copy and paste as usual.
- Re: could not get Simplified form
On 10/3/08 at 6:42 AM, Obaid.Reh...@student.adfa.edu. au (Obaid
This is a non-sense result and is a sure sign there is a problem
in the code you used to get this result.
In order for anyone to do this you will need to post the code
that produced the results you posted above. From what you have
posted, I expect the source of the problem is likely to be the
- Comparison between Mathematica and other
I agree. The object is to persuade people how accessible Mathematica is, not
how incredibly learned and expert the users need to be.
Peter
2008/10/3 Murray Eisenberg
- Re: Plotting ListDensityPlot with Custom Color Scheme
Hi All,
There is an update to the package that Szabolcs mentioned - you can
find it here:
[link]
- Re: How do I create my own color gradient?
Thanks for the tips everyone! Looks like I have a full weekend ahead
playing with ColorFunctions and Blend....
Cheers,
t.
PS - I never thought to try FullForm on ColorData...nice trick :)
- NDSolve and error
Hello!
Lately I wrote simple code in Mathematica
sol[p_] :=
NDSolve[{Sqrt[
1 + (y'[t])^2] == (x^(p - 1) + (y[x])^(p - 1)*y'[x])/(x^p +
y[x]^p)^(1 - 1/p), y[1] == 6}, y, {x, 1, 4}]
but when I typed sol[2] the following kind of error was shown:
NDSolve::"ndnum": "Encountered non-numerical value for a derivative at
- mathlink unsigned types and bit sizes
I have some related mathlink questions that I haven't found answers
for in the documentation. Answers to any would be great, thanks. Sorry
for posting several questions at once:
1. What is the best way to Put unsigned types. In particular, I have a
large 64-bit unsigned multidimensional array? I can't use
- Re: Comparison between Mathematica and other symbolic systems
Which really says 2) is the most important consideration. But I
would expand 2) to be the amount of time to input the problem
*and* verify the input has been done correctly. In my
experience, the time to verify/debug input is by far where most
of the effort is spent.
- Re: could not get Simplified form
Hi,
I'm sure that you are doing something wrong, but since you don't provide
the code that produces these result it's unfortunatly impossible to help...
albert
PS: Do you really think you want to make all these personal details
(which I have deleted) public available? Although I'm neither a lawyer
nor an English native speaker, I doubt your disclaimer makes any sense
- Re: Plotting ListDensityPlot with Custom Color Scheme
Hi All,
There is an update to the package that Szabolcs mentioned - you can
find it here:
[link]
- mathlink unsigned types and bit sizes
I have some related mathlink questions that I haven't found answers
for in the documentation. Answers to any would be great, thanks. Sorry
for posting several questions at once:
1. What is the best way to Put unsigned types. In particular, I have a
large 64-bit unsigned multidimensional array? I can't use
- Re: Comparison between Mathematica and other symbolic systems
Which really says 2) is the most important consideration. But I
would expand 2) to be the amount of time to input the problem
*and* verify the input has been done correctly. In my
experience, the time to verify/debug input is by far where most
of the effort is spent.
- Re: could not get Simplified form
On 10/3/08 at 6:42 AM, Obaid.Reh...@student.adfa.edu. au (Obaid
This is a non-sense result and is a sure sign there is a problem
in the code you used to get this result.
In order for anyone to do this you will need to post the code
that produced the results you posted above. From what you have
posted, I expect the source of the problem is likely to be the
- Re: could not get Simplified form
Hi,
I'm sure that you are doing something wrong, but since you don't provide
the code that produces these result it's unfortunatly impossible to help...
albert
PS: Do you really think you want to make all these personal details
(which I have deleted) public available? Although I'm neither a lawyer
nor an English native speaker, I doubt your disclaimer makes any sense
- Comparison between Mathematica and other
I agree. The object is to persuade people how accessible Mathematica is, not
how incredibly learned and expert the users need to be.
Peter
2008/10/3 Murray Eisenberg
- Re: could not get Simplified form
>
You should post the expression and the replacement rules you used
(before evaluation), preferably in *InputForm* [1].
Regards,
- Jean-Marc
[1] Select the cell(s) you want to include in your email, then within
the *Cell* menu select either *Convert To* or *Display As* and choose
*InputForm*. Finally, copy and paste as usual.
- NDSolve and error
Hello!
Lately I wrote simple code in Mathematica
sol[p_] :=
NDSolve[{Sqrt[
1 + (y'[t])^2] == (x^(p - 1) + (y[x])^(p - 1)*y'[x])/(x^p +
y[x]^p)^(1 - 1/p), y[1] == 6}, y, {x, 1, 4}]
but when I typed sol[2] the following kind of error was shown:
NDSolve::"ndnum": "Encountered non-numerical value for a derivative at
- Re: How do I create my own color gradient?
Thanks for the tips everyone! Looks like I have a full weekend ahead
playing with ColorFunctions and Blend....
Cheers,
t.
PS - I never thought to try FullForm on ColorData...nice trick :)
- Re: Plotting ListDensityPlot with Custom Color Scheme
Hi All,
There is an update to the package that Szabolcs mentioned - you can
find it here:
[link]
- Re: could not get Simplified form
On 10/3/08 at 6:42 AM, Obaid.Reh...@student.adfa.edu. au (Obaid
This is a non-sense result and is a sure sign there is a problem
in the code you used to get this result.
In order for anyone to do this you will need to post the code
that produced the results you posted above. From what you have
posted, I expect the source of the problem is likely to be the
- Re: could not get Simplified form
>
You should post the expression and the replacement rules you used
(before evaluation), preferably in *InputForm* [1].
Regards,
- Jean-Marc
[1] Select the cell(s) you want to include in your email, then within
the *Cell* menu select either *Convert To* or *Display As* and choose
*InputForm*. Finally, copy and paste as usual.
- Re: could not get Simplified form
Hi,
I'm sure that you are doing something wrong, but since you don't provide
the code that produces these result it's unfortunatly impossible to help...
albert
PS: Do you really think you want to make all these personal details
(which I have deleted) public available? Although I'm neither a lawyer
nor an English native speaker, I doubt your disclaimer makes any sense
- Re: Comparison between Mathematica and other
I agree. The object is to persuade people how accessible Mathematica is, not
how incredibly learned and expert the users need to be.
Peter
2008/10/3 Murray Eisenberg
|
Newsgroups