InfoMC 4. labor

Listák

Select

Feltétel

f[x_]:=If[EvenQ[x],x/2, 3x+1]

f[3]
f[6]

A Select függvény kiválaszt bizonyos elemeket egy listából

Select[{a,b,1,11.5,3}, OddQ]

A múlt órához :

VowelQ[x_]:=MemberQ[{"a", "á", "e","é", "i", "í", "o", "ó", "ö", "ő", "u", "ú", "ü", "ű"},x]

VowelQ["a"]
VowelQ["k"]

Select[Characters["kutya"], VowelQ]

Feladat

Válaszuk ki egy szöveg szavai közül a nagybetűvel kezdődőket!

Például: Nagy[“A Pápa Vatikánba utazik.”] → {“A”, “Pápa”, “Vatikánba”}

TextWords

Plot

Plot[(x^2),{x,-2,2}]

Plot[(x^2),{x,-2,2}, PlotStyle->Thick]

Feladat

a)

Ábrázoljuk a Sin függvényt a [-2π, 2π] intervallumon. Legyen színes! A tengelyek az origóban messék egymást! Írjunk hozzá tengely feliratokat!

b)

Ábrázoljuk az előzőt úgy, hogy az x-tengely feletti rész piros, alatta zöld legyen.

c)

Ábrázoljuk az előzőt úgy, hogy az x-tengely feletti rész szaggatott, alatta vastag legyen.

ListPlot

Ezzel diszkrét pontokat lehet megjeleníteni.

ListPlot[{{0,0},{1,1},{2,2}}]

Ha nem írunk x-értékeket, akkor az {1,2,...} lesz alapértelmezetten.

ListPlot[Table[(x^2),{x,-5,5}]]

Feladat

Ábrázoljuk az (x^2) függvényt a ListPlot-tal a [-5,5] intervallumon, úgy hogy a parabola legmélyebb pontja a (0,0)-ban legyen (ne a 6-ban, amint a fenti ábrán)! Színezzük ki az ábrát!

Nyelvi elemzés

Egy segéd függvény:

ReplaceTextElement[x_]:=x//.{TextElement[a_, b_]->{b,a}, TextElement[a_]->a, Association[Rule["GrammaticalUnit",Entity["GrammaticalUnit",b_]]]->b}

Nyelvtani fa és szófaj.

TextStructure["The cat sat on the mat."]
TreeForm[%]
ReplaceTextElement[%%]

TextStructure["The cat sat on the mat.","PartsOfSpeech"]
TreeForm[%]
ReplaceTextElement[%%]

ReplaceTextElement[TextStructure["You talk the talk, but do you walk the walk?","PartsOfSpeech"]]

Feladat

Írjunk olyan függvényt, ami ábrázolja, hogy a bemeneti mondatban hány szó volt adott szófajú!

CountsBy[{1,2,3,2,1,1},EvenQ]