Wyklad_LiczbyZmienne_07-10-08.nb 1
Definicja "pure function".
Function@wyrażenieD Hlub HwyrażenieL &L -
"pure function",
której formalnymi argumentami są #, #1, #2, ..
Function@x, wyrażenieD - "pure function" argumentu x.
Function@8x, y<, wyrażenieD -
"pure function" argumentów x, y.
In[1]:= HSqrt@#D + #^2L &
Ł!!!!!!
Out[1]= #1 + #12 &
In[2]:= %@4D
Out[2]= 18
In[3]:= HSqrt@#D + #^2L &@4D
Out[3]= 18
In[4]:= Function@Sqrt@#D + #^2D
Ł!!!!!!
Out[4]= #1 + #12 &
In[5]:= Function@Sqrt@#D + #^2D@4D
Out[5]= 18
In[6]:= %%@4D
Out[6]= 18
Wyklad_LiczbyZmienne_07-10-08.nb 2
In[10]:= Function@x, Sqrt@xD + x^2D
Ł!!!
Out[10]= Function@x, x + x2D
In[11]:= %%%%%%%@4D
Out[11]= 18
In[12]:= Function@x, Sqrt@xD + x^2D;
In[13]:= %@4D
Out[13]= 18
In[14]:= wyr = HTimes@Power@#1, 2D, Divide@#2, #3DD +
Denominator@Rationalize@#4DDL &
#2
Out[14]= #12 + Denominator@Rationalize@#4DD &
#3
In[15]:= wyr@4, 4, 2, 1.5D
Out[15]= 34
In[16]:= wyr1 = Function@8x, y, z, u<,
Times@Power@x, 2D, Divide@y, zDD +
Denominator@Rationalize@uDDD;
In[17]:= wyr1@4, 4, 2, 1.5D
Out[17]= 34
Wyklad_LiczbyZmienne_07-10-08.nb 1
Zadanie. Dla zadanej liczby naturalnej sprawdz
czy
cyfry wchodzące w jej skład są liczbami pierwszymi.
In[18]:= liczba = 134569;
In[19]:= p = IntegerDigits@liczbaD
Out[19]= 81, 3, 4, 5, 6, 9<
In[24]:= p@@3DD
Out[24]= 4
In[20]:= Table@HPrimeQ@#DL &@p@@iDDD, 8i, 1, Length@pDOut[20]= 8False, True, False, True, False, False<
In[21]:= Table@PrimeQ@p@@iDDD, 8i, 1, Length@pDOut[21]= 8False, True, False, True, False, False<
Wyklad_LiczbyZmienne_07-10-08.nb 1
Zadanie. Zdefiniować "pure function",
która dla losowo wybranej liczby całkowitej
z zakresu H-100, 100L sprawdzi czy jest ona
ujemna czy dodatnia. Jeśli jest dodatnia,
to zwróci zapis tej liczby w systemie dwójkowym,
w przeciwnym przypadku zwróci potęgę liczby.
In[25]:= li = Random@Integer, 8-100, 100Out[25]= 90
In[26]:= Print@liD
90
In[27]:= Function@x, If@Positive@xD, BaseForm@x, 2D, x^2DD@liD
Out[27]//BaseForm=
10110102
In[31]:= li = Random@Integer, 8-100, 100Out[31]= -81
In[32]:= Function@x, If@Positive@xD, BaseForm@x, 2D, x^2DD@liD
Out[32]= 6561
Wyklad_LiczbyZmienne_07-10-08.nb 1
Zadanie. Zdefiniowa "pure function",
która losuje z dowolnego przedzia�u liczbę ca�kowitą.
Następnie sprawdza czy wylosowana
liczba jest podzielna przez dwa, jeśli tak,
to przypisuje jej zmienną oraz wypisuje ją na ekran,
w przeciwnym przypadku nic nie robi.
fun = Function@8a, b<, c = Random@Integer, 8a, bIf@IntegerQ@Divide@c, 2DD,
zmienna = c; Print@zmiennaDDD;
fun@
-10,
10D
4
In[38]:= fun = Function@8a, b<, c = Random@Integer, 8a, bIf@IntegerQ@Divide@c, 2DD,
zmienna = c; Print@zmiennaDDD;
fun@
-10,
10D
Wyklad_LiczbyZmienne_07-10-08.nb 1
Zadanie. Zdefiniowa dowolną funkcję bez
wypisywania na ekran. Zdefiniowa "pure function",
która wypisuje na ekran wzór funkcji,
wylicza wartoś funkcji w zadanym punkcie
oraz rusyje jej wykres na zadanym przedziale.
f@x_D := Sin@xD^2 + x^2;
In[47]:= HPrint@"Funkcja ma postać: ", f@xDD;
Print@"Wartość funkcji ", f@xD,
" w punkcie ", #1, " wynosi: ", f@#1DD;
Plot@f@xD, 8x, #2, #3

Funkcja ma postać: x2 + Sin@xD2
Ą Ą2
Wartość funkcji x2 + Sin@xD2 w punkcie wynosi: 1 +
2 4
8
6
4
2
-3 -2 -1 1 2 3
Out[47]= Graphics