How to Teach Computational Thinking
How to Teach Computational Thinking
Try It Yourself
This document is a live “notebook” that mixes text and code. You can run any piece of code by clicking inside the code, then pressing +.
See
for a basic introduction.
See
Compute 2+2:
2+2
Raise 12 to the power 123:
12^123
Make a list of numbers from 1 to 10:
Range[10]
Make a list of numbers from 1 to 1000:
Range[1000]
Plot the list of numbers:
ListPlot[Range[10]]
Make a table of the first 20 primes:
Table[Prime[n],{n,20}]
Plot the table of primes:
ListPlot[Table[Prime[n],{n,20}]]
A list of colors:
{Red,Green,Blue}
Blend red and blue:
Blend[{Red,Blue}]
Capture the current image from your computer:
CurrentImage[]
Detect edges in the current image:
EdgeDetect[CurrentImage[]]
Make a table of colors with different hues:
Table[Hue[n],{n,0,1,1/20}]
Get a list of common words in English:
WordList[]
Pick out 10 random words:
RandomWord[10]
Take the first letter of all words:
StringTake[WordList[],1]
Make a word cloud of the frequencies of first letters:
WordCloud[StringTake[WordList[],1]]
Make a word cloud of the frequencies of up to 2 letters at the beginning of words:
WordCloud[StringTake[WordList[],UpTo[2]]]
Translate the word “hello” into hundreds of languages:
WordTranslation["hello",All]
Visualize the populations of countries in Europe using flag sizes:
ImageCollage[CountryData["Europe","Population"]CountryData["Europe","FlagImage"]]
Show where in color space the flags lie:
ChromaticityPlot[ImageCollage[CountryData["Europe","Population"]CountryData["Europe","FlagImage"]]]
Draw a 100-mile disk around the Eiffel Tower:
GeoGraphicsGeoDisk,
Show disks with sizes going up by factors of 10 around the Eiffel Tower:
TableGeoGraphicsGeoDisk,10^n,{n,0,4}
Show the relative frequencies of “horse” and “car” in books over time:
DateListPlot[WordFrequencyData[{"horse","car"},"TimeSeries"]]
Make 3D graphics of a sphere:
Graphics3D[Sphere[]]
Make 3D graphics of 100 randomly placed spheres:
Graphics3D[Table[Style[Sphere[RandomReal[10,3]],RandomColor[]],100]]
Make an interactive “Cyclops eye”:
Manipulate[Graphics[{Style[Disk[{0,0},1],Yellow],Style[Disk[{0,0},r],Black]}],{r,0,1}]
Make sound from 20 random musical notes:
Sound[Table[SoundNote[RandomInteger[20],0.1],{n,20}]]
Make a 3D-rotatable anatomical picture of a left hand:
AnatomyPlot3D
Learn to code with the in-product version of Stephen Wolfram’s book
An Elementary Introduction to the Wolfram Language. Get started by clicking the “Introductory Book” icon at the top of the page.
An Elementary Introduction to the Wolfram Language. Get started by clicking the “Introductory Book” icon at the top of the page.
