wolfram-mathematica

is mathematica able to do some planar geometry plotting

由 安稳与你 提交于 2019-12-05 01:06:47
问题 I am trying to use computer to show some planar geometry plots. I donot know what software can do this, or whether mathematica can produce such plots easily. For example, I have the following plot to show. Given any triangle ABC, let AD be the line bisecting angle BAC and intersecting BC at D. Let M be the midpoint of AD. Let the circle whose diameter is AB intersects CM at F. How to produce these plots and show the relevant labeling of the points in mma? Is it easy to do? Could someone

Combining Lists of Word Frequency Data

由 早过忘川 提交于 2019-12-05 00:58:10
This seems like it should be an obvious question, but the tutorials and documentation on lists are not forthcoming. Many of these issues stem from the sheer size of my text files (hundreds of MB) and my attempts to boil them down to something manageable by my system. As a result, I'm doing my work in segments and am now trying to combine the results. I have multiple word frequency lists (~40 of them). The lists can either be taken through Import[ ] or as variables generated in Mathematica. Each list appears as the following and has been generated using the Tally[ ] and Sort[ ] commands: {{"the

Add text to faces of polyhedron

由 僤鯓⒐⒋嵵緔 提交于 2019-12-05 00:15:29
Is it possible to automate the addition of any text to the faces of a polyhedron, like this manually-drawn graphic shows (the example's odd numbering scheme isn't relevant): It was easy enough to label the vertices: c = 1; Show[{Graphics3D[ Text[c++, #] & /@ PolyhedronData["Dodecahedron", "VertexCoordinates"]], PolyhedronData["Dodecahedron"]}, Boxed -> False] (even though some of the text is placed in front of the shape for vertices that are hidden. That's probably soluble.) But when I tried to do the same thing for faces, nothing worked. PolyhedronData["Dodecahedron", "Faces"] returns a

Is it possible to invoke Mathematica's diff functionality from the command line?

由 狂风中的少年 提交于 2019-12-04 23:32:16
问题 TortoiseSVN (as well as other Tortoise clients) include a script to diff notebook files in Mathematica. Diff functionality for Mathematica is implemented in the AuthorTools package (perhaps there is something better?) The script currently works by creating a small notebook file in the temp directory, and opening it in the front end. The notebook has a big button that will do the diff and has the file names to be diffed hard coded. A disadvantage is that the notebook with the diff code will be

Why can't Mathematica solve this definite integral?

由 让人想犯罪 __ 提交于 2019-12-04 20:11:45
问题 When I try to calculate the following integral in Mathematica 8, I get this strange result: In[1]:= Integrate[y/((1 + x^2 + y^2)^(3/2)), {y, 0, 1}] Maple 14 can solve this one easily: Why is Mathematica giving me a different result? 回答1: Try this r = Integrate[y/((1 + x^2 + y^2)^(3/2)), {y, 0, 1}] r = Assuming[Element[x, Reals], Simplify[r]]; Together[r] which gives (-Sqrt[1+x^2]+Sqrt[2+x^2])/(Sqrt[1+x^2] Sqrt[2+x^2]) Which is the same as Maple's : 来源： https://stackoverflow.com/questions

Putting a VerticalSlider into Mathematica's Manipulate?

由 隐身守侯 提交于 2019-12-04 19:51:46
How do you set up manipulate so that you can control a variable with a vertical slider instead of a horizontal slider in Mathematica? From the help .... Manipulate[u, {u, 0, 1, ImageSize -> Small}, ControlType -> VerticalSlider, ControlPlacement -> Left] 来源： https://stackoverflow.com/questions/4418699/putting-a-verticalslider-into-mathematicas-manipulate

How to do substitution of a function in mathematica

由 只愿长相守 提交于 2019-12-04 19:19:50
问题 I have the expression D[f[x, y], x] , and I want to substitute f[x,y] with x*y , I tried the following: D[f[x, y], x] /. {f[x,y] -> x*y} and D[f[x, y], x] /. {f -> x*y} But neither worked. Would appreciate your help! Thanks. 回答1: The FullForm of the derivative in your expression is In[145]:= D[f[x,y],x]//FullForm Out[145]//FullForm= Derivative[1,0][f][x,y] This should explain why the first rule failed - there is no f[x,y] in your expression any more. The second rule failed because Derivative

Apply list to arguments in Mathematica

由 拜拜、爱过 提交于 2019-12-04 18:55:15
问题 How would I go about applying each element in a list to each argument in a function? Kind of like Map , except with a variable number of arguments. So for example, if I have a function action[x1_,x2_,x3_]:=... , and I have a list {1,2,3} , how would I create a function to call action with action[1,2,3] ? I would like this function be able to handle me changing action to action[x1_,x2] , and anything else, also, with the list now being {1,2} , and to call action now with action[1,2] . 回答1:

Detection and styling of multiple functions in Mathematica's Plot

由 别说谁变了你拦得住时间么 提交于 2019-12-04 18:35:51
问题 This question started me thinking about how Mathematica detects multiple functions being plotted. I find that I really do not understand the process. Consider: Plot[{1, Sequence[2, 3], 4}, {x, 0, 1}, PlotRange -> {0, 5}] I can understand that Plot finds three elements in the list initially, but how does it "know" to style 2 and 3 the same? It is as though there is a memory of what part of the starting list those two elements came from. How does this work? 回答1: Well, it knows that there three

Memoized recursive functions. How to make them fool-proof?

由 ♀尐吖头ヾ 提交于 2019-12-04 17:56:11
问题 Memoized functions are functions which remember values they have found. Look in the doc center for some background on this in Mathematica, if necessary. Suppose you have the following definition f[0] = f[1] = 1 f[x_] := f[x] = f[x - 1] + f[x - 2] in one of your packages. A user may load the package and start asking right away f[1000]. This will trigger a $RecursionLimit::reclim error message and abort. Even if the user then tries something smaller, say f[20], by now the definition of f is
订阅 wolfram-mathematica