Differences

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

--- supp:octave:contrib:arrow:start [2016/04/10 19:58] – [arrow_test.m] admin
+++ supp:octave:contrib:arrow:start [2018/11/12 16:13] (current) – [turn.m] admin
@@ Line 1: / Line 1: @@
-====== Arrow Vector ======
+====== Rotate Vectors and Draw Arrows ======
@@ Line 132: / Line 132: @@
 </file>
 ===== turn.m =====
-Rotate three vectors by means of rotation matrix.
+{{:supp:octave:contrib:arrow:rotate_vectors.png?nolink&400|}}
 <file octave turn.m>
+## Copyright (C) 2018 rolf.becker
-## Copyright (C) 2011 rolf.becker
 ##
 ## This program is free software; you can redistribute it and/or modify
@@ Line 157: / Line 157: @@
 ## 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 176: @@
 	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 183: @@
 		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 191: @@
 		P1=R*P1;
 		P2=R*P2;
-		sleep(0.001);
+		sleep(0.1);
 	endfor
 endfunction
 </file>