InfoMC 1. labor

Tárgykövetelmények

Legfeljebb 4 hiányzás

2 db ZH, 90 perces, 25 pont, 10 a minimum, egy-egy javítási lehetőség, gépteremben írjuk.

1-1 pontos röpZH a gyakorlatok elején, 15-ből 5 a minimum.

Önálló feladat, félév végén

25+25+10+40

A notebook formátum

A notebook - ok cellákra vannak osztva, köztük hierarchiát is képezhetünk a címsorokkal

Vannak szöveg cellák (ez szöveg cella) és kód vagy futtatható cellák.

Print["Ez futtatható cella"];

A futtatható cellák nyelve a Wolfram Language.

Feladatok

Hozzunk létre tartalomjegyzéket a notebook-ban!

Helyezzünk el bele meglepetéseket, amelyek csak kiértékelés után látunk.

Számológép

1+1

Sin[(Pi/3)]
Sin[60Degree]

Feladat

Számítsunk ki valamit!

Programozás alapjai

Függvények

A függvényhívás: FüggvényNév [ argumentum(ok) ]

Sin[3.14]

Lehet műveleti jelek helyett függvényt írni!

Divide[2,4]

Plus[1,2,3]

Függvények  egymásba ágyazása

Plus[Cos[x], Sin[x]]

Típusok

Head[3]

Head["szöveg"]

Head[{3, "szöveg", x}]

Head[x]

Listák

A={1,2,3,4};

Egymásba ágyazás

B={A, A, 1}

Feladatok

Milyen mélységű az alábbi lista?

{a, {b, {c}, 1}}

És ez a kifejezés?

1+2/3;

TreeForm[Hold[1+2/3]]

Szószámlálás

EngVocab = WordList[]
Length[EngVocab]

SortBy[EngVocab, StringReverse]

mytext=Import["http://sandbox.hlt.bme.hu/~gaebor/ea_anyag/InfoMC/kjb.txt", "Text"];
bibleCounts=WordCounts[mytext]
bibleVocab=Keys[bibleCounts];

Total[bibleCounts[#]&/@bibleVocab]
Length[bibleVocab]

ListPlot[Values[bibleCounts], Joined->True]

Zipf törvény

ListLogLogPlot[Values[bibleCounts], Joined->True, PlotRange->All]

letterCounts=Counts[Characters[mytext]]