//ques4.1
//clear
//cd SCI
//cd ("..")
//cd ("..")
//exec symbolic.sce 
clc
disp(' we have to find yn for F=cosxcos2xcos3x ');
syms x
F=cos(x)*cos(2*x)*cos(3*x);
n=input('Enter the order of differentiation ");
disp('calculating  yn ');
yn=diff(F,x,n)
disp('the expression for yn is ');
disp(yn);