KX-9018 源代码

function [kx,BsJ]=pid_fm_gaf(kx,BsJ) global rin yout timef F a=50;b=400; ts=0.001; sys=tf(b,[1,a,0]); dsys=c2d(sys,ts,'z')…

// serpent.cpp - written and placed in the public domain by Wei Dai #include "pch.h" #include "serpent.h" #include "misc.h" …

function [kx,BsJ]=pid_fm_gaf(kx,BsJ) global rin yout timef F a=50;b=400; ts=0.001; sys=tf(b,[1,a,0]); dsys=c2d(sys,ts,'z')…

module Euler !!!!!!!!!!!!!!!!!!!!!module中的变量及常量!!!!!!!!!!!!!!!!!!!!!!!! implicit none !private x,y,U,F,G,JJ,R integer,par…

module Euler !!!!!!!!!!!!!!!!!!!!!module中的变量及常量4!!!!!!!!!!!!!!!!!!!!!!!! implicit none !private x,y,U,F,G,JJ,R integer,pa…

function [spec,kx]=reduce_kx(inspec,v,inkx,w,dip); %[spec,kx]=reduce_kx(inspec,vel,inkx,f,dip); % %Reduces the number of kx values…

function fm_tcsc(flag) % FM_TCSC defines Synchronous Machines % % FM_TCSC(FLAG) % FLAG = 0 initializations % FLAG = 1…

function y=kernel_density(x,xdat,b,method) %画核密度函数图，其中b为窗宽 %xmin=min(xdat); %xmax=max(xdat); %band=(xmax-xmin)/1000; %x=xmi…

function [f,df,x]=rsgeno(N,rL,kl,ku,us,seed); %rsgeno generates 1D random rough surfaces with bandlimited ocean spectrum. % % …

n=[0:1:99]; xn=cos(3*pi/59*n); Xk=fft(xn); kx=[0:1:length(Xk)-1]; subplot(2,1,1); stem(n,xn); subplot(2,1,2); stem(kx,abs(X…