How to Teach Computational Thinking

Try It Yourself

2+2

12^123

Range[10]

Range[1000]

ListPlot[Range[10]]

Table[Prime[n],{n,20}]

ListPlot[Table[Prime[n],{n,20}]]

{Red,Green,Blue}

Blend[{Red,Blue}]

CurrentImage[]

EdgeDetect[CurrentImage[]]

Table[Hue[n],{n,0,1,1/20}]

WordList[]

RandomWord[10]

StringTake[WordList[],1]

WordCloud[StringTake[WordList[],1]]

WordCloud[StringTake[WordList[],UpTo[2]]]

WordTranslation["hello",All]

ImageCollage[CountryData["Europe","Population"]CountryData["Europe","FlagImage"]]

ChromaticityPlot[ImageCollage[CountryData["Europe","Population"]CountryData["Europe","FlagImage"]]]

GeoGraphicsGeoDisk

Eiffel Tower

BUILDING

,

100

mi



TableGeoGraphicsGeoDisk

Eiffel Tower

BUILDING

,

n

10

0.1

mi

,{n,0,4}

DateListPlot[WordFrequencyData[{"horse","car"},"TimeSeries"]]

Graphics3D[Sphere[]]

Graphics3D[Table[Style[Sphere[RandomReal[10,3]],RandomColor[]],100]]

Manipulate[Graphics[{Style[Disk[{0,0},1],Yellow],Style[Disk[{0,0},r],Black]}],{r,0,1}]

Sound[Table[SoundNote[RandomInteger[20],0.1],{n,20}]]

AnatomyPlot3D

left hand

ANATOMICAL STRUCTURE

