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

3D plot with one logarithmic axes

  • To: mathgroup at smc.vnet.net
  • Subject: [mg77611] 3D plot with one logarithmic axes
  • From: "Carabe - Fernandez, Alejandro" <a.carabe at imperial.ac.uk>
  • Date: Thu, 14 Jun 2007 05:12:32 -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>

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
To: mathgroup at smc.vnet.net
Subject: [mg77611] [mg77581] Re: [mg77536] 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
>
>



-- 
DrMajorBob at bigfoot.com




  • Prev by Date: Re: Re: What is the compatibility guide?
  • Next by Date: :: notation
  • Previous by thread: Re: Bare Bones Backup Button
  • Next by thread: Re: 3D plot with one logarithmic axes