wolfram-mathematica

问题 I have data in the form { {x,y,z,f}...} I am using ListContourPlot3D but all I get is an empty box with dimensions -1 to 1 in each direction. Here is my code: ListContourPlot3D[data5, PlotRange -> All, AxesLabel -> {"[Beta]", "[Omega]", "Vo"}, Contours -> {1500}]. These are the first 5 points of my data:( the whole set has 55 points) {{200, 20000 10^(1/3), 2000, 1226}, {200, 20000 10^(1/3), 2600, 1422}, {200, 20000 10^(1/3), 3200, 1581}, {200, 20000 10^(1/3), 3800, 1761}, {200, 20000 10^(1/3)

问题 Could you please give me a hint how can I invoke a java project (written in eclipse) from Mathematica? I want to give values generated by my Mathematica program as input to a java project, and use the (outputs) results obtained from solving the problem by java, as input to my Mathematica code. I know there is a J/Link package for calling java from mathematica. But, i don't know how I can have this interaction between them. 回答1: Assuming your project is on the class path, you can pull in Java

问题 Does exist a Cellular Automata Rule that is RANDOM (like the rule 30) and has 3 colors? 回答1: This is rather a research problem - you have to run statistical tests on the Cellular Automata (CA) Rule you find to show that it is random. If you would like to do a research projects like this check out The Wolfram Science Summer School. For now let see what information and tools can get you started. First of all I would read Chapter 6: Starting from Randomness - Section 5: Randomness in Class 3

问题 Would it be possible to have a TogglerBar instead of the 2 Check Box to show or not the different Shapes. With Green & Red written in each Button of the TogglerBar ? Manipulate[ Graphics[{If[thePink, {Pink, Disk[{5, 5}, 3]}], If[theGreen, {Green, Disk[{15, 2}, 1]}]}, PlotRange -> {{0, 20}, {0, 10}}], {{thePink, True, Style["Pink", Black, Bold, 12]}, {True, False}}, {{theGreen, True, Style["Green", Black, Bold, 12]}, {True, False}}] The actual Manipulate object I am trying to adjust can be

问题 Please Consider : Subsets[Flatten[ParallelTable[{i, j}, {i, 1, 96}, {j, 1, 4}], 1], {4}] I need to select all the Sublist such that the the i value is never the same within each sublist of 4 {{3,1},{4,1},{5,1},{6,1}} should be accepted while {{1,1},{1,2},{2,3},{6,1}} should be rejected. The Value 1 for i being repeated 2 times. I know I could do this with Cases, but don`t understand the Syntax of it, and find the help on Cases rather empty compared to its potential applications. 回答1: Assuming

问题 Mathematica 7.0 seems to dislike having blanks in the denominator. Can anyone explain why this is? Input: ClearAll["Global`*"]; (*Without blanks:*) a^2 / b^2 /. a^2 / b^2 -> d (*with:*) a^2 / b^2 /. a^c_ / b^c_ -> d (*Without blanks:*) a^2 / b^2 /. (a / b)^2 -> d (*With:*) a^2 / b^2 /. (a / b)^c_ -> d (*Without blanks:*) a^2 / b^2 /. a^2 * b^(-2) -> d (*With:*) a^2 / b^2 /. a^c_ * b^(-c_) -> d Output: d a^2/b^2 d a^2/b^2 d a^2/b^2 I'm trying to work this for a more complicated problem. The

问题 Related A problem in Mathematica 8 with function declaration Clear["Global`*"] model = 4/Sqrt[3] - a1/(x + b1) - a2/(x + b2)^2 - a3/(x + b3)^4; fit = {a1 -> 0.27, a2 -> 0.335, a3 -> -0.347, b1 -> 4.29, b2 -> 0.435, b3 -> 0.712}; functionB1[x_] = model /. fit; functionB2[x_] := model /. fit; The evaluation difference between functionB1 and functionB2 can be revealed by Trace command in mma, as below: functionB1[Sqrt[0.2]] // Trace functionB2[Sqrt[0.2]] // Trace I have no question about

问题 Here's what I have... Select[roll, # <= 3 &] Now, the list that follows may have one 3 or two three's. I want it to stop at the first three from left to right. Mathematician trying to code. 回答1: Note : I removed my original posting, which was basically like that of belisarius. Here's another try... If you are sure that the number 3 is a member of roll then this should work: TakeWhile[roll, # != 3 &]~Append~3 This is equivalent to: Take[roll, LengthWhile[roll, # != 3 &] +1] If you cannot make

问题 I want to create a graph (Graph Theory) where certain edges have a different colour to other edges, which would be used to highlight a path in the graph from one vertex to another. Here are some examples which have different coloured edges http://demonstrations.wolfram.com/AGraphTheoryInterpretationOfTheSumOfTheFirstNIntegers/ and http://demonstrations.wolfram.com/Ramsey336/. I looked at source code for these but those solutions seem complicated. I need a simple example to work from. I reckon

问题 I have a somewhat similar question as: Mathematica running out of memory I am interested in something like this: ParallelTable[F[i], {i, 0, 14.9, 0.001}] where F[i] is a complicated numerical integral (I haven't yet found an easy way to reproduce the problem without page filling definitions for an integral). My problem is that the subkernels blow up in memory and I have to stop evaluation if I won't let the machine swapping. But even if I have stopped evaluation the kernels won't give free