代码搜索:implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/362266/10008525
txt snmpv2-smi.txt
SNMPv2-SMI DEFINITIONS ::= BEGIN
-- the path to the root
org OBJECT IDENTIFIER ::= { iso 3 } -- "iso" = 1
dod OBJECT IDENTIFIER ::= { org 6 }
internet OBJECT IDEN
www.eeworm.com/read/165238/10071397
src dydzzy.src
DYDZZY:=proc(f)
# DYDZZY(f) is used to get the derivate of
# an implicit function
local Eq,deq,imderiv;
Eq:='Eq';
Eq:=f;
deq:=diff(Eq,x);
readlib(isolate);
imderiv:=isolate(deq,diff(y(x),
www.eeworm.com/read/360545/10088499
f90 bisect0.f90
! 二分法求解
! By Pon 1997/9/2
module NUMERICAL
implicit none
real, parameter :: zero = 0.00001
contains
real function bisect( A, B )
implicit none
real A,B ! 输入的猜值
real C ! 用来算(A+B)/
www.eeworm.com/read/360545/10088501
f90 newton.f90
module NUMERICAL
implicit none
real, parameter :: zero=0.00001 ! 小于zero的值会被当成0
contains
! 割线法的函数
real function newton(a,f,df)
implicit none
real :: a ! 起始的猜值
real, external :: f
www.eeworm.com/read/360545/10088502
f90 determinant.f90
module LinearAlgebra
implicit none
contains
! 求矩阵的Determinant值
real function Determinant(matrix)
real :: matrix(:,:)
real, allocatable :: ma(:,:)
integer :: i,N
N = size(matrix,1)
www.eeworm.com/read/360545/10088503
f90 bisect.f90
! 二分法求解
! By Pon 1997/9/2
module NUMERICAL
implicit none
real, parameter :: zero = 0.00001
contains
real function bisect( A, B, func )
implicit none
real A,B ! 输入的猜值
real C ! 用来算
www.eeworm.com/read/360545/10088506
f90 secant.f90
module NUMERICAL
implicit none
real, parameter :: zero=0.00001 ! 小于zero的值会被当成0
contains
! 割线法的函数
real function secant(a,b,f)
implicit none
real :: a,b ! 起始的两个猜值
real :: c ! 新的解
www.eeworm.com/read/360545/10088507
f90 least_square.f90
module datas
implicit none
integer, parameter :: N=5
real :: temperature(N) = (/5.0,10.0,15.0,20.0,25.0/) ! 记录温度
real :: length(N) = (/1.047,1.112,1.1152,1.191,1.252/)! 记录不同温度下的长度
real
www.eeworm.com/read/360545/10088511
f90 upperlower.f90
module LinearAlgebra
implicit none
contains
! 输出矩阵的子程序
subroutine output(matrix)
implicit none
integer :: m,n
real :: matrix(:,:)
integer :: i
character(len=20) :: for='(??(1x,
www.eeworm.com/read/360545/10088513
f90 inverse.f90
module LinearAlgebra
implicit none
contains
! 求逆矩阵
subroutine inverse(A,IA)
implicit none
real :: A(:,:), IA(:,:)
real, allocatable :: B(:,:)
integer :: i,j,N
N = size(A,1)