 
--> exec('E:\My program EM\5. Friction\5.1.sce', -1)

Phor=1250 N
Pinc=1210 N