Differences

This shows you the differences between two versions of the page.

--- supp:octave:contrib:arrow:start [2016/04/10 19:59] – [Arrow Vector] admin
+++ supp:octave:contrib:arrow:start [2018/11/12 13:01] – [turn.m] admin
@@ Line 133: / Line 133: @@
 </file>
-===== turn.m =====
+<file>
+## Copyright (C) 2018 rolf.becker
-Rotate three vectors by means of rotation matrix.
-<file octave turn.m>
-## Copyright (C) 2011 rolf.becker
 ##
 ## This program is free software; you can redistribute it and/or modify
@@ Line 157: / Line 152: @@
 ## turn
-## Author: rolf.becker <rolf.becker@NB-RB>
+## Author: rolf.becker <rolf.becker@hsrw.eu>
-## Created: 2011-04-04
+## Created: 2018-11-12
 function [ ret ] = turn ()
@@ Line 176: / Line 171: @@
 	for i=0:n
 		arrow(Z,M,scl,sty,lw)
+		axis([-5 5 -5 5])
+		axis square
 		hold on
 		arrow(M,M+P1,scl,sty,lw)
@@ Line 181: / Line 178: @@
 		hold off
 		grid on
-		axis([-5 5 -5 5])
 		set(gca,"fontsize",24,"xtick",-5:5,"ytick",-5:5)
-		axis equal
-		axis square
 %		title("Rotating Vectors");
 		xlabel("x");
@@ Line 192: / Line 186: @@
 		P1=R*P1;
 		P2=R*P2;
-		sleep(0.001);
+		sleep(0.1);
 	endfor
 endfunction
 </file>