x[t_]=t/10;
y[t_]=Cos[t];
z[t_]=Sin[t];
x[s_]=((((10*(Sqrt[101]))/101)*s)/10);
y[s_]=Cos[((10*(Sqrt[101]))/101)*s];
z[s_]=Sin[((10*(Sqrt[101]))/101)*s];
abstou1[t_]=(Sqrt[((((1/10)))^2)+(((-Sin[t]))^2)+(((Cos[t]))^2)]);

abstou2[s_]=√(((((((10*(Sqrt[101]))/101)/10)))^2)+(((-((10*(Sqrt[101]))/101)*Sin[((10*(Sqrt[101]))/101)*s]))^2)+(((((10*(Sqrt[101]))/101)*Cos[((10*(Sqrt[101]))/101)*s]))^2));
Simplify[abstou1[t]]
Simplify[abstou2[s]]
g[t_]=((Sqrt[101])/10);
g[s_]=1;
Plot[g[t],{t,0,25}]
Plot[g[s],{s,0,25}]

abstou[s]