Manipulate[
g=9.8*10^-1;
u[x_]:=If[x>0,1,0];
U[x_]:=If[x>0,0,1];
(*斜面上*)
x1[t_]:=(-Sqrt[3]+(g*Sqrt[3]/8)*t^2)*U[t-Sqrt[8/g]];
y1[t_]:=(1.1-(g/8)*t^2)*U[-Sqrt[8/g]+t];
       (*平面上*)
t1=t-Sqrt[8/g];
x2[t1_]:=Sqrt[2*g]*t1*u[t1]*U[t1-6/Sqrt[2*g]];
y2[t1_]:=0.1*u[t1]*U[t1-6/Sqrt[2*g]];
c1[t1_]:=Sqrt[2*g]*t1*u[t1]*U[t1+Sqrt[8/g]-8];
c2[t1_]:=c1[-Sqrt[8/g]+8]*u[t1+Sqrt[8/g]-8]*U[t1-6/Sqrt[2*g]-2(4/Sqrt[2*g]-0.1)];
c3[t2_]:=(c2[6/Sqrt[2*g]+2(4/Sqrt[2*g]-0.1)]-Sqrt[2*g]t2)u[t2-2(4/Sqrt[2*g]-0.1)];
(*壁衝突*)
t2=t1-6/Sqrt[2*g];
x3[t2_]:=If[t2<((4/Sqrt[2*g])-0.1),Sqrt[2*g]*t2+6,-Sqrt[2*g]*t2+13.9-0.1*Sqrt[2*g]]*u[t2]*U[t2-((13.7-0.1*Sqrt[2*g])/Sqrt[2*g])]
;
y3[t2_]:=(0.1-0.5*g*t2^2)*u[t2]*U[t2-Sqrt[2*19.7/g]];
d1[t2_]:=-0.5*g*t2^2*u[t2]*U[t2-Sqrt[2*19.7/g]];
(*板上*)
x4[t2_]:=0.2*u[t2-((13.7-0.1*Sqrt[2*g])/Sqrt[2*g])];
y4[t2_]:=-19.5*u[t2-Sqrt[2*19.7/g]];
(*2nd*)
t3=t2-((13.7-0.1*Sqrt[2*g])/Sqrt[2*g]);
x5[t3_]:=-Sqrt[2*g]*t3*u[t3]*U[t3-10/Sqrt[2*g]];
y5[t3_]:=-19.5*U[t3-10/Sqrt[2*g]];
(*壁2*)
t4=t3-10/Sqrt[2*g];
x6[t4_]:=If[t4<10/Sqrt[2*g],(-Sqrt[2*g]*t4-10),Sqrt[2*g]t4-30]*u[t4]*U[t4-20/Sqrt[2*g]];
y6[t4_]:=(-19.5-0.5*g*t4^2)*u[t4]*U[t4-Sqrt[61/g]];
(*反発*)
t5=t4-Sqrt[61/g];
y7[t5_]:=(-50+4If[Sin[4t5]<0,-Sin[4t5],Sin[4t5]]*0.5^(Ceiling[4t5/Pi]))*u[t5]*U[t4-20/Sqrt[2*g]-20];
(*摩擦*)
t6=t4-20/Sqrt[2*g];
x8[t6_]:=(-(g/(2*20))t6^2+Sqrt[2*g]*t6-10)*u[t6]*U[t6-20Sqrt[2/g]]+10u[t6-20Sqrt[2/g]];
y8[t6_]:=-50*u[t6-20];
(*振り子*)
t7=t6-20Sqrt[2/g];
l=g*(20/Pi)^2;
x9[t7_]:=(15.2-5*Cos[Sqrt[g/l]*t7])*u[t7]+10.2*U[t7];
y9[t7_]:=(-50-Sqrt[l^2-(5Cos[Sqrt[g/l]*t7])^2]+Sqrt[l^2-25])*u[t7]+-50*U[t7];
(*斜面2*)
t8=t7-Pi*Sqrt[l/g];
x10[t8_]:=20.4*U[t8]+(20.4+0.5g*Sin[Pi/6]*Cos[Pi/6]t8^2)*u[t8]*U[t8-Sqrt[(2Sqrt[3]+0.1)/(0.5g*Cos[Pi/6]^2)]];
y10[t8_]:=-50*U[t8]+(-50-(0.5g*Cos[Pi/6]^2)t8^2)u[t8]U[t8-Sqrt[(2Sqrt[3]+0.1)/(0.5g*Cos[Pi/6]^2)]];
(*平面2*)
t9=t8-Sqrt[(2Sqrt[3]+0.1)/(0.5g*Cos[Pi/6]^2)];
x11[t9_]:=(22.3+2Sqrt[g*Sqrt[3]]t9)*u[t9]*U[t9-5/Sqrt[g*Sqrt[3]]];
y11[t9_]:=(-50-2Sqrt[3])*u[t9]*U[t9-5/Sqrt[g*Sqrt[3]]];
(*斜面3*)
t10=t9-5/Sqrt[g*Sqrt[3]];
a=2Sqrt[2Sqrt[3]/g]-Sqrt[8Sqrt[3]/g-4/g];
x12[t10_]:=(32.3-(g/4)t10^2+Cos[Pi/4]2Sqrt[g*Sqrt[3]]t10)*u[t10]U[t10-2Sqrt[2Sqrt[3]/g]+Sqrt[8Sqrt[3]/g-4/g]];
y12[t10_]:=(-50-2Sqrt[3]-(g/4)t10^2+Sin[Pi/4]2Sqrt[g*Sqrt[3]]t10)*u[t10]U[t10-2Sqrt[2Sqrt[3]/g]+Sqrt[8Sqrt[3]/g-4/g]];
(*斜方投射*)
t11=t10-2Sqrt[2Sqrt[3]/g]+Sqrt[8Sqrt[3]/g-4/g];
x13[t11_]:=(33.3+(-0.5g*a+Cos[Pi/4]2Sqrt[g*Sqrt[3]])t11)*u[t11]*U[t11-5];
y13[t11_]:=(-49.1-2Sqrt[3]-0.5g*t11^2+(-0.5g*a+Sin[Pi/4]2Sqrt[g*Sqrt[3]])t11)*u[t11]*U[t11-10];
(*衝突*)
t12=t11-5;
x14[t12_]:=(33.3+(-0.5g*a+Cos[Pi/4]2Sqrt[g*Sqrt[3]])5)*u[t12];
(*End*)
t13=t11-10;
y14[t13_]:=(y13[10]+If[t13<30,4*If[Sin[1.5t13]<0,-Sin[1.5t13],Sin[1.5t13]]*0.7^(Ceiling[1.5t13/Pi]),0])*u[t13];
cf[t13_]:=If[t13-30<1.9,(t13-30)u[t13-30],1.9]*u[t13-30];
c[t13_]:=y13[10]*u[t13];
board={Blue,Disk[{x13[5],y13[5]},{2,3}]};
board2={White,Disk[{x13[5],y13[5]},{4/3,2}]};
board3={Yellow,Disk[{x13[5],y13[5]},{2/3,1}]};
board4={Red,Disk[{x13[5],y13[5]},{0.1,0.3/2}]};
z={Green,Polygon[{{x13[5]+0.1,y13[10]-0.1},{x13[5]-0.1,y13[10]-0.1},{x13[5]-0.1,y13[10]-0.7},{x13[5]+0.1,y13[10]-0.7}}]};
z1={Green,Polygon[{{x13[5]-0.4,y13[10]+0.1},{x13[5]-0.9,y13[10]+0.1},{x13[5]-0.9,y13[10]-0.7},{x13[5]-0.7,y13[10]-0.7},{x13[5]-0.7,y13[10]-0.5},{x13[5]-0.5,y13[10]-0.5},{x13[5]-0.5,y13[10]-0.3},{x13[5]-0.7,y13[10]-0.3},{x13[5]-0.7,y13[10]-0.1},{x13[5]-0.4,y13[10]-0.1}}]};
z3={Green,Polygon[{{x13[5]+0.3,y13[10]-0.15},{x13[5]+0.3,y13[10]-0.7},{x13[5]+0.5,y13[10]-0.7},{x13[5]+0.5,y13[10]-0.3},{x13[5]+0.6,y13[10]-0.3},{x13[5]+0.6,y13[10]-0.7},{x13[5]+0.8,y13[10]-0.7},{x13[5]+0.8,y13[10]-0.2},{x13[5]+0.5,y13[10]-0.2},{x13[5]+0.5,y13[10]-0.15}}]};
baseline1={Blue,Polygon[{{-Sqrt[3],1},{0,0},{6,0},{6,-0.2},{-Sqrt[3],-0.2}}]};
wall=Polygon[{{10,4},{10,-4},{14,-4},{14,4}}];
wall2=Polygon[{{-20.1,-43},{-20.1,-45},{-20.3,-45},{-20.3,-43}}];
path={Blue,Polygon[{{6,-19.6},{-10,-19.6},{-10,-19.8},{6,-19.8}}]};
mark1={White,Disk[{-4,-17.4},0.4]};
mark2={White,Disk[{-4.4,-17.4},0.4]};
mark3={White,Disk[{-4.8,-17.4},0.4]};

mark4={White,Disk[{0.4,-48.3},0.4]};
mark5={White,Disk[{0,-48.3},0.4]};
mark6={White,Disk[{-0.4,-48.3},0.4]};
mark7={White,Disk[{5,-48.5},0.4]};
mark8={White,Disk[{5.5,-48.5},0.4]};
mark9={White,Disk[{4.5,-48.5},0.4]};

path2={Green,Polygon[{{-10,-50.1},{-21,-50.1},{-21,-51},{-10,-51}}]};
path3={Darker[Purple],Polygon[{{10.2,-50.1},{-10,-50.1},{-10,-51},{10.2,-51}}]};
path4={Blue,Polygon[{{20.3,-50.1},{22.3,-50.1-2Sqrt[3]},{20.3,-50.1-2Sqrt[3]}}]};
path5={Blue,Polygon[{{22.3,-50.1-2Sqrt[3]},{32.3,-50.1-2Sqrt[3]},{32.3,-50.2-2Sqrt[3]},{22.3,-50.2-2Sqrt[3]}}]};
path6={Blue,Polygon[{{32.3,-50.1-2Sqrt[3]},{33.3,-50.1-2Sqrt[3]},{33.3,-49.1-2Sqrt[3]}}]};

thread={White,Line[{{x9[t7],y9[t7]},{15.2,-50+Sqrt[l^2-25]}}]};
ball={Red,Disk[{x1[t]+x2[t1]+x3[t2]+x4[t2],y1[t]+y2[t1]+y3[t2]+y4[t2]},0.1]};
sh={Darker[Red],Disk[{x1[t-0.1]+x2[t1-0.1]+x3[t2-0.1]+x4[t2-0.1],y1[t-0.1]+y2[t1-0.1]+y3[t2-0.1]+y4[t2-0.1]},0.1]};
sh2={Black,Disk[{x1[t-0.2]+x2[t1-0.2]+x3[t2-0.2]+x4[t2-0.2],y1[t-0.2]+y2[t1-0.2]+y3[t2-0.2]+y4[t2-0.2]},0.1]};
ball2={Orange,Disk[{x5[t3]+x6[t4]+x8[t6],y5[t3]+y6[t4]+y7[t5]+y8[t6]},0.1]};
sh3={Darker[Orange],Disk[{x5[t3-0.1]+x6[t4-0.1]+x8[t6-0.1],y5[t3-0.1]+y6[t4-0.1]+y7[t5-0.1]+y8[t6-0.1]},0.1]};
sh4={Black,Disk[{x5[t3-0.2]+x6[t4-0.2]+x8[t6-0.2],y5[t3-0.2]+y6[t4-0.2]+y7[t5-0.2]+y8[t6-0.2]},0.1]};

ball3={Yellow,Disk[{x9[t7],y9[t7]},0.1]};
sh5={Darker[Yellow],Disk[{x9[t7-0.1],y9[t7-0.1]},0.1]};
sh6={Black,Disk[{x9[t7-0.2],y9[t7-0.2]},0.1]};
ball4={Green,Disk[{x10[t8]+x11[t9]+x12[t10]+x13[t11]+x14[t12],y10[t8]+y11[t9]+y12[t10]+y13[t11]+y14[t13]},0.1]};
sh7={Darker[Green],Disk[{x10[t8-0.1]+x11[t9-0.1]+x12[t10-0.1]+x13[t11-0.1]+x14[t12-0.1],y10[t8-0.1]+y11[t9-0.1]+y12[t10-0.1]+y13[t11-0.1]+y14[t13-0.1]},0.1]};
sh8={Black,Disk[{x10[t8-0.2]+x11[t9-0.2]+x12[t10-0.2]+x13[t11-0.2]+x14[t12-0.2],y10[t8-0.2]+y11[t9-0.2]+y12[t10-0.2]+y13[t11-0.2]+y14[t13-0.2]},0.1]};
bg[t_]:={0.87,0.94,1}U[t-17];
bg2[t_]:={0.87+(1-0.87)*((t-17)/22),0.94-(0.94-2/3)*((t-17)/22),1-(1-1/3)((t-17)/22)}*u[t-17]*U[t-39];
bg3[t_]:={1-(1-2/3)*((t-39)/29),2/3,1/3+(1-1/3)((t-39)/29)}*u[t-39]*U[t-68];
bg4[t_]:={2/3+(1/4-2/3)*((t-68)/18),2/3+(1/3-2/3)*((t-68)/18),1+(0.6-1)((t-68)/18)}*u[t-68]*U[t-86];
bg5[t_]:={1/4+(0.3-1/4)*((t-86)/13),1/3+(0.3-1/3)*((t-86)/13),0.6+(0.4-0.6)((t-86)/13)}*u[t-86]*U[t-99];
bg6[t_]:={0.3+(0.25-0.3)*((t-99)/8),0.3+(0.25-0.3)*((t-99)/8),0.4+(0.25-0.4)((t-99)/8)}*u[t-99]U[t-107];
bg7[t_]:={0.25-0.25*((t-107)/27),0.25-0.25*((t-107)/27),0.25-0.25((t-107)/27)}*u[t-107];

Graphics[{board,board2,board3,board4,mark1,mark2,mark3,mark4,mark5,mark6,mark7,mark8,mark9,sh8,sh7,sh6,sh5,sh4,sh3,sh2,sh,z3,z1,z,thread,ball,ball2,ball3,ball4,baseline1,path,path2,path3,path4,path5,path6,{Darker[Brown],wall,wall2}},{Background->RGBColor[bg[t]+bg2[t]+bg3[t]+bg4[t]+bg5[t]+bg6[t]+bg7[t]],AspectRatio->1,PlotRange->{{-3+x1[t]+x2[t1]+x3[t2]+x4[t2]U
[t2-((13.7-0.1*Sqrt[2*g])/Sqrt[2*g])]+x5[t3]u[t2-((13.7-0.1*Sqrt[2*g])/Sqrt[2*g])]+x6[t4]+x8[t6]U[t6-20Sqrt[2/g]]+x9[t7]u[t6-20Sqrt[2/g]]U[t7-Pi*Sqrt[l/g]]+x10[t8]u[t7-Pi*Sqrt[l/g]]+x11[t9]+x12[t10]+x13[t11]+x14[t12]+cf[t13],3+x1[t]+x2[t1]+x3[t2]+x4[t2]U
[t2-((13.7-0.1*Sqrt[2*g])/Sqrt[2*g])]+x5[t3]u[t2-((13.7-0.1*Sqrt[2*g])/Sqrt[2*g])]+x6[t4]+x8[t6]U[t6-20Sqrt[2/g]]+x9[t7]u[t6-20Sqrt[2/g]]U[t7-Pi*Sqrt[l/g]]+x10[t8]u[t7-Pi*Sqrt[l/g]]+x11[t9]+x12[t10]+x13[t11]+x14[t12]-cf[t13]},{-3+y1[t]+y2[t1]+y3[t2]+y4[t2]U
[t2-((13.7-0.1*Sqrt[2*g])/Sqrt[2*g])]+y5[t3]u[t2-((13.7-0.1*Sqrt[2*g])/Sqrt[2*g])]+y6[t4]+y7[t5]+y8[t6]U[t6-20Sqrt[2/g]]+y9[t7]u[t6-20Sqrt[2/g]]U[t7-Pi*Sqrt[l/g]]+y10[t8]u[t7-Pi*Sqrt[l/g]]+y11[t9]+y12[t10]+y13[t11]+c[t13]+cf[t13],3+y1[t]+y2[t1]+y3[t2]+y4[t2]U
[t2-((13.7-0.1*Sqrt[2*g])/Sqrt[2*g])]+y5[t3]u[t2-((13.7-0.1*Sqrt[2*g])/Sqrt[2*g])]+y6[t4]+y7[t5]+y8[t6]U[t6-20Sqrt[2/g]]+y9[t7]u[t6-20Sqrt[2/g]]U[t7-Pi*Sqrt[l/g]]+y10[t8]u[t7-Pi*Sqrt[l/g]]+y11[t9]+y12[t10]+y13[t11]+c[t13]-cf[t13]}}}],{t,0,Sqrt[8/g]+6/Sqrt[2*g]+(13.7-0.1*Sqrt[2*g])/Sqrt[2*g]+10/Sqrt[2*g]+20/Sqrt[2*g]+20Sqrt[2/g]+Pi*Sqrt[l/g]+Sqrt[(2Sqrt[3]+0.1)/(0.5g*Cos[Pi/6]^2)]+5/Sqrt[g*Sqrt[3]]+2Sqrt[2Sqrt[3]/g]-Sqrt[8Sqrt[3]/g-4/g]+100,0.1}
]

a1x[t_]:=g*Sin[Pi/6]*Sin[Pi/3];
a1y[t_]:=-g*Sin[Pi/6]*Cos[Pi/3];
DSolve[{1x''[a]==a1x[a],1x[0]==-Sqrt[3],1x'[0]==0},1x[a],a]
DSolve[{1y''[a]==a1y[a],1y[0]==1,1y'[0]==0},1y[a],a]

N[g*Sqrt[3]/8]

N[g/8]

0.01225`
N[y6[0.01225]]

N[y6[25]]

Plot[y6[a],{a,0,50}]

w=1;

a[x_]:=-19.5-0.5*g*x^2;

D[a[Sqrt[61/g]]]

N[a[Sqrt[61/g]]]

Plot[{x9[x],y9[x]},{x,0,100}]

?l

N[y13[10]]

-49.9-2Sqrt[3]

ArcSin[Sqrt[1-(5/l)^2]]