CodeWriter

AI code generation without the chatter

Chat Example

Create a table listing the first 9 layers of Pascal's triangle.

Table[Binomial[n-1,k-1],{n,1,9},{k,1,n}]

I need a round button that toggles between green and red when clicked. It needs to be surrounded by a static black box.

Button[
DynamicModule[{color = Green},
EventHandler[
Framed[
Graphics[
{Dynamic[color], Disk[]},
ImageSize -> 50
],
FrameStyle -> Black,
Background -> White
],
{"MouseClicked" :> (color = If[color == Green, Red, Green])}
]
],
ImageSize -> 60
]

Create a rainbow infinite symbol.

ParametricPlot[{Sin[t], Sin[2 t]/2} + {1/4, 0}, {t, 0, 2 Pi},
PlotStyle -> Thick,
ColorFunction -> Function[{x, y, t}, ColorData["Rainbow"][t/(2 Pi)]],
ColorFunctionScaling -> False,
Axes -> False,
PlotRangePadding -> Scaled[.06]]

Programmatic Access

Examples

Open in Cloud
Download Notebook

Generate code programmatically:

In[1]:=

LLMSynthesize[{LLMPrompt["CodeWriter"],"Simulate a random walk"}]

Out[1]=

RandomWalk[n_] := Accumulate[Join[{0}, RandomVariate[NormalDistribution[0, 1], n]]]ListLinePlot[RandomWalk[500], PlotRange -> All]

Neat Examples
(1)

Code from the chat notebook above:

In[1]:=

Table[Binomial[n-1,k-1],{n,1,9},{k,1,n}]

Out[1]=

{{1},{1,1},{1,2,1},{1,3,3,1},{1,4,6,4,1},{1,5,10,10,5,1},{1,6,15,20,15,6,1},{1,7,21,35,35,21,7,1},{1,8,28,56,70,56,28,8,1}}

In[2]:=

Button[DynamicModule[{color=Green},EventHandler[Framed[Graphics[{Dynamic[color],Disk[]},ImageSize50],FrameStyleBlack,BackgroundWhite],{"MouseClicked"(color=If[colorGreen,Red,Green])}]],ImageSize60]Initializationcode:state=False;

Out[2]=

In[3]:=

ParametricPlot[{Sin[t],Sin[2t]/2}+{1/4,0},{t,0,2Pi},PlotStyleThick,ColorFunctionFunction[{x,y,t},ColorData["Rainbow"][t/(2Pi)]],ColorFunctionScalingFalse,AxesFalse,PlotRangePaddingScaled[.06]]

Out[3]=

Prompt Source

Definition Notebook »

Publisher Information

Contributed by: Wolfram Staff