go_on

D[t^2 + Sin[5 t], {t, 2}]

2 - 25 Sin[5 t]

D[(2 p - 1)^5, {p, 4}]

1920 (-1 + 2 p)

Dt[x*Sin[x], {x, 10}]

10 Cos[x] - x Sin[x]

D[5 x^2 + 3 x*y - 2*y^2 + 2, {{x, y}}]

{10 x + 3 y, 3 x - 4 y}

xt := 5*Cos[2*Pi*t]

D[xt, t]

-10 \[Pi] Sin[2 \[Pi] t]

D[xt, {t, 2}]

-20 \[Pi]^2 Cos[2 \[Pi] t]

Solve[10 == s/t && s == (3*t^2)/2, {s, t}]

{{s -> 200/3, t -> 20/3}}

Plot[y = Sin[x]*Cos[x], {x, 0, 2 Pi},
 Ticks -> {Range[0, Pi, Pi/4], Automatic}, AspectRatio -> 3/1,
 GridLines -> Automatic, AxesLabel -> {osy, osx}, PlotLabel -> "Chart"]



Plot[{Sin[x], Cos[x], Sin[x]*Cos[x], Abs[Sin[x]]}, {x, -Pi, Pi}]



Plot[{Sin[x], Cos[x], Sin[x] Cos[x], Abs[Sin[x]]}, {x, -\[Pi], \[Pi]},
  PlotStyle -> {{Red, Thickness[0.001]}, {Yellow}, {Blue}, {Green,
    Dashed}}, PlotLegends -> Automatic, AxesLabel -> {lx, ly},
 Background -> Lighter[Gray, 0.5]]



Plot[y = Log[Cos[3 x]^2], {x, 0, 10}]



ParametricPlot3D[{Cos[t]*Sin[t], Sin[t]*Cos[u], Sqrt[t]}, {t, 0,
  2*Pi}, {u, -Pi, Pi}]



ParametricPlot[{Cos[u], Sin[u]*Cos[u]}, {u, -2, 2}]



zp := (3 + 4 I)/(5 + 2 I)

Im[zp]

14/29

Re[zp]

23/29

Conjugate[zp]

23/29 - (14 I)/29

Abs[zp]

5/Sqrt[29]

a = {1, 2}
b = {4, 5}
c = {7, 4}
d = {4, 4}

{1, 2}

{4, 5}

{7, 4}

{4, 4}

VectorQ[b]

True

h = MatrixForm[{4, 6}]

\!\(
TagBox[
RowBox[{"(", "",
TagBox[GridBox[{
{"4"},
{"6"}
},
GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}, "Items" -> {},
        "ItemsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.5599999999999999]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}, "Items" -> {},
        "ItemsIndexed" -> {}}],
Column], "", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]]\)

NSolve[x^6 == 1, x]

{{x -> -1.}, {x -> -0.5 - 0.866025 I}, {x -> -0.5 + 0.866025 I}, {x ->
    0.5 - 0.866025 I}, {x -> 0.5 + 0.866025 I}, {x -> 1.}}

mg := {{1, Cos[tx], Cos[ty]}, {Cos[tx], 1, Cos[tz]}, {Cos[ty],
   Cos[tz], 1}}

MatrixForm[mg]

\!\(
TagBox[
RowBox[{"(", "", GridBox[{
{"1",
RowBox[{"Cos", "[", "tx", "]"}],
RowBox[{"Cos", "[", "ty", "]"}]},
{
RowBox[{"Cos", "[", "tx", "]"}], "1",
RowBox[{"Cos", "[", "tz", "]"}]},
{
RowBox[{"Cos", "[", "ty", "]"}],
RowBox[{"Cos", "[", "tz", "]"}], "1"}
},
GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
       "Rows" -> {{Baseline}}, "RowsIndexed" -> {}, "Items" -> {},
       "ItemsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]},
Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}, "Items" -> {},
       "ItemsIndexed" -> {}}], "", ")"}],
Function[BoxForm`e$,
MatrixForm[BoxForm`e$]]]\)

Det[mg]

1 - Cos[tx]^2 - Cos[ty]^2 + 2 Cos[tx] Cos[ty] Cos[tz] - Cos[tz]^2

lw = {};
For[i = -31, i < 50, i += 1;
 AppendTo[lw, {N[i], 2 i}];]

MatrixForm[lw]




ListLinePlot[lw]
ListPlot[lw]
ListContourPlot[lw]
Histogram[lw]









listaRand = RandomInteger[10, {1, 100}]

{{0, 5, 7, 2, 7, 0, 2, 2, 10, 3, 7, 6, 6, 7, 8, 1, 9, 1, 9, 10, 3, 0,
  0, 4, 3, 4, 6, 3, 1, 8, 4, 8, 9, 4, 7, 1, 3, 10, 5, 9, 7, 1, 9, 8,
  0, 3, 6, 3, 5, 10, 0, 6, 7, 7, 6, 5, 5, 2, 9, 7, 2, 0, 2, 1, 5, 10,
  8, 10, 10, 5, 0, 2, 3, 7, 2, 5, 9, 1, 2, 2, 4, 1, 4, 8, 0, 9, 1, 7,
  8, 5, 2, 6, 8, 4, 2, 10, 4, 5, 10, 7}}

ListPlot[listaRand]



rok := 2015
A := 24
B := 5
rA := Mod[rok, 19]
rB := Mod[rok, 4]
rC := Mod[rok, 7]
rD := Mod[rA*19 + A, 30]
rE := Mod[2*rB + 4*rC + 6*rD + B, 7]
DataW := rD + rE + 22
If[DataW <= 31, Print["Marzec " DataW], DataW -= 31;
 Print[DataW "Kwiecien"]]

5 Kwiecien

lww = {};
For[f = 2001, f < 2100, f += 1, Print[f];
 A := 24;
 B := 5; rA := Mod[f, 19]; rB := Mod[f, 4];
 rC := Mod[f, 7];
 rD := Mod[rA*19 + A, 30];
 rE := Mod[2*rB + 4*rC + 6*rD + B, 7];
 DataW := rD + rE + 22;
 If[DataW < 32, AppendTo[lww, {DataW, "Marzec ", f}], DataW -= 31;
  AppendTo[lww, {DataW, "Kwiecien ", f}]]; Print[lww]]
MatrixForm[lww]