[Date Index]
[Thread Index]
[Author Index]
Re: 3D plot with one logarithmic axes
*To*: mathgroup at smc.vnet.net
*Subject*: [mg77689] Re: 3D plot with one logarithmic axes
*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
*Date*: Fri, 15 Jun 2007 04:27:06 -0400 (EDT)
*References*: <200706080938.FAA03696@smc.vnet.net> <200706090943.FAA17991@smc.vnet.net> <acbec1a40706090337i64852d8cja3b1b942c7b29fec@mail.gmail.com> <06D466A7-0D44-40DB-ACB5-F488E9D2B08B@mimuw.edu.pl> <acbec1a40706090412u7c2da126nf291c7d4628d7c4a@mail.gmail.com> <14694989.1181527374589.JavaMail.root@m35> <200706110827.EAA21339@smc.vnet.net> <3306125.1181629909918.JavaMail.root@m35> <op.ttswj8btqu6oor@monster.ma.dl.cox.net> <31952022.1181659012658.JavaMail.root@m35> <200706131134.HAA06941@smc.vnet.net> <f4r0uj$620$1@smc.vnet.net>
Hi,
a)
Plot3D[0.075 +
0.916*(1/
Exp[-Exp[-0.075 2]])*0.01 let Exp[-0.01 let] + (1 - (1/
Exp[-Exp[-0.075 2]])*0.01 let Exp[-0.01 let])*1/(0.05 t +
1) /. let -> Exp[let], {t, 0, 100}, {let, 1, 2.698}]
should do the Log[] Scale of the let axis.
What means "add points" ??
Do you want more PlotPoints ??
Transparency is only possible with Mathematica 6.0
and
Plot3D[0.075 +
0.916*(1/
Exp[-Exp[-0.075 2]])*0.01 let Exp[-0.01 let] + (1 - (1/
Exp[-Exp[-0.075 2]])*0.01 let Exp[-0.01 let])*1/(0.05 t +
1) /. let -> Exp[let], {t, 0, 100}, {let, 1, 2.698},
ColorFunction -> (Hue[#3, 1, 1, 0.5] &)]
would do that ...
Regards
Jens
Carabe - Fernandez, Alejandro wrote:
> Hello, I am sure this has been asked before but I was wondering if you could help me with ploting the following function in 3D:
>
> Plot3D[0.075+0.916*(1/Exp[-Exp[-0.075 2]])*0.01 let Exp[-0.01 let]+(1-(1/Exp[-Exp[-0.075 2]])*0.01 let Exp[-0.01 let])*1/(0.05 t+1),{t,0,100},{let,1,500}]
>
> where I want to plot it so the LET axes appears in logarihtmic scale.
>
> Also, I'd like to add data points to this plot. How could I do that?
> Do I have to merge a normal Plot3D with a ListPlot3D? Could I get the
> Plot3D transparent so the points under the surface can also be seem?
>
> Thank you for your kind help
>
> Alex
>
>
>
>
> ________________________________
>
> From: DrMajorBob [mailto:drmajorbob at bigfoot.com]
> Sent: Wed 13/06/2007 12:34
> Subject: Bare Bones Backup Button
>
>
>
> That works, but it maks no sense for two reasons:
>
> 1) Documentation says Saveable->True is the default, and
>
> 2) judging from its behavior, the option should be
> "SaveableWithoutMovingItFirst->True".
>
> Bobby
>
> On Tue, 12 Jun 2007 08:55:48 -0500, Selwyn Hollis <sh2.7183 at earthlink.net>
> wrote:
>
>> Bobby,
>>
>> Thanks again for the Windows repairs. On the saveability issue, wrap
>> SetOptions around it with the option Saveable->True.
>>
>> -Selwyn
>>
>>
>> On Jun 12, 2007, at 4:58 AM, DrMajorBob wrote:
>>
>>> That doesn't work in Windows ($HomeDirectory is read-only, among other
>>> things), but this does:
>>>
>>> CreatePalette[{Button["Bare Bones Backup",
>>> Module[{filename, thisnb = InputNotebook[]},
>>> If[thisnb =!= $Failed,
>>> CreateDirectory[
>>> ToFileName[{$UserBaseDirectory, "MathBackups"}]];
>>> filename =
>>> StringJoin[
>>> StringReplace[(WindowTitle /. AbsoluteOptions[thisnb]),
>>> s_ ~~ ".nb" -> s], "_",
>>> StringJoin[ToString /@ Round /@ Rest[Date[]]], ".nb"];
>>> Export[
>>> ToFileName[{$UserBaseDirectory, "MathBackups"}, filename],
>>> DeleteCases[NotebookGet[thisnb], Cell[_, "Output", ___],
>>> Infinity]]]]]}];
>>>
>>> Execute the code, and it creates the palette. Now... and this is
>>> dumb... grab the palette and move it. Then close it, and Mathematica
>
>>> asks if you want to save the palette.
>>>
>>> If you DON'T move it, there's no way (I can find) to save the palette.
>>> Using Selwyn's CreateDocument version, even moving the palette doesn't
>>> work.
>>>
>>> I discovered the needed changes by trial and error; the documentation
>>> was no help at all. There are dozens of palette and notebook creation
>>> examples, but none of them (that I could find) show how to save the
>>> result.
>>>
>>> Bobby
>>>
>>> On Tue, 12 Jun 2007 00:23:53 -0500, Selwyn Hollis =
>
>>> <sh2.7183 at earthlink.net> wrote:
>>>
>>>> This is something I've wanted for years. Click the button, and a copy
>>>> of the current InputNotebook -- with output cells deleted -- is
>>>> Exported into a backup folder in your $HomeDirectory.
>>>>
>>>> CreateDocument[PaletteNotebook[
>>>> Button["Bare Bones Backup",
>>>> Module[{filename, thisnb = InputNotebook[]},
>>>> If[thisnb =!= $Failed,
>>>> CreateDirectory[ToFileName[{$HomeDirectory, "MathBackups"}]];
>>>> filename = StringJoin[
>>>> StringReplace[(WindowTitle /. AbsoluteOptions[thisnb]),
>>>> s_ ~~ ".nb" -> s], "_",
>>>> StringJoin[ToString /@ Round /@ Rest[Date[]]], ".nb"];
>>>> Export[ToFileName[{$HomeDirectory, "MathBackups"}, filename],
>>>> DeleteCases[NotebookGet[thisnb], Cell[_, "Output", ___],
>>>> Infinity]]
>>>> ] ] ] ] ]
>>>>
>>>> (Button is new to 6, but the function inside Button should work fine
>>>> in 5.2.)
>>>>
>>>> I've got a version of this that runs automatically every 15 minutes
>>>> (you can change the interval, of course). Anyone who's interested
>>>> should let me know.
>>>>
>>>> Selwyn Hollis
>>>>
>>>>
>>>
>>>
>>> --DrMajorBob at bigfoot.com
>>
>
>
>
Prev by Date:
**Re: Re: Fast interactive graphics**
Next by Date:
**Hyperlinks**
Previous by thread:
**Re: 3D plot with one logarithmic axes**
Next by thread:
**Re: v6: still no multiple undo?**
| |