mu<-0.4 #coeficiente
g<-9.8#m/s²
m<-50 #kg
te<-30*pi/180 #angulo

F=mu*m*g/(cos(te)+mu*sin(te))
N=m*g/(1+mu*tan(te))
cat("Tensión:",F,"\n")
cat("Reacción:",N,"\n")