Zadanie A2

l[q0_,q1_]:=Norm[q0-q1];
krok[q0_,q1_]:={q0,((2q0+q1)/3),((q0+q1)/2)+l[((2q0+q1)/3),((q0+2q1)/3)]*{(((q0-q1)[[2]])/(l[q0,q1])),-(((q0-q1)[[1]])/(l[q0,q1]))},((q0+2q1)/3),q1};

Graphics[Line[{krok[{1,2},{8,1}]}]]

Zadanie B3

afiniczne[θ_,ψ_,r_,s_,a_,b_]:=AffineTransform[{{{r Cos[θ],-s Sin[ψ]},{r Sin[θ],s Cos[ψ]}},{a,b}}]

Zadanie B5

miasto[{{x_,y_,z_},{p_,q_,r_}}]:={{{(5/18)x+1,(5/24)y+1,(7/12)z},{(5/18)p+1,(5/24)q+1,(7/12)r}}, 
{{(5/18)x+1,(2/3)y+7,(5/12)z},{(5/18)p+1,(2/3)q+7,(5/12)r}},{{(5/18)x+7,(2/3)y+1,(1/4)z},{(5/18)p+7,(2/3)q+1,(1/4)r}},{{(5/18)x+13,(7/24)y+1,(1/6)z},{(5/18)p+13,(5/24)q+1,(1/6)r}},{{(5/18)x+13,(5/24)y+18,(13/24)z},{(5/18)p+13,(5/24)q+18,(13/24)r}}}