%% Harj. 1 teht. 14, H1T14R.m monikulmio,ympyra, ympyran kuva. %% a) x=linspace(-2*pi,2*pi); plot(x,cos(x),'r',x,sin(x),'b') shg %% b) t=linspace(0,2*pi); x=cos(t); y=sin(t); plot(x,y) hold on t=linspace(0,2*pi,10); plot(cos(t),sin(t),'r') axis square shg %% close all t=linspace(0,2*pi); x=cos(t); y=sin(t); T=[cos(t);sin(t)]; % Vrt. Strangin talo A4=[1 3;0 1] % 'Horisontal shear' S=A4*T; plot(T(1,:),T(2,:),S(1,:),S(2,:)) axis equal %axis square % Ei toimi, kosk figure plot(T(1,:),T(2,:)) axis square; shg figure plot(S(1,:),S(2,:)) axis square shg