comp.soft-sys.math.mathematica
https://groups.google.com/d/forum/comp.soft-sys.math.mathematica
Mathematica discussion group. (Moderated)encomplex conjugation by star
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/EPqUx3GE_ig/Ah3o4TxbVwIJ
I have defined the following useful star complex-conjugation (common star exponent notation) f_*:=f/.Complex[u_,v_]->Complex[u,-v] and it works fine. For example BesselJ[2,x+I y]* gives BesselJ[2,x-I y] etc...(x,y defined/undefined). Also it is listable on number lists {1+i2, 5+i6}* gives {1-ihttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/EPqUx3GE_ig
Brambilla Roberto Luigi (RSE)Fri, 18 Apr 2014 05:46:42 UTCThree masses and four springs
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/g68bbO2vg84/342EfmuGs0AJ
The instruction DSolve[{-2*x1[t] + x2[t] == x1''[t], -2*x2[t] + x1[t] == x2''[t], x1[0] == -1, x2[0] == 2, x1'[0] == 0, x2'[0] == 0}, {x1, x2}, t] produces a simple solution. But I am surprised to find the three-mass version produces a mass of complication. Have I made a mistake? DSolve[{-2*x1[t] +https://groups.google.com/d/topic/comp.soft-sys.math.mathematica/g68bbO2vg84
Robert JenkinsWed, 16 Apr 2014 07:40:31 UTCTracking progress in ParallelDo
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/wAgZQbOBukQ/I3Gs-cyySNsJ
I'm applying a function repeatedly using ParallelDo. I would like to keep track of its progress. I've tried using both my own counter variable as well as using the increments within the ParallelDo function (below). Neither provides a way of sequentially tracking how many of the iterations have beehttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/wAgZQbOBukQ
Brian BeckageMon, 14 Apr 2014 09:28:07 UTCSimple list question
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/yhYqY87L2jE/NLzQ2wMZWkEJ
pcin = 2; pcex = 3; (*pcin and pcex can have various small values *) coin = Table[{10 RandomReal[], 10 RandomReal[]}, {pcin}] coex = Table[{3 RandomReal[], 3 RandomReal[]}, {pcex}] cobo = Append[coin, coex] gives, typically, {{0.288346, 3.57763}, {1.7335, 8.69666}} {{0.179831, 1.35324}, {0.927https://groups.google.com/d/topic/comp.soft-sys.math.mathematica/yhYqY87L2jE
Ste[hen GrayMon, 14 Apr 2014 09:28:27 UTCRedudant code for style purposes?
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/VxNOUm33r_M/-mZcp0b0gPUJ
The Mathematica Cookbook has an example: array = RandomReal[{0, 10}, 20] Table[List @@ array[[i ;; i + 1]], {i, 1, 16}] I'm new to Mathematica, but to me, the "List @@" seems redundant. The statements give the same results if I remove it. Is there a reason for this, either functionally or for clhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/VxNOUm33r_M
andymh...@gmail.comSun, 13 Apr 2014 09:27:33 UTCRe: OnError [Thread"::"tdlen"]
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/V6_sRQIqk5o/bAbfh5mW8GkJ
"Check[expr, failexpr] evaluates expr, and returns the result, unless messages were generated, in which case it evaluates and returns failexpr. " Bob Hanlon On Fri, Apr 11, 2014 at 2:12 AM, EMartin <eMartin...@telefonica.net>wrote: > Hi, > > Many classic programming languages provide a commanhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/V6_sRQIqk5o
Bob HanlonSat, 12 Apr 2014 09:16:53 UTCList vs. array in Mathematica
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/JeVyrX4b2mo/80gsHlOcgOIJ
In mathematica, is an array simply a list of uniform depth? Both terms are used in the documentation, but I haven't run across an explicit explanation of why two terms are needed for the same construct. So I'm wondering if their relationship is.https://groups.google.com/d/topic/comp.soft-sys.math.mathematica/JeVyrX4b2mo
andymh...@gmail.comSat, 12 Apr 2014 09:15:11 UTCVariable section and hollow Tubes for economic 3D printing
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/UFnnRE1Lv6E/FSAabOTQ2ccJ
Although the tube is not fully filled, a constant thickness prescribed on a variable cross section works. This meets a good number of solid modeling requirements. TubeRadius = 0.2 ; TR[u_] = 0.2 + 0.15 Cos[u] ; a = 1; Plot[TR[t], {t, 0, 2 Pi}] tor = ParametricPlot3D[ {(a + TR[t] Cos[ph]) Cos[t], (https://groups.google.com/d/topic/comp.soft-sys.math.mathematica/UFnnRE1Lv6E
NarasimhamSat, 12 Apr 2014 09:15:52 UTCUsing FindRoot with free parameters
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/WJ2N2WsPbHM/6h1l6YH1N9oJ
Hi, I want to define a function of 2 parameters that uses FindRoot. I.e. I have a known but complicated function f[n_,x_] = "complicated function of (n,x)". I want to find the value of x where f[n,x] == alpha, and I want to call this a function xf[alpha_,n_]. So my attempts (this is non-working codhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/WJ2N2WsPbHM
steviep2Sat, 12 Apr 2014 09:16:12 UTCSequenceForm for graphics
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/N_4olqxHQx0/X0Y9jUI6bcAJ
Can SequenceForm be used to concatenate graphic objects? Thanks.https://groups.google.com/d/topic/comp.soft-sys.math.mathematica/N_4olqxHQx0
carlos.felipp...@gtempaccount.comSat, 12 Apr 2014 09:17:54 UTCRe: checking the sign of all terms in a long expression
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/rbBQsGSOeXY/Gd8Fx2c5t50J
Thanks everyone for the quick responses! It turns out that some of the terms are multiplied by negative numbers other than -1. This solution worked well: toCheckv2 = a + a b + a b c + a c - 2 b + bc + d - e f; Cases[toCheckv2 // ExpandAll, Times[_?Negative, __]] {-2 b, -e f} cheers dan On Aprhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/rbBQsGSOeXY
dantimatterSat, 12 Apr 2014 09:17:34 UTCOnError [Thread"::"tdlen"]
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/5gz0j12_2kU/Vn1rOkstPJwJ
Hi, Many classic programming languages provide a command to interrupt computations when some exception arises, allowing to perform any action on the exception as in something as, for example: OnError [] do (action)] [routine] (*This could be the general pattern*) OnError [] do (Print[Stack]; Abhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/5gz0j12_2kU
EMartinFri, 11 Apr 2014 06:12:19 UTCweird numbers
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/qVPFykTWpKM/qCaWJpJ6kKEJ
Hello to all. I found the following problem in a book about Mathematica. "A weird number is a number such that the sum of the proper divisors (divisors including 1 but not itself) of the number is greater than the number, but no subset of these divisors sums to to number itself. Find all the weirdhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/qVPFykTWpKM
dima...@gmail.comFri, 11 Apr 2014 06:11:59 UTCVariable section and hollow Tubes for economic 3D printing
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/f3K8qXLu55k/ql4XqUrdJmIJ
TubeRadius = 0.2 ; X[u_] = {Cos[u] , Sin[u], 0 }; CentrCirc = ParametricPlot3D[X[u], {u, 0, 2 Pi}, PlotStyle -> {Red, Thick}]; Solid = ParametricPlot3D[ X[t], {t, 0, Pi},PlotStyle -> Tube[TubeRadius], PlotRange -> All]; Show[{CentrCirc, Solid}, PlotRange -> All] " The above is a solid torus by inclhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/f3K8qXLu55k
NarasimhamFri, 11 Apr 2014 06:10:58 UTCchecking the sign of all terms in a long expression
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/ImrDyoUVI-I/e5Ca3xUh5WEJ
hello all is there to check the signs of all terms in a symbolic expression, like toCheck = a + a b + a b c + a c - b + bc + d .... in this case, with the assumption that the a, b, c etc are all positive, only one term is negative (b by itself) and the rest are positive. I have expressions like thttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/ImrDyoUVI-I
dantimatterFri, 11 Apr 2014 06:10:17 UTCVariables in ProbabilityDistribution have strange "scoping" mechanism
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/5CFKnjC1sys/MZBq710z85kJ
Bill Rowe brings up an interesting point. Does anyone know why the variables in ProbabilityDistribution use such an unusual form of scoping (forgive me if this is not the correct term). Why doesn't it operate analogously to Sum? Consider these four cases: Table[Sum[f[x], {x, 0, 3}], {y, 0, 3}] Tablhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/5CFKnjC1sys
CHARLES GILLINGHAMFri, 11 Apr 2014 06:08:54 UTCControlling breaking of lines in output of Write
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/aSDNA31YYTg/YioUP-UtJusJ
Dear all, When I use Write["file", expression], I find that if the expression is sufficiently long the output in "file" is broken into two or more lines. Usually this happens for expressions longer than 79 characters. Is it possible to change 79 to some other value, or control how the lines are brohttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/aSDNA31YYTg
derivatorThu, 10 Apr 2014 07:10:14 UTCRunge-Kutta 2
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/2FGLC7Qt-MM/P3lg_DfcmW4J
After spending some time using the Mathematica documentation I implemented the Runge-Kutta-2 routines below. I am hoping someone can validate what I did and tell me that it is correct (especially the Butcher Tableau I used) and the step size h=0.1. ClassicalRungeKuttaCoefficients[4, prec_] := Withhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/2FGLC7Qt-MM
amzotiThu, 10 Apr 2014 07:09:33 UTCHelp!
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/GpOXelNme7Y/wKckt8BAahAJ
Could anybody teach me how to shade the region surrounded by the curve plotted by the code below? The curve is determined by the intersection of two 3D curves, x^3 + x a + b == 0, and a + 3 x^2==0. Thanks a lot! Jun Mathematica cade: ContourPlot3D[ x^3 + x a + b == 0, {x, -3.2, 3.2}, {a, -3.2,https://groups.google.com/d/topic/comp.soft-sys.math.mathematica/GpOXelNme7Y
林隽Thu, 10 Apr 2014 07:08:12 UTCSolid Modeling package
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/mt58Ve_EBro/Y53vstkyITQJ
Hello Mathematica Users, I have just finished a package "SolidModeling.m" on _Solid Modeling_ (using Mathematica V8) together with two explanatory articles TMJ_SolidModeling_Px.ext (where *x*=1,2 and the extension is either *nb* or *pdf*) which can be downloaded from my Mathematica whttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/mt58Ve_EBro
Dr. Robert KraglerWed, 09 Apr 2014 08:14:05 UTCBug with ProbabilityDistribution
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/O4Pmf8IWgV0/acamaxnQHxoJ
Evaluate this: ProbabilityDistribution[ Piecewise[{{0, x1 == 1 && x2 == 1}, {1/2, x1 == 1 && x2 == 0}, {0, x1 == 0 && x2 == 1}, {1/2, x1 == 0 && x2 == 0}}], {x1, 0, 1, 1}, {x2, 0, 1, 1} ] PDF[%][{1, 1}] And you get: Undefined But the probability is obviously 0 Is there something I am misundersthttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/O4Pmf8IWgV0
CHARLES GILLINGHAMWed, 09 Apr 2014 08:15:06 UTCVery simple question
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/XvtI-bV5BU4/9exEV2e9_wEJ
I've been away from Mathematica for about 7 years. Can anyone tell me why function fx gives an error message but fy does not? They look functionally the same to me. Please send me an email about this. fx[ptl_] := Module[{x1, y1, x2, y2, x3, y3}, Print[pt1]; x1 = pt1[[1, 1]]; y1 = pt1[[1, 2]]; x2 =https://groups.google.com/d/topic/comp.soft-sys.math.mathematica/XvtI-bV5BU4
Ste[hen GrayWed, 09 Apr 2014 08:14:45 UTCHow to extract the numerical value of a dynamical variable?
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/Ni1Isp6IXUo/MbuCcOUC1R0J
Hello Could you please help me with following? How can I get a real number (and not an expression) from a dynamic variable in "manipulate"? (my aim is to use that value in another function as "NonlinearModelFit" Have a look at this example: Lini = 1.95; SumStart = 2750.; SumStop = 3100.; {Manipulhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/Ni1Isp6IXUo
Christian MarliereWed, 09 Apr 2014 08:14:25 UTCquestion
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/i2DBRTibsZc/SzW9iTY1xs8J
I am so sick of Mathematica. It no longer seems to be a package to do applied work, but more for the university types. I have spent several hours using several combinations of ?NumberQ in the following code, but still I get an error. Last weekend I spend several hours using FunctionExpand to gehttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/i2DBRTibsZc
Hagwood, Charles RSat, 05 Apr 2014 05:49:01 UTCvariable tube radius and variable surface thickness
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/cXILwnhwbWQ/zUECFaQlnrsJ
How is changing radius toroid implemented? How is changing thickness of surface implemented? Thanks in advance for reply. Regards Narasimham TR[t_] = .2 + .15 Cos[ t] Plot[TR[t], {t, 0, 2 Pi}] g1 = ParametricPlot3D [{Cos[t], Sin[t], 0}, {t,Pi,2 Pi}, PlotRange -> All, PlotStyle -> Tube[TR[t]]] Thttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/cXILwnhwbWQ
NarasimhamSat, 05 Apr 2014 05:49:22 UTCCopying Text From CDFs
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/34hmfi63tDI/zcE64I9r-PkJ
Hi everyone, When I create CDFs for my students, I usually include some small tables with data and various bits of information. These tables are always built using Grid, and they appear in output cells or a Manipulate. The trouble is, the text in the tables cannot be copied and then pasted into a whttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/34hmfi63tDI
GregorySat, 05 Apr 2014 05:48:41 UTCRe: Efficient function to accumulate a list of
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/IFGCW56wHew/IDSRYCQoLDoJ
In[1]:= particles = { {3.6, 7,4}, {3.4, 8,6}, {2.1, 7,4} }; arr = SparseArray[Rest@#[[1]] -> Tr@#[[All,1]] & /@ Last@Reap@Scan[Sow[#,{Rest@#}]&,particles], {10,10}] Out[2]= SparseArray[< 2 >,{10,10}] In[3]:= Normal[arr] Out[3]= {{0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0,0,0},https://groups.google.com/d/topic/comp.soft-sys.math.mathematica/IFGCW56wHew
Ray KoopmanFri, 04 Apr 2014 07:57:08 UTCParallelization sometimes a plus, sometimes not
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/o2yxeZDQUqw/afdyGLOmNiUJ
I noticed recently that some of my calculations using ParallelMap are much slower than the same calculation with Map. The call is in the form fits = ParallelMap[f[a,#,b,c]&,argumentList] It takes a factor of 4 or 5 more time to run this using ParallelMap on my 8-core machine than using Map. I hadhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/o2yxeZDQUqw
John VillarrubiaFri, 04 Apr 2014 07:56:27 UTCEfficient function to accumulate a list of {value,coord} into array
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/Nk8e5d2m2nE/O0Ygmab4UYsJ
Dear all, I am struggling with how to convert a list of (value, coords) tuples into an array such that the an element in the array should represent the sum of all value elements in that list with matching coords, and zero if no matches, e.g. { {3.6, 7,4}, {3,4, 8,6}, {2.1, 7,4} } if it were a 10Xhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/Nk8e5d2m2nE
julian.w...@gmail.comThu, 03 Apr 2014 06:17:20 UTCNesting Manipulate to Create a Variable Number of Controls
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/8uD50_94ILI/sEkPoY0SBfEJ
Hello everyone, I used the example in the Documentation Center to create a Manipulate with a variable number of controls. Here is the example: Manipulate[ With[{value = Table[c[i], {i, 1, n}], controls = Sequence @@ Table[{c[i], 0, 1}, {i, 1, n}]}, Manipulate[value, controls]], {n, 1, 10, 1}] Howhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/8uD50_94ILI
GregoryThu, 03 Apr 2014 06:17:00 UTCSolve output depends on previous attempt with bad syntax
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/JQN64X3mHoM/pXkga7VErpoJ
First, the correct solution of a linear system of 2 equations with 2 unknowns, for reference. Mathematica 9.0 for Linux x86 (64-bit) Copyright 1988-2013 Wolfram Research, Inc. In[1]:= Solve[{y1==a x1 +b, y2==a x2 +b},{a,b}] -y1 + y2 x2 y1 - x1 y2 Out[1]= {{a -> -(--------), b -> -(------https://groups.google.com/d/topic/comp.soft-sys.math.mathematica/JQN64X3mHoM
Alain CochardThu, 03 Apr 2014 06:15:59 UTCMathematica nb file => TeX file ?
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/hXeQ_9_m8x8/gyqF_5JrebwJ
Hallo MathGroup readers, all the nice features of Mathematica which allows to save even sophisticated nb files in formats such as CDF and pdf are (unfortunately) irrelevant when it comes to the point of preparing some documents for conference proceedings. For example, Springer Verlag always requirehttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/hXeQ_9_m8x8
Dr. Robert KraglerWed, 02 Apr 2014 06:36:34 UTCHeaderInformation[] function is gone
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/daucCs44Cgw/VOKrBjahVj8J
Hi, As far as I remember, until version 6, the function HeaderInformation[=93Contextname`packagename`=94] Returned the package-header information as, :Context: , :Title:, :Author:, :Package Version:, :Mathematica Version:, :Copyright: , :History: , :Summary: , :Keywords:, :Contents:, :Discussion:https://groups.google.com/d/topic/comp.soft-sys.math.mathematica/daucCs44Cgw
E. Martin-SerranoTue, 01 Apr 2014 07:04:01 UTCProfile solver
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/B_3UIIXLsAY/0CLOFVWORmIJ
Is there a profile linear equation solver (sometimes called variable-band or skyline solver) available in some package? Thanks.https://groups.google.com/d/topic/comp.soft-sys.math.mathematica/B_3UIIXLsAY
carlos.felipp...@gtempaccount.comTue, 01 Apr 2014 07:03:41 UTCExporting wav file in Integer16 format (without normalization )?
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/HVHvEgwOogI/zzZj-MNmZZkJ
I want to specify amplitudes an audio file's native format, so for example 16-bit wav files use Integer16 amplitudes (-2^16 , 2^16-1). I'd like to use functions like In[1]:= soundData= Table[Floor[2^16 Sin[2*Pi (f/44100) t ]], {t,0,441000}] to specify exact (Integer16) amplitudes to be wrihttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/HVHvEgwOogI
BrenttSat, 29 Mar 2014 06:15:35 UTCNotebook to find critical points, Jacobian, Evaluation
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/oBSMB1UrQes/LoehUSE-OUsJ
Hi, does anyone know of a notebook where you enter an n-dimensional system of DEQs and it in turn finds the critical points, Jacobian, eigenvalues/eigenvectors for each of those critical points, Stream Plot (@D or 3D) and matrix exponential E^(At) with individual solution curves? This would be forhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/oBSMB1UrQes
amzotiSat, 29 Mar 2014 06:15:56 UTCstandard floating point arithmetic in Mathematica?
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/b_JoR1X7Z-s/O1Of7zj3nZIJ
I would like to illustrate some limitations with floating point calculations. Can I force Mathematica to do floating point computations at a standard float size and the display the full results (as the same size float)? E.g., if I enter 0.1+0.2 I would like to see 0.30000000000000004 Thanks, Alanhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/b_JoR1X7Z-s
AlanThu, 27 Mar 2014 09:00:45 UTCbug in InputForm (Mathematica 9)?
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/zMhzEHiVrbg/-dYmt0u86RcJ
Put the following into a notebook cell: InputForm[1] InputForm[2] "test" Evaluate the cell. Only one of the InputForm commands produces output, and that output comes after "test". I am guessing these behaviors are not intended ... Alan Isaachttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/zMhzEHiVrbg
AlanThu, 27 Mar 2014 09:00:25 UTCCombinatorica versus new graphs in V8
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/r4-JI5GK3Ts/JZM2_7fQg1IJ
Hi, I am unable to see how to implement multi edge graphs for pairs of vertices in V8. With the =91Combinatorica=92 package this was easy to do as in << Combinatorica` g = Combinatorica`Graph[{{{1, 2}}, {{2, 3}}, {{2, 3}}, {{2, 3}} , {{2, 3}}}, {{{0, 0}}, {{1, 1}}, {{2, 0}}}] ShowGraph[g] Herhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/r4-JI5GK3Ts
E. Martin-SerranoWed, 26 Mar 2014 07:23:28 UTCRe: Exact Solution to the double well potential problem in
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/rvC2Yu8vSDs/wvgMD4HYRd0J
Hint: Always deal with non-dimensional quantities. Next, multiply quantities by 10^10 to be comparable to unity.The relations (k/l) = +/- Sqrt[e /(V -e)] = Tan[10 b k] Tanh [b l/2] may be useful. Narasimhamhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/rvC2Yu8vSDs
NarasimhamWed, 26 Mar 2014 07:23:08 UTCThick surface cordinates along surface normal.
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/lUbE0lcvnEw/aSVAukedgKoJ
The following shows an example of a surface made of point coordinates at half thickness distance on each side of surface along normal.How to get a table of these coordinates on which it is based for any surface? ParametricPlot3D[{u Cos[v], v, u Sin[v]}, {u, -1, 1}, {v, 0,1.5 Pi}, PlotStyle -> Thichttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/lUbE0lcvnEw
NarasimhamWed, 26 Mar 2014 07:22:48 UTCRe: Mapping tag-value lists to a third
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/mAJjPgoYsek/H5PC48Bf_3oJ
On 3/22/14 at 12:06 AM, koo...@sfu.ca (Ray Koopman) wrote: >For v5+ users, >val[[ SparseArray[tag] /. SparseArray[_,_,_,d_] :> Flatten@d[[2,2]] >]] >may be faster than Pick[val,tag,1]. For what it is worth In[1]:= n = 10^7; val = RandomReal[1, n]; tag = RandomInteger[1, n]; In[4]:= Timing[c =https://groups.google.com/d/topic/comp.soft-sys.math.mathematica/mAJjPgoYsek
Bill RoweSun, 23 Mar 2014 09:00:57 UTCProblems with Solve
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/BKMrEj2tkow/XLp67Rsj4ncJ
Hello everyone, I'm trying to use the solutions of Solve from solving a cubic equation - however, it keeps returning complex answers when there are real solutions. For example: Solve[z + 5 (z^2 - 1) + 1 z^3 == 1, z] This equation has 3 real solutions. However, the answers returned when I ask mathehttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/BKMrEj2tkow
Samuel Mark YoungSat, 22 Mar 2014 04:09:00 UTCEventHandler in Graphics
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/Anlg6hHLthc/okDFgtTMF8cJ
Dear MathGroup, I would like to design a custom slider as a Graphics element. I would like it to be a Graphics element with everything specified in Graphics coordinates so I can precisely place the elements. (I don't want to use Inset that has unspecified fillings and whose size cannot be given inhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/Anlg6hHLthc
djmparkThu, 20 Mar 2014 09:28:26 UTCMapping tag-value lists to a third
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/qO0ypAt1M_Q/KWX2K0jkvKMJ
Hi, I have 2 lists of equal length such as tag={0, 1, 0, 0, 0, 1, 0, 1}; val={f1,f2,f3,f4,f5,f6,f7,f8} and want to produce a third: tagval={f2,f6,f8} with length Count[tag,1] containing the entries of val marked by 1-tags. Should be something efficient, since the source lists may be large (10^https://groups.google.com/d/topic/comp.soft-sys.math.mathematica/qO0ypAt1M_Q
carlos.felipp...@gtempaccount.comMon, 17 Mar 2014 06:27:51 UTCExact Solution to the double well potential problem in mathematica
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/4M7TzR_HQKA/XmJNPa3zvj4J
A little background. This is a Schrodinger equation problem to find the energy stages e in the double well where there is a step potential inside a infinite rectangular well. After solving the boundary conditions analytically, I tried to solve the following program in mathematica hbar := 1.05*10^-3https://groups.google.com/d/topic/comp.soft-sys.math.mathematica/4M7TzR_HQKA
Ragavendran NagarajanSat, 15 Mar 2014 07:54:32 UTCHelp with a function for plotting zeros and poles
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/tAHhmZxCIsc/fSzctktytVsJ
Hello Sometime ago I found a couple of functions that are used for plotting the poles and zeros of a transfer function. Here they are: xyPoints[values_]:=Module[{xy},xy=Flatten[Replace[values,{Complex[x_,y_]:>{x,y},x_?NumericQ:>{x,0}},{3}],1];Cases[xy,{_?NumericQ,_?NumericQ},{2}] ]; zeroPole[tf_https://groups.google.com/d/topic/comp.soft-sys.math.mathematica/tAHhmZxCIsc
Eduardo M. A. M. MendesSat, 15 Mar 2014 07:52:42 UTCNIntegrate and double integral -- very slow
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/S0g2aOx--SE/nlzaTcVZ6yIJ
Dear all I am trying to model something. This involves oscillating function (BesselJ0, BesselJ1) over that I have to integrate. An example is shown below. Mathematica is not able to manage to calculate the last three lines, not even overnight (12-14h). I don't think there is a simple analytical soluhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/S0g2aOx--SE
bluesaturnSat, 15 Mar 2014 07:52:22 UTCMathematica software engineer sought - USCD - Systems biology
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/-cIgHpsPnYg/ssUaV58PvYoJ
Dear colleagues, In lack of a proper place for Mathematica related job announcements [1], I would like to bring to your attention that the systems biology research group [2] at University of California, San Diego is looking for a skilled Mathematica developer to drive the development of a systems bhttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/-cIgHpsPnYg
Nikolaus SonnenscheinThu, 13 Mar 2014 07:29:16 UTCMathWorld Utility Packages
https://groups.google.com/d/msg/comp.soft-sys.math.mathematica/MNB-RCtPYCs/D6o3g0w1ogYJ
I'm having some trouble finding Eric Weisstein's Mathworld Utility Packages. The links (such as http://library.wolfram.com/infocenter/MathSource/4775) mentioned in earlier posts to this group seem to be broken now, and I'm not having any luck with the new search system. Any help would be much apprechttps://groups.google.com/d/topic/comp.soft-sys.math.mathematica/MNB-RCtPYCs
Tims GardnerTue, 11 Mar 2014 07:35:21 UTC