1 files changed, 25 insertions, 0 deletions
diff --git a/278/CH10/EX10.16/ex_10_16.sce b/278/CH10/EX10.16/ex_10_16.sce
new file mode 100755
index 000000000..65cd4e992
--- /dev/null
+++ b/278/CH10/EX10.16/ex_10_16.sce
@@ -0,0 +1,25 @@
+//find size of fillet welds at top and bottom
+clc
+//solution
+//given
+//ref fig 10.34
+P=15000//N
+t=150//N/mm^2
+l=25//mm
+//Pva+Pvb=P,Pva=Pvb
+Pva=P/2//N
+Pvb=P/2//N
+//balnce moments abt B
+Pha=(P*50)/75//N
+//let s1 be size at top
+Pa=sqrt(Pva^2+Pha^2)//N
+printf("the value of force at A is,%f N\n",Pa)
+//Pa=thorat area* permissible stress
+//Pa=0.707*s1*l*t=0.707*s1*25*150=2650*s1
+s1=Pa/2650//mm
+printf("the size of weld at top is,%f mm\n",s1)
+//let s2 be size at bottom
+//Pvb=0.707*s2*l*t
+//Pvb=2650*s2
+s2=Pvb/2650//mm
+printf("the size of weld at bottom is,%f mm\n",s2)
+\ No newline at end of file