My first Notebook

Friday 15 November - live edition

Yves Papegay - yap@informathiques.fr

This notebook is the support created during the first session of the course “Online teacher training and community of practices - Digital tools for STEAM education and Makers pedagogy, November 2024 - June 2025” , an activity of the “MEJ MAKERS ERASMUS+ project (2023-2-FR01-KA210-SCH-000176068)” - visit the course dedicated web page for details.

Let’s start

2+2

1234+5678

1234*5678

Exercice :

Multiply 1 2 3 4 5

1* 2*3*4*5

Plus[2,2]

Plus[1,2,3]

Times[2,3]

Times[2,Plus[2,3]]

sin[Pi]

Sin[Pi]

Max[2,7,3]

RandomInteger[100]

RandomInteger[100]

{1,2,3}

{1,2,3,a,b,c}

ListPlot[{1,1,2,2,3,4,4}]

ListLinePlot[{10,9,8,7,5,2,1}]

Range[10]

ListPlot[Range[20]]

Reverse[{1,2,3,4}]

ListPlot[Reverse[Range[15]]]

Join[{1,2,3},{4,5},{6,7}]

Join[Range[3],Range[5]]

ListPlot[Join[Range[20],Range[20],Range[30]]]

ListPlot[Join[Range[20],Reverse[Range[20]],Range[30]]]

ListLinePlot[{1,3,5,4,1,2,1,4}]

BarChart[{1,3,5,4,1,2,1,4}]

PieChart[{1,3,5,4,1,2,1,4}]

Column[{1,2,a,b}]

Column[{BarChart[Range[3]],BarChart[Range[5]]}]

Operations on Lists

There are a lot of operations on lists.

{1,2,3}+10

{1,1,2}*{1,2,3}

{1,2,3}+a

{1,2,3}*{a,b,c}

{1,2,3} *x

{1,2,3}+{a,b,c}

It is text

Range[10]^2

Range[10]

ListPlot[Range[100]^2]

Sort[{4,2,1,3,6}]

Length[{4,2,1,3,6}]

Total[{1,1,2,2,3}]

Total[Range[10]]

Count[{a,b,a,a,c,b,a},a]

First[{7,6,5}]

Last[{7,6,5}]

Part[{7,6,5},2]

IntegerDigits[2024]

Last[IntegerDigits[2024]]

Take the first 10 digits of 2 to the power 100

2^100

IntegerDigits[2^100]

Take[IntegerDigits[2^100],10]

Table[x,10]

Table[{a,b},10]

Table[PieChart[Range[3]],3]

Table[a[n],{n,5}]

Table[n^2,{n,10}]

Table[Range[n],{n,8}]

Table[Column[Range[n]],{n,8}]

Table[PieChart[Table[1,n]],{n,9}]

Table[2^exponent,{exponent,10}]

Table[{x,x+1,x^2},{x,5}]

Range[10]

Range[4,10]

Range[4,10,2]

Table[RandomInteger[10],20]

RandomInteger[10,{20}]

Exercice : 
Make a list line plot of the first digits of the first 100 squares.

Table[n^2,{n,100}]

Range[100]^2

First[IntegerDigits[7744]]

Table[First[IntegerDigits[n^2]],{n,100}]

ListLinePlot[Table[First[IntegerDigits[n^2]],{n,100}]]

Colors and Styles

Red

{Red,Green,Blue, Purple,Orange,Pink,Yellow,Black}

ColorNegate[Yellow]

Blend[{Yellow,Green,Pink}]

RGBColor[{1,0,1}]

Table[RGBColor[1,i,0],{i,0,1,0.01}]

Hue[0.2]

Table[Hue[x],{x,0,1,0.005}]

Table[RandomColor[],20]

Blend[Table[RandomColor[],200]]

Style[100,Red]

Table[Style[RandomInteger[1000],RandomColor[],RandomInteger[{4,40}]],50]

Graphics[{Circle[],Red,Circle[{1,0}]}]

Table[Graphics[{RandomColor[],RegularPolygon[n]}],{n,3,10}]

Graphics3D[{Cone[],Cube[]}]

Graphics3D[{Cube[],Cone[]}]

Graphics3D[{Yellow,Dodecahedron[]}]

Interactive Manipulation

Manipulate[Table[Orange,n],{n,1,10}]

Manipulate[Graphics[{color,RegularPolygon[n]}],{n,3,10,1},{color,{Red,Green,Blue}}]