Nathan, << Graphics`Graphics` << Graphics`MultipleListPlot` flist = Table[{p, 4.Exp[-5. p]}, {p, 1, 15, 2}]; dx = Transpose[flist][[1]] dy = Transpose[flist][[2]] MultipleListPlot[Transpose[{dx, Log[10, dy]}], SymbolShape -> {PlotSymbol[Box, 2]}, Axes -> False, Frame -> True, FrameTicks -> {Automatic, LogScale, Automatic, Automatic}, ImageSize -> 450]; That works except that we would probably prefer not to have the "1. x" on all the tick labels, or the form "0.001" and the right hand tick marks do not corres...

Nasser, As I said in the earlier posting, the BodePlot routine is in the DrawGraphics Help under Examples, LogPlots & Bode Plots. It is not a built-in routine in DrawGraphics, but the code is there in the example and can be copied and modified if desired. The BodePlot allows plot options to be passed and these can override the built-in options. Thus you could pass FrameLabel -> {"frequency (rad/sec)",...} if you wished. You could modify the nformat routine for the horizontal ticks, but I don't think that 10^(-1), 10^0, and 10^1 look that great. Everyone to t...

On 9/20/09 at 6:23 AM, max@alcyone.com (Erik Max Francis) wrote: >What's the smoothest way to draw a ListPlot (or its friends, >ListLogPlot, ListLogLogPlot, etc.) with another plot of just a >normal function (which is actually a curve fit to the data) on top >of the ListPlot? >I know that I can just do two plots (which are just Graphics objects >anyway) and then show them simultaneously with show, but since it's >a ListPlot, but since I'm dealing with an arbitrary set of data I >don't know what the bounds of the plot will be, so I don't s...

On 9/22/09 at 7:09 AM, max@alcyone.com (Erik Max Francis) wrote: >Bill Rowe wrote: >>I don't know that there is a standard way. And as for proper way, I >>would say anything that yields the desired result can be considered >>proper. In any case, here is one way >>data = RandomReal[1, {10, 2}]; f = FindFit[data, m x + b , {m, b}, >>x]; >>Plot[m x + b /. f, {x, 0, 1}, Frame -> True, Axes -> None, Epilog >>-> {Point[data]}, PlotRange -> {.95 Min@data[[All, 2]], 1.05 >>Max@data[[All, 2]]}] >Thanks to everyone w...

On 11/13/10 at 12:59 AM, leigh.pascoe@inserm.fr wrote: >I have a lsit of Lists of Lists: >{{{1,2},{2,1},{1,1}},{{1,1},{1,1},{1,2}},{{2,1},{2,2},{1,2}},{{2,2}, >{1,2},{2,2}},{{1,1},{2,1},{1,2}},{{1,2},{2, 2},{2,2}}} >I would like to sort the elements in the lowest level of brackets to >give >{{{1, 2}, {1, 2}, {1, 1}}, {{1, 1}, {1, 1}, {1, 2}}, {{1, 2}, {2, >2}, {1, 2}}, {{2, 2}, {1, 2}, {2, 2}}, {{1, 1}, {1, 2}, {1, 2}}, >{{1, 2}, {2, 2}, {2, 2}}} >i.e retaining the same structure with the paired elements in the >original order. I can't seem...

Hi Fiz, > > Here is the function > > w=exp(-2(x^2+y^2/r0^2))*exp(-2(z^2/z0^2)) > > r0=1.4 and z0=1.4 The function is Exp, not exp, and it needs square brackets not parentheses. r0 = 1.4; z0 = 1.4; w = Exp[(-2(x^2 + y^2/r0^2))]*Exp[(-2(z^2/z0^2))] // FullSimplify The function you're after is ContourPlot3D, and you use it like Needs["Graphics`ContourPlot3D`"] ContourPlot3D[w, {x, -1, 1}, {y, -1, 1}, {z, -1, 1}, Contours -> {.75}, \ PlotRange -> All, Axes -> True, BoxRatios -> {1, 1, 1}]; This produces "something",...

Attributes[Plot] {HoldAll,Protected} Attributes[ListPlot] {Protected} Bob Hanlon ---- Giacomo Ciani <jackspam79@gmail.com> wrote: > On 7 Gen, 13:28, Bob Hanlon <hanl...@cox.net> wrote: > > Attributes[Plot] > > > > {HoldAll,Protected} > > > > opts = {PlotRange -> {0, 1}, AxesOrigin -> {0, 0.5}}; > > > > Plot[x, {x, 0, 1}, Evaluate[opts]] > > > > Bob Hanlon > > > > ---- Giacomo Ciani <jackspa...@gmail.com> wrote: > > > > > Hi all, > > > > > ...

On Fri, 22 May 2009 01:50:51 -0400 (EDT), skkaul wrote: > On May 10, 5:13 am, John Fultz <jfu...@wolfram.com> wrote: > >> <install= >> directory>/SystemFiles/FrontEnd/TextResources/UnicodeFontMapping.tr >> > Besides the comments, is there any documentation on this file? In > particular, what are type V and H entries, and what font is referenced > by -2? > > Thanks, > Shiva It's not documented because it's not intended for user consumption, although being able to edit it very rarely allows working around certain issues...

In this particular case we can parametrize the contour surfaces. Looking for the constant values surface, we obtain a simplification to ellipsoids. Exp[-2*(x^2 + y^2/r0^2)]*Exp[-2*(z^2/z0^2)] == c Simplify[%] % /. x^2 + y^2/r0^2 + z^2/z0^2 -> k2 Solve[%, k2][[2,1]] krule = % /. k2 -> k^2 Write the equation for the constant value ellipsoid in terms of contour value c. x^2 + y^2/r0^2 + z^2/z0^2 == k^2 % /. krule (Distribute[#1/(-Log[c]/2)] & ) /@ % Standard parametrization of an ellipsoid (from Alfred Gray, Modern Differential Geometry).... ellipsoid[a_, b_, c_...

Hi David, <snippage> Very nice! Begs the question as to why anyone would bother with ContourPlot3D .... Regards, Dave ...

----- Original Message ----- From: <carlos@colorado.edu> Subject: Re: my wish list for Mathematica next major version > I fully agree with the first item. Each year I normally teach > 3 engineering courses (2 graduate, 1 undergraduate) > that use Mathematica as one of the tools for problem > solving. Typical undergraduate enrollment: 80-100, > graduate: 35-50, so it is not a tiny sample. > > By far the 3 biggest complaints heard year after year: > > 1) Incomprehensible and untraceable error messages. In the default case Mathematica coll...

Hi David, I suppose because it is not always possible to simply parametrize the contour surfaces. David Park djmp@earthlink.net http://home.earthlink.net/~djmp/ From: David Annetts [mailto:davidannetts@aapt.net.au] Hi David, <snippage> Very nice! Begs the question as to why anyone would bother with ContourPlot3D .... Regards, Dave ...

Hi Pratik, I never get anywhere near academia, but it is clear from postings on MathGroup and many private communications I have had that things could be better with respect to technical computing in education. Specifically, it is not fair that students should be expected to learn technical material and Mathematica, or any other CAS, at the same time. Perhaps students who are in careers using mathematics should have a required one semester Freshman course in Mathematica or the CAS of their choice. They still wouldn't know everything but at least they wouldn't be stumbling o...

Two points. 1) Mathematica, or a comparable CAS, should suffice for all the basic educational technical computing requirements in universities. 2) Students who are not capable of handling university material and performing at university level should not be there. Elaboration. 1) In my view, Mathematica is not just another in a mix of computer languages (C++, Perl, Java, Mathematica, microassembler, AutoCAD, SolidWorks, Labview, etc). That list makes no more sense than (calculator operation, penmanship, mathematics, greek alphabet, typing, decimal operations). Mathematica is...

Resources last updated: 2/7/2016 6:02:44 PM