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