Favorite Functions:
CellularAutomaton[30, {0, 0, 0, 1, 0, 0, 0}, 2] DeviceOpen["Serial", "COM1"] InverseRadonTransform[g[p,\Phi] , {p, \[Phi]}, {x, y}] Dynamic[MousePosition[]]