Mercurial > hg > octave-image

view MakeShears.m @ 41:5942b14d6c22 Octave-Forge-2003.02.22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use of "T x[n]" where n is not constant is a g++ extension so replace it with OCTAVE_LOCAL_BUFFER(T,x,n), and other things to keep the picky MipsPRO CC compiler happy.
author pkienzle
date Thu, 20 Feb 2003 23:03:59 +0000
parents c588e9010b49
children
line wrap: on
line source

function [S1, S2] = MakeShears(theta)

S1 = eye(2);
S2 = eye(2);

S1(1,2) = -tan(theta/2);
S2(2,1) = sin(theta);