User Portlet
| Discussions |
|---|
| After running the code, the rows and columns in the grid are not aligned. How can I set them to align properly? {a = m, b = n, c = s, d = t} Flatten[MapThread[{#1 == #2 // Simplify} &, {{"a+b", "ab", "c+d", "cd", ... |
| How can I speed up exporting videos? ![enter image description here][1] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=2025-11-27_133848.png&userId=3529132 |
| ContourPlot[Evaluate@{x + y == 1, x - y == 1}, {x, -2, 2}, {y, -2, 2}] ![enter image description here][1] How can I add the perpendicularity symbol (like the red symbol shown) exactly at the vertex where the two lines meet, to indicate that... |
| f[x_] := 1 - 1/(x - 9/2) Plot[f[x], {x, 0, 10}, Filling -> Axis, Ticks -> {Range[20], Automatic}, AxesOrigin -> {0, 0}, ExclusionsStyle -> Directive[Dashed, AbsoluteThickness[0.5], Red], ... |
| pol = -1 + (x - x0)^2/a^2 + (2 (x - x0) x0)/a^2 + x0^2/ a^2 + (y - y0)^2/b^2 + (2 (y - y0) y0)/b^2 + y0^2/b^2 For the polynomial above, there is a relation: rel = x0^2/a^2 + y0^2/b^2 == 1 How can I use this relation `rel`... |
| f[x_] = Sin[x] - (x - Sqrt[2]/2 x Sin[x])/Cos[x] D[f[x], {x, 1}] The result obtained after taking the first derivative of the function is as follows: Cos[x] - Sec[x] (1 - (x Cos[x])/Sqrt[2] - Sin[x]/Sqrt[2]) - Sec[x] (x... |
| In an nb file, there are many input code lines and corresponding results generated by the code, as well as manually inserted images, etc. What methods do we have to automatically select all content in the file except for the code lines, so that it... |
| Solve[ForAll[{x, y}, Equivalent[ m (x/a) + n (y/b) == 1, ((t1 - t2) (b (-1 + t1 t2) x + a (b + b t1 t2 - (t1 + t2) y)))/((1 + t1^2) (1 + t2^2)) == 0]], {m, n}, Reals] // Simplify ![enter image... |
| In the code below, the parameters l1 and l2 represent the same straight line. How can I use code to obtain the following equality relationship? m == x0/(x0^2 + y0^2) n == y0/(x0^2 + y0^2) ![enter image description here][1] I used... |
| ani = Manipulate[ Plot[Sin@x, {x, 0, a}, Epilog -> {Red, PointSize@0.015, Point[{a, Sin@a}]}, Ticks -> {Range[0, 2 \[Pi], \[Pi]/4], {-1, 0, 1}}, PlotRange -> {{0, 2 \[Pi] + 1/2}, {-3/2, 3/2}}],... |