Matthias.Bode's articles:

Items(47) /5 Next >> Last >|

Re: more than 1 function with Plot3D 2 27 (9/15/2004 6:03:37 AM) comp.soft-sys.math.mathematica Hi Ron, are your equations correct? 60 = 2*x2 + x2 => x2=20 hence: 20 = 2*x1 + 20 => x1=0 ??? Best regards, Matthias Bode Sal. Oppenheim jr. & Cie. KGaA Untermainanlage 1 D-60329 Frankfurt am ... Matthias

Re: message 50001? #2 0 29 (8/12/2004 9:53:56 AM) comp.soft-sys.math.mathematica Hello Rob, try: yourlst01 = {1, 2, 1, 6, 3, 2, 2, 6,1}; Count[lst01, Max[lst01]] Out: 2 Best regards, Matthias Bode Sal. Oppenheim jr. & Cie. KGaA Untermainanlage 1 D-60329 Frankfurt am Main G... Matthias

AW: Fundamental theorem problem 0 28 (7/24/2004 7:53:44 AM) comp.soft-sys.math.mathematica Hello Steven, FullSimplify[D[Integrate[Sec[t], {t, 1, x^4}], x]] yields: 4*x^3*Sec[x^4] Satisfied? Best regards, Matthias Bode Sal. Oppenheim jr. & Cie. KGaA Untermainanlage 1 D-60329 F... Matthias

Re: LogScale ListPlot 0 22 (7/23/2004 10:11:59 AM) comp.soft-sys.math.mathematica Hello, use the package: << Graphics`Graphics` and use: LogLogListPlot[] Best regards, Matthias Bode Sal. Oppenheim jr. & Cie. KGaA Untermainanlage 1 D-60329 Frankfurt am Main GERMANY Tel.: ... Matthias

AW: Plotting a function and its derivative 0 36 (7/22/2004 7:16:07 AM) comp.soft-sys.math.mathematica Hello Adrian, this might get you started: f[x_] = x^2 d[x_] = D[f[x], x] Plot[{f[x], d[x]}, {x, -3, 3}] Best regards, Matthias Bode Sal. Oppenheim jr. & Cie. KGaA Untermainanlage 1 D-60329 Frankf... Matthias

AW: Plotting a contour plot with cylindrical co-ordinates 0 44 (7/22/2004 6:52:28 AM) comp.soft-sys.math.mathematica Hi Lucky, perhaps the package <<Graphics` with PolarPlot[r, {t, tmin, tmax}], "generates a polar plot of the radius r as a function of angle t." may help you. Best regards, Matthias Bode S... Matthias

AW: 7 equations and 7 unknowns (non-linear equations) 0 32 (7/21/2004 10:58:06 AM) comp.soft-sys.math.mathematica Hello Arthur, there are several paths, each of them specific: 1. Solve[] for analytically solvable systems of equations. 2. FindRoot[] for systems of equations that have to be solved numerically. Wi... Matthias

AW: 3D graphs with constraints 0 18 (7/21/2004 10:57:06 AM) comp.soft-sys.math.mathematica Hello Mario, try this example please: a = 3 b = 5 v = 7 llimit = v/(Pi*b^2) Plot3D[Sin[l*r], {r, a, b}, {l, 0, llimit}] As r cannot exceed b you can replace r^2 by b^2 in llimit. Adjust the ... Matthias

AW: Diophantic Equations with Constraints 0 17 (7/21/2004 10:52:03 AM) comp.soft-sys.math.mathematica Hello Michael, please load the package << Algebra`InequalitySolve` and try: InequalitySolve[ 3*x + 2*y - z == 14 && 3 <= x <= 8 && 0 <= y <= 12 && 1 <= z <= 9, {x, y, z}] Best regard... Matthias

AW: Assigning names to columns of a matrix 0 22 (7/21/2004 10:51:02 AM) comp.soft-sys.math.mathematica Hi Greg, what about Clear[a, b, c, d] mat = {{a, b}, {c, d}} matT = Transpose[mat] column01 = matT[[1]] column02 = matT[[2]] ? Best regards, Matthias Bode Sal. Oppenheim jr. & Cie. KGaA Unter... Matthias

Matthias.Bode's replies:

Items(3) /1

Combining vectors to form a matrix #2 5 79 (7/22/2004 7:15:06 AM) comp.soft-sys.math.mathematica Hello everyone, Marvellously powerful programme, but I'm feeling dumber by the minute. Is there a simple way to combine three vectors of equal length, n, into a nx3 matrix? Greg ... gregory.lypny (233)

Loading graphics package 2 27 (7/22/2004 7:20:12 AM) comp.soft-sys.math.mathematica Hello, I tried to reproduce an example from the online help by entering << Graphics`Graphics` BarChart[{1, -3, 4, 5, 2, 3}, {3, 6, 4, 3}] but got nothing. What am I doing wrong? Regards, Gre... gregory.lypny (233)

Using "Sum" (i = 1 ... N) in a function definition 9 23 (7/27/2004 11:11:21 AM) comp.soft-sys.math.mathematica I was trying to define a function using the Sum command in the following way (simplified example): MyData = {3,2,4,5,6}; MyFunc[i_] = Sum[MyData[[j]],{j,1,i}]; As you can see, the idea is to use the l... wilhelm.rainer (9)