Mathematica

FittedModel object type
Is there an easy way to get Mathematica to interpret custom code when a FittedModel is called with a custom argument, for example if I have modelfit = NonlinearModelFit[...] modelfit ["EstimatedPower"] which would then call my own code using the modelfit object to compute something? I know that it's trivial... 10 Jul 2010 04:07

Any idea how to parallelize this small code construct
Dear Group, Here is a simple code to solve linear systems. It is motivated from Fullerton University numerics example. Now if someone can suggest how to parallelize this code. SORmethod[A0_, B0_, P0_, omega_, max_] := Module[{A = N[A0], B = N[B0], i, j, k = 0, n = Length[P0], P = P0, oldP = P0}, While[... 10 Jul 2010 05:10

Displaying cylinders
I have displays like this: th = .01; cp1 = { 1, -1, 2}; cp2 = { 2, 0, 1}; cp3 = {-1, 3, 2}; Graphics3D[{Opacity[.4], Yellow, Cylinder[{cp1, cp1 + {th, -th, th}}, 12], Green, Cylinder[{cp2, cp2 - {th, th, -th}}, 15], Red, Cylinder[{cp3, cp3 + {-th, -th, -th}}, 12]}, Boxed -> False] but... 12 Jul 2010 01:58

change $UserBaseDirectory ?
I need to have access to an application, let's call it "Stuff", including its Documentation Center-style documentation, yet am unable to install it in either $BaseDirectory or $UserBaseDirectory. And I'm unable to change $UserBaseDirectory since the system is "locked down". I'll put the application in a direc... 8 Jul 2010 03:42

Pattern: x_List with conditions on elements
Group: 1. Can someone provide a clearer way of implementing the following example? (Goal: I want a pattern that accepts only a list of real numbers and what I have seems hacky.) MatchQ[{1, 2, 2.2},x_?(VectorQ[#,(NumericQ[#]&&Im[#]==0)&]&)] 2. Could someone show me how to create a second pattern which accepts... 12 Jul 2010 01:59

First nonzero in list
I have lists such as th = {227, 342, 527, 0, 670, 730, 703, 0, 0, 649, 687, 614, 570, 501, 462, 402, 325, 254, 189, 99, 81, 36, 9, 8, 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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} and I want to find the positi... 8 Jul 2010 21:26

replacement x->y except in Exp[x]
Is it possible to exclude certain patterns from replacements? For example I want to replace y for x everywhere except in Exp[x]. TIA Sebastian ... 11 Jul 2010 07:12

Problem with a diagram
I am constructing a bifurcation diagram for interval 0.15 <= alpha <= 0.75 but it always go into loop and can't find an error. I used word alpha for greek symbol. recursive equation is: In[1]:= f[x_]:=(1-alpha)x+((alpha*0.8)/0.25)-((alpha*ArcTan[4x])/0.25) In[2]:= f[x] I used: ListPlot[ Flatten[Tabl... 9 Jul 2010 07:14

Access connection failure in a Windows 7 64 bits system
This connection OpenSQLConnection[ JDBC["Microsoft Access(ODBC)", FileNameJoin[{NotebookDirectory[], "MyAccessDatabase.mdb"}]], "Catalog" -> Automatic, "Description" -> None, "Password" -> None, "Name" -> "manualA", "ReadOnly" -> True, "RelativePath" -> False, "UseConnectionPool" -> False, "Username" -> None, "Ve... 7 Jul 2010 07:56

hello group
I have been considering to bypass powerpoint and use slide-show template in mathematica, even I have the option to save-as in pdf, this is handy to have my presentation seen from other pcs without mathematica installed. The problem I have is in how to setup the slideshow template to 8 1/2 by 11 landscape so when... 7 Jul 2010 07:56