源码文件
! 求解二次方程 a*x**2+b*x+c=0 print *, '输入3个系数'; read *, a,b,c if(abs(a).le.tiny(a)) then print *, 'a的值小于允许的最小实数，认为是零' if(abs(b)…
tiny+ 源代码
汇集 tiny+ 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
收录资源 500 份
全站深度检索
共匹配 500 份工程资源
· 第 34 / 50 页
源码文件
/* * Tiny TTY driver * * Copyright (C) 2002-2004 Greg Kroah-Hartman (greg@kroah.com) * * This program is free software; you c…
源码文件
/////////////////////////////////////////////////////////////////////////////// // // File: mlTinyx.h // // Author: Frank Lu…
源码文件
/* * Tiny TTY driver * * Copyright (C) 2002-2004 Greg Kroah-Hartman (greg@kroah.com) * * This program is free software; you c…
源码文件
SUBROUTINE qroot(p,n,b,c,eps) INTEGER n,NMAX,ITMAX REAL b,c,eps,p(n),TINY PARAMETER (NMAX=20,ITMAX=20,TINY=1.…
源码文件
SUBROUTINE ratint(xa,ya,n,x,y,dy) INTEGER n,NMAX REAL dy,x,y,xa(n),ya(n),TINY PARAMETER (NMAX=10,TINY=1.e-25)…
源码文件
SUBROUTINE cntab2(nn,ni,nj,h,hx,hy,hygx,hxgy,uygx,uxgy,uxy) INTEGER ni,nj,nn(ni,nj),MAXI,MAXJ REAL h,hx,hxgy,hy,hygx…
源码文件
FUNCTION rc(x,y) REAL rc,x,y,ERRTOL,TINY,SQRTNY,BIG,TNBG,COMP1,COMP2,THIRD,C1,C2, *C3,C4 PARAMETER (ERRTOL=.04…
源码文件
SUBROUTINE bandec(a,n,m1,m2,np,mp,al,mpl,indx,d) INTEGER m1,m2,mp,mpl,n,np,indx(n) REAL d,a(np,mp),al(np,mpl),TINY …
源码文件
# Generated automatically from Makefile.in by configure. # # Makefile for the examples directory. # CC = cc MV = mv CFLAGS = -I$(T…