User Portlet User Portlet

Shenghui Yang
Discussions
![Animate the CNN fear and greed index gauge][1] &[Wolfram Notebook][2] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=2026-04-18_08-21-01%281%29.gif&userId=23928 [2]:...
There is a WFR function handles generic inellipse: https://resources.wolframcloud.com/FunctionRepository/resources/Inellipse/ Mandart inellipse is in the neat example section.
![Companion to "Base Fibonacci - Numberphile"][1] &[Wolfram Notebook][2] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=2026-01-12_09-16-45.gif&userId=23928 [2]:...
![Visual explanation of the problem Putnam 2025 A3][1] &[Wolfram Notebook][2] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=chainandindependantedge.png&userId=23928 [2]:...
![Random minimum spanning trees and Riemann Zeta function][1] &[Wolfram Notebook][2] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=rg.gif&userId=23928 [2]:...
![Recamán][1] &[Wolfram Notebook][2] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=28304055test-optimize2.gif&userId=20103 [2]: https://www.wolframcloud.com/obj/46675e9d-6939-4106-9156-f9de4ddbe8ab
![Reconstructing the classic ASCII Donut in Wolfram language using FunctionCompile][1] &[Wolfram Notebook][2] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=2025-10-24_13-06-43-optimize.gif&userId=11733 [2]:...
![Exploring moduli of dyadically resolved trinomials][1] &[Wolfram Notebook][2] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=85433736test-optimize.gif&userId=20103 [2]:...
![Hamiltonian-type paths without crossings in regular polygons][1] &[Wolfram Notebook][2] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=2025-09-07_14-02-06.gif&userId=20103 [2]:...
Here is an more involved example demonstrating that the parallel tangents can be found using numeric equation solving function: f[x_, y_] := x^2 + x*Sin[4*y] + 3 y^2 - 7 + Cos[3*x]; pt = With[{x = RandomReal[{-2, 2}]}, {x, y /....