Wolfram Cloud Document

International Essays

Forneça ao DALL·E um trecho de código em Wolfram Language que produza um gráfico e que não seja trivial de prever em detalhes. É interessante (e divertido) observar como ele “interpreta” o código e prevê como o resultado poderia se parecer.

Prompt utilizado no DALL·E 2

Em todos os exemplos a seguir, foi usado o seguinte prompt do DALL.E:

Analise cuidadosamente o código a seguir e faça uma renderização artística de como você acha que o resultado se pareceria:

Código de entrada em Wolfram Language e seu gráfico de saída

partialSum[n_,x_]:=Sum[Sqrt[2/Pi](1-Cos[iPi/2])/iSqrt[2/Pi]Sin[ix],{i,n}]Plot[Evaluate[Table[partialSum[j,x],{j,10,120}]],{x,0,Pi/2},PlotPoints->200,PlotRange->{0.88,1.2},PlotStyle->Table[{Thickness[0.002],GrayLevel[k/120]},{k,120}]]

Previsão da IA DALL·E a partir da leitura do código de entrada

Código de entrada em Wolfram Language e seu gráfico de saída

Module[{f},f[y_]:=Module[{x2,y3,x4,y5},(*movealternatinghorizontallyorverticallytotheright*){{-1.5,y},{x2=-(1-(y^4))^(1/4),y},{x2,y3=(1-(x2^2))^(1/2)},{x4=Sqrt[1-(y3-1)^2]-1,y3},{x4,y5=-(1-(x4+1)^2)^(1/4)+1},{0,y5},{-x4,y5},{-x4,y3},{-x2,y3},{-x2,y},{1.5,y}}];Graphics[{Thickness[0.001],Table[{Line[#],Line[Map[#{1,-1}&,#,{-2}]]}&[f[1-y^(3/2)]],(*allstartingheights*){y,0.0,1.0,0.025}]}]]

Out[]=

Previsão da IA DALL·E a partir da leitura do código de entrada

Código de entrada em Wolfram Language e seu gráfico de saída

In[]:=

modifiedLogisticMap[x_,λ_,ε_,n_]:=(λ+(-1)^nε)x(1-x);modifiedLogisticMapData[x0_,λ_,ε_,l_,l0_]:=Drop[FoldList[modifiedLogisticMap[#,λ,ε,#2]&,x0,Range[l]],l0]Graphics[{PointSize[0.003],Table[Point[{λ,#}]&/@modifiedLogisticMapData[1/210,λ,0.2,300,100],{λ,2.6,3.8,0.001}]},PlotRange->All,Frame->True,Background->Lighter[Gray,0.5]]