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));

本作品已被作者ButterStick释出到公有领域。这适用于全世界。 在一些国家这可能不合法；如果是这样的话，那么： ButterStick无条件地授予任何人以任何目的使用本作品的权利，除非这些条件是法律规定所必需的。

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)