Draw a circle and an inner circle Graphics[{Circle[{0, 0}, 1], Circle[{0, -0.5}, 0.5]}] Draw 10 circles which has center (i,i) and i is in {1,10} Graphics[Table[Circle[{i, i}, 0.5], {i, 10}]] Connect 10 points which is at (i,i) data = Table[{i, i}, {i, 10}] ListLinePlot[data] Or: Graphics[Line[data]] ListLinePlot[{{1, 1}, {2, 3}, {3, Read more…
We want to calculate a new vector that has no weight on the special axis. Calculate the projected vector on the special axis and remove it, the result is what we want. PointStruct CalculateVectorWeight(PointStruct vec0, PointStruct vec1) { vec0.Unit(); double dotValue = vec1.Dot( vec0 ); PointStruct onVec0 = vec0 * Read more…
Capture an image from the camera. CurrentImage[] We can use function blur to change our image, the interface Manipulate will help us to display different levels dynamically. To find important colors in the image. Convert the original image to a white and black image: To find sharp changes in the Read more…
The interface Manipulate supports to display different scenes as parameter changed dynamically. eg: Manipulate[Plot[Sin[a*x], {x, 0, 10}], {a, 1, 5, 1}] If there is no step for variable a, it can vary continuously. Manipulate[Plot[x^a, {x, 0, 10}], {a, 1, 5}] It also lets us set up any number of Read more…
We always use function Graphics and Graphics3D to represent items in the Wolfram Language. Use RegularPolygon to draw a triangle. Graphics[RegularPolygon[3]] Make a red octagon. Graphics[Style[RegularPolygon[8], Red]] Make a list whose elements are disks with hues varying from 0 to 1 in steps of 0.1. Table[Graphics[Style[Disk[ ], Hue[n]]], {n, 0, Read more…
I want to get the solution of the equation Bisection Method The first algorithm for the problem is bisection method. The algorithm bisection method doesn’t require derivation for the equation. It just needs a possible solution range [l, r], then calculates the variable mid as , compares the result of Read more…
Draw geometric curve of Quadratic equation Here is a simple quadratic equation: Draw its geometric curve by wolfram. We can use Table to calculate all discrete values in special range. Table[2*x^2 + 1, {x, -10, 10}] {201, 163, 129, 99, 73, 51, 33, 19, 9, 3, 1, 3, Read more…
Here are some notes about how to create, change , and plot data stored by lists. Many examples come from the book An Elementary Introduction To The Wolfram Language. Make a plot of the first 10 squares, starting at 1. ListPlot[Range[10]^2] Make a combined list of the first 5 squares Read more…
We want to know the world coordinate of a point on a 3D widget event though we don’t know the widget’s position on the world coordinate system. I get a matrix from an actor and create a temporal vtkTransform object, then the function TransformDoublePoint can give me the real coordinate Read more…