Teoria chaosu deterministycznego Alternatywny prolog.
Taking You from Idea to Solution slogan reklamuj¡cy Mathematik¦
Celem zaj¦¢ b¦dzie poznanie niekoniecznie matematycznych zastosowa« ±rodowiska Mathematica.
Zadanie 1.
Wykorzystuj¡c funkcj¦ CountryData[] wykonaj zestawienie danych na temat bezrobocia i produktu krajowego wybranych krajów Afryki. Albo wykonaj mapk¦ Europy póªnocnej zaznaczaj¡c na niej planowan¡ tras¦ wakacyjnych podró»y. Albo Wykorzystuj¡c funkcj¦ Manipulate[] napisz prost¡ gr¦, która b¦dzie sprawdzaªa znajomo±¢ ag albo ksztaªtów granic wybranych pa«stw
±wiata.
Zadanie 2.
Korzystaj¡c z funkcji WeatherData[] narysuj wykres obrazuj¡cy ci±nienie atmosferyczne i ±redni¡ liczb¦ opadów w ci¡gu ostatnich 5 lat w Twojej rodzinnej miejscowo±ci. Znajd¹ najwi¦ksz¡ i najmniejsz¡ temperatur¦ w dost¦pnych danych dla kilku miejsc na ±wiecie.
Zadanie 3.
Narysu wykres liczby masowej dla stabilnych izotopów opieraj¡c si¦ na funkcji ElementData[]. Narysuj ukªad okresowy.
1
Zadanie 4.
Sprawd¹ jakie jeszcze ciekawe zbiory danych Mathematica przechowuje w swoich zasobach. (Help > Computable Data)
Zadanie 5.
Sprawd¹ jak dziaªa poni»szy kod i czy na Twoich zdj¦ciach prawidªowo rozpozna twarze. (kod pochodzi z dokumentacji ±rodowiska Mathematica) faces = DeleteSmallComponents[ChanVeseBinarize[i, "TargetColor->
Orange]];
Show[i, Graphics[{EdgeForm[Directive[Thick, Yellow]], Transparent, Polygon /@ ComponentMeasurements[faces, "MinimalBoundingBox"][[All, 2]]}]]
Zadanie 6.
Zbadaj dziaªanie funkcji EdgeDetect[]. Przetestuj j¡ na jakim± obrazku.
2
