Function BESSJ(N, X) IACC = 40 BIGNO = 10000000000# BIGNI = 0.0000000001 If N < 2 Then Form1.Print "b…
BJ-EPM240 源代码
汇集 BJ-EPM240 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 5580 ClientLeft = 60 Cli…
function r=oumiga(a) n=length(a); x1=zeros(n,1); D=zeros(n,n); L=zeros(n,n); U=zeros(n,n); for i=1:n for j=1:n …
function [x,st]=jac(a,b,n,x1) D=zeros(n,n); L=zeros(n,n); U=zeros(n,n); for i=1:n for j=1:n if j==i …
#include int main(){ int n, m; int a[200], b[200], sa, sb; int bi, bj, bs; while (scanf("%d%d", &n, &m) !=…
ssj_reqi ssj_req (pt, g, freq, sigma, b, loss, ... pj, bj, gj, lossj)
#include #include #define N 3 void main() { int n1=3; double x1[N]={0,0,0}; double a1[N][N]={1,2…
ZY SL HH HW HI CW ZW TH BJ TJ HB SH LN JL HL SA JS ZJ AH FJ JX SD HE HU HN GD GX HC SC GZ YN SX
#include #include #include #include #include #include #include int sgn(double x) { int temp; if(x>0)temp=1; …
VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 5580 ClientLeft = 60 Cli…