Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

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?