xxxxxxxxxx
Xmin = -1.5
Xmax = 1.5
Ymin = -1.5
Ymax = 1.5
traceG()
traceX()
traceY()
// Le carré initial
A = [1,1]
B = [-1,1]
C = [-1,-1]
D = [1,-1]
texte("O",[-0.12,-0.12])
point(A);texte("A",[1.05,1.05])
point(B);texte("B",[-1.15,1.05])
point(C);texte("C",[-1.15,-1.15])
point(D);texte("D",[1.05,-1.15])
trait = 2
segment(A,B)
segment(A,D)
segment(C,B)
segment(C,D)
// La fonction de transformation
function transf(P,a,k){
xxxxxxxxxx
Xmin = -1
Xmax = 1
Ymin = -1
Ymax = 1
// Le carré initial
var A = [1,1]
var B = [-1,1]
var C = [-1,-1]
var D = [1,-1]
segment(A,B)
segment(A,D)
segment(C,B)
segment(C,D)
// La fonction de transformation
function transf(P,a,k){
var Q = [0,0]
modP = racineCarrée(P[0]*P[0]+P[1]*P[1])
cosaP = P[0]/modP
sinaP = P[1]/modP
Q[0] = modP*k*( cosaP*cos(a)-sinaP*sin(a) )