2017.4.22 GGB筆記
2017.4.22 GGB筆記
f(x)=if[x<2,sin(x),cos(2x)]
g(x)=if[x<2,x^2,if[x>5,sin(3x),3]]
h(x)=if[x<=2,0,if[x>=3,1,x-2]]
k1=if[k<=0,0,if[k>=1,1,k-0]]
k2=if[k<=1,0,if[k>=2,1,k-1]]
k3=if[k<=2,0,if[k>=3,1,k-2]]
k4=if[k<=3,0,if[k>=4,1,k-3]]
k5=if[k<=4,0,if[k>=5,1,k-4]]
k6=if[k<=5,0,if[k>=6,1,k-5]]
k7=if[k<=6,0,if[k>=7,1,k-6]]
k8=if[k<=7,0,if[k>=8,1,k-7]]
k9=if[k<=8,0,if[k>=9,1,k-8]]
k10=if[k<=9,0,if[k>=10,1,k-9]]
B=C+(a,0)
A=C+(0,b)
Translate[Polygon[{A, C, B}],k2*Vector[C,D]]
Rotate[ Polygon[{A, C, B}],pi/2, C ]
Translate[Rotate[ Polygon[{A, C, B}],k2*pi/2, C ],k2*Vector[C,E]]
Translate[Rotate[ Polygon[{A, C, B}],k3*pi, C ],k3*Vector[C,F]]
Translate[Rotate[ Polygon[{A, C, B}],k4*-pi/2, C ],k4*Vector[C,G]]
Translate[Polygon[{A, C, B}],k5*Vector[C,H]]
Translate[Rotate[ Polygon[{A, C, B}],k6*pi, C ],k6*Vector[C,H+(a,b)]]
Translate[Rotate[ Polygon[{A, C, B}],k7*pi/2, C ],k7*Vector[C,I+(0,b)]]
Translate[Rotate[ Polygon[{A, C, B}],k8*-pi/2, C ],k8*Vector[C,K+(a,0)]]
多加外框
Translate[Polyline[{A, C, B,A}],k1*Vector[C,D]]
Rotate[ Polyline[A, C, B,A],pi/2, C ]
Translate[Rotate[ Polyline[A, C, B,A],k2*pi/2, C ],k2*Vector[C,E]]
Translate[Rotate[ Polyline[A, C, B,A],k3*pi, C ],k3*Vector[C,F]]
Translate[Rotate[ Polyline[A, C, B,A],k4*-pi/2, C ],k4*Vector[C,G]]
Translate[Polyline[A, C, B,A],k5*Vector[C,H]]
Translate[Rotate[ Polyline[A, C, B,A],k6*pi, C ],k6*Vector[C,H+(a,b)]]
Translate[Rotate[ Polyline[A, C, B,A],k7*pi/2, C ],k7*Vector[C,I+(0,b)]]
Translate[Rotate[ Polyline[A, C, B,A],k8*-pi/2, C ],k8*Vector[C,K+(a,0)]]
等面積平移
Ray[A,A+(1,0)] (水平射線)
Ray[A,A+(0,1)] (垂直射線)
矩形給三點求另一個點 對角兩點相加-另一點
第一塊正方形
P=A+0*u+k2*v+k3*w
Q=C+0*u+0*v+k3*w
R=F+k1*u+0*v+k3*w
S=G+k1*u+k2*v+k3*w
Polygon[{P,Q,R,S}]
第二塊正方形
W=A+0*p+k5*v+k6*w
X=B+0*p+0*v+k6*w
Y=I+k4*p+0*v+k6*w
Z=H+k4*p+k5*v+k6*w
Polygon[{W,X,Y,Z}]