Mathematica

Expanding Integrals with constants and 'unknown' functions
I have an integral involving constants and an 'unknown' function. I would like to expand it out to solve for the constants and keep the integrals of the unknown function as expected. i.e. Integrate[a + z + s[z], {z, clow, chigh}] I want to get out: (a*chigh + chigh^2/2 - a*clow - clow^2/2) + Integrate[s[z], {z... 1 Jun 2010 05:24

Dynamic not displaying the current value
Rarely, Dynamic does not display the current value. This is the simplest example I know: n=0; Dynamic[n] Do[Pause[0.2],{n,1,5}] Recently, I found another example. It has to do a lot with DynamicModule and the option InheritScope, and I highly appreciate the contributions of John Fultz in this group. Witho... 1 Jun 2010 05:24

Styling single bar in BarChart
I must be missing something trivial but I don't seem to be able to find a way to highlight a single value from a list in a BarChart. mbar = BarChart[{populations, populations[[19]]}, Axes -> None, ChartStyle -> {White, Black}, BarSpacing -> Large]; The above generates a bar chart of the population series with ... 31 May 2010 00:05

Basic normal and t table questions
I am taking an intro to stats class and am trying to learn some Mathematica functions related to basic statistics. I would like to use Mathematica to calculate exact values and inverse values from the standard normal table and Student's t distribution table. For example, the following returns the cdf equvialent ... 1 Jun 2010 05:24

loop for with plot
Dear Mathgroup, when I am using the loop for with plot is not working. here is the example R1=1.029 R2=3 R3=6 e1=27 e2=0 e3=2.5 For[e3=0,e3<4,e3++,Plot[{2*R3*Sin[ArcCos[x/R3]]*e3}, {x, -2R3,2 R3}]] How can I sort out the problem? Best regards Maria ... 1 Jun 2010 05:24

Mathematica help (plotting solutions of transendental
Dear Dave, here goes my solution. func[c_?NumericQ,m_?NumericQ,n_?NumericQ]:=FindRoot[{a-b==2*Pi*(m-n)+ArcTan[(a-b)/c],a+b==2*Pi*(m+n)},{{a,2 I+1},{b,-2 I+1}}] Needs["PlotLegends`"]; Clear[m,n]; Error={a-b==2*Pi*(m-n)+ArcTan[(a-b)/c],a+b==2*Pi*(m+n)}/.a_==b_-> a-b; (* Lets vary the c from 5 to 100 with a dis... 30 May 2010 06:48

Connecting to a remote MySQL database via SSL
The only instructions provided as part of the Mathematica documentation to explain how to securely connect to a MySQL database hosted remotely via SSL are a long list of (platform-specific) tweaks: http://reference.wolfram.com/mathematica/DatabaseLink/tutorial/SecureSocketLayer.html Is there no simple way to co... 31 May 2010 00:05

Graphics questions
Hello: Each of these display sequences works fine: Graphics3D[ Table[Cylinder[{circls[[dx,1]],circls[[dx,1]]+.01*circls[[dx,3]]}, circls[[dx,2]]],{dx,1,Length[circls]}]] and ListPointPlot3D[coords,PlotStyle->{PointSize[.025],RGBColor[1,0,0]}, AxesLabel->{X,Y,Z},AspectRatio->1, LabelStyle->Directive[... 30 May 2010 06:48

Mathematica help (plotting solutions of transendental equation from
I'm having trouble getting Mathematica to plot what I would like from a system of equations. I have the function f[c_?NumericQ, m_?NumericQ, n_?NumericQ] := FindRoot[{a - b == 2*Pi*(m - n) + ArcTan[(a - b)/c], a + b == 2*Pi*(m + n)}, {{a, 2 I + 1}, {b, -2 I + 1}}] Which evaluates to something like {a -> 13... 30 May 2010 07:52

Integrate and GenerateConditions (bug?)
How is this reasonable (even if GenerateConditions is turned off)? [Mathematica 6.0.0] In[1]:= Integrate[1/y, {y, 0, Infinity}, GenerateConditions -> False] Out[1]= 0 Igor ... 29 May 2010 04:56