Tag Info

New answers tagged

2

This is an extended version of the brief suggestion that I gave in my comment above. Solve for the tangent points. Solve[{#.# &[{x1, y1} - {0, 0}] == 3^2, #.# &[{x2, y2} - {12, 0}] == 2^2, (y2 - y1)/(x2 - x1) == -((x1 - 0)/(y1 - 0)) == -((x2 - 12)/(y2 - 0))}, {x1, y1, x2, y2}] (* This gives 4 solutions *) Define the extrusion vector. ...


3

For the first question the problem is only in the radius of the small circle. it should be like this: Circle[center[{R, r}, θ], r]


5

In version 10, use SSSTriangle which stands for side-side-side triangle.


2

EDIT Here's a slightly modified version of a suggestion made by Kuba in my separate question on this topic (coordinates[[1]] /. (Sqrt[5]) -> (2 tau - 1) // Simplify) /. tau -> HoldForm@\[Tau] ORIGINAL This is not the most elegant solution to grace this forum, but: Map[ If[ AtomQ@#, #, (Simplify[#/τ]*HoldForm@τ) /. { τ -> ...


2

In version 10 (now available publicly through the Programming Cloud), use RegionNearest point = {8, 15}; line = Line[{{{20, 10}, {11, 27}}, {{11, 27}, {1, 27}}}]; np = RegionNearest[line, point] (* {5663/370, 6981/370} *) Graphics[{PointSize[Large], {line, Point[point]}, {Red, Point[np]}}]


5

In version 10, many graphics primitives, including Polygon, can be treated as geometric regions. Use RegionMeasure: poly=Polygon[{{0, 200 }, {200, 100}, {500, 300}, {100, 700}}]; RegionMeasure[poly] (* 155000 *)


3

In version 10, the new geometric computation functionality supports this. It operates with region objects. Many graphics primitives, including Disk and Rectangle can be used as regions. Boolean operations include RegionUnion, RegionIntersect, RegionDifference, RegionSymmetricDifference and BooleanRegion. Example: ...


3

Manipulate[Row[{ Plot3D[2 x +3y + 3 x^2 +4 y^2 +5 x y,{x,0,100},{y,0,100}, BoxRatios->1,ImageSize->400, MeshFunctions->{#3&},Mesh->{{k}},MeshStyle->Directive[{Thick,Red}]], ContourPlot[2 x +3y + 3 x^2 +4 y^2 +5 x y==k,{x,0,100},{y,0,100}, ContourStyle->Directive[{Thick,Red}],ImageSize->400, ...



Top 50 recent answers are included