代码搜索结果

% dm09101 % 观察周期方波信号的分解与合成 % m：傅里叶级数展开的项数 display('Please input the value of m (傅里叶级数展开的项数)'); % 在命令窗口显示提示信息 m = input('m = '); % 键盘输入傅里叶级数展开的项数 t = -2

%dm07205 %观察离散正弦序列的周期性 n=0:40; subplot(2,1,1) stem(n,cos(n*pi/6),'filled') title('cos(n*pi/6)') subplot(2,1,2) stem(n,cos(4*n),'filled') title('cos(4*n)')

%dm07204 %绘制正弦信号时域波形 syms w t f=sym('3*sin((w)*t)') %定义符号表达式 f1=subs(f,'w','pi/2') %变量替换 ezplot(f1,[0,4*pi]) %绘制波形 pause f2=subs(f,'w','pi') ezplo

%dm07102 %利用符号运算绘制连续信号时域波形 syms t f=sym('1+cos(t)') %定义符号表达式 ezplot(f,[-pi,pi]) %绘制符号表达式波形 set(gcf,'color','w') %设置当前图形背景颜色为白色

% dm10201 % 门信号的傅里叶变换 syms t w ; %定义符号变量 ut = sym('Heaviside(t+0.5)-Heaviside(t-0.5)'); %借助阶跃函数定义门函数 subplot(211); ezplot(ut);

% dm10406 % 傅里叶变换的频域卷积定理 dt = 0.005; %设置时间间隔 t = -0.5:dt:0.5; f = Heaviside(t+0.5)-Heaviside(t-0.5); %脉宽为1的门信号 f1 = dt*conv(f,f);

function T=phispan(x,phitype,dilation,uo,a,bord1,bord2,Family,par); % USAGE T=phispan(x,phitype,dilation,uo,a,bord1,bord2) % % This function returns a matrix Tij that contains elements % \phi_j(x_i

real*8 a, pai, pi_ a=1.d-307; print *, a, 1./a; print *, tiny(a), huge(a) b=1.e-39 ; print *, b, 1./b; print *, tiny(b), huge(b) pi =3.14159265358979_8 ; print *, pi ! pi 无双精度定义，仍为单精度。 a =3.

! ------求圆錐体积和表面积------ PROGRAM Example_1_2 REAL :: pi, r, h, v, s pi = 3.141593 PRINT *,'Input radius r and height h ?' READ *, r, h v = pi*h*r**2/3.0 s = pi*r*(r + sqrt(r**2 + h**2))

function imeval clear; % imdesign.m contains dimension, winding, & rating data krc=2; % 1=copper; 2=aluminum % Winding data VL=540; f=60; p=6; m=3; HP=50; S1=54; S2=51; Cs=8; pitch=8; a=1; % Co