File talk:Civil Air Ensign of Australia.svg

Original source

The R source code used to create the SVG transformation matrices originally used by Butterstick are shown below:

R <- matrix(c(cos(pi/4),sin(pi/4),0,-sin(pi/4),cos(pi/4),0,0,0,1),3,3);
t <- pi/4
k <- sin(t); <!--the same as cos pi/4-->
<!--k <- 1/sqrt(2); or atan(2) ?-->
z <- (((1/10)/sin(t))*sin((pi/2)-t))-(1/24)
y <- matrix (0,2,1)
y[1]<-16.5*cos(t);
y[2]<-16.5*sin(t);
A <- diag(1,3);
B <- diag(1,3);
C <- diag(1,3);
D <- diag(1,3);
E <- diag(1,3);
A[1,3] <- 8.5+y[1]*(z+(1/3));
A[2,3] <- y[2]*(z+(1/3));
C[1,3] <- 8.5+y[1]*-((1/3)-z);
C[2,3] <- y[2]*-((1/3)-z);
E[1,3] <- 8.5+y[1]*(z+(1/24))+16.5*(1/10)*cos(t);
E[2,3] <- y[2]*(z+(1/24))-16.5*(1/10)*sin(t); <!--Formally this should be zero-->
B[1,3] <- 8.5+(y[1]*-((1/16)-z))-(16.5*(1/4)*sin(t));
B[2,3] <- (y[2]*-((1/16)-z))+(16.5*(1/4)*cos(t));
D[1,3] <- 8.5+(y[1]*-(((1/16)+(1/15))-z))+(16.5*(2/9)*sin(t));
D[2,3] <- (y[2]*-(((1/16)+(1/15))-z))-(16.5*(2/9)*cos(t));

This work has been released into the public domain by its author, ButterStick. This applies worldwide. In some countries this may not be legally possible; if so: ButterStick grants anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.

Removing "Source"

Is this section really necessary now? The file does not now rely on this code, but knowing little about R, I'm not sure if the PD code Butterstick used is worth keeping or not. My initial impression is not, but I don't want to remove it if it would be useful in future. NikNaks _{talk - gallery - wikipedia} 21:46, 22 February 2012 (UTC)

All I did was add minimal formatting for readability. Move here to talk page if no longer really relevant, delete if factually incorrect... AnonMoos (talk) 06:56, 23 February 2012 (UTC)