代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/369339/2801285
s f.s
.globl .f
.globl succ
.globl seekchar,getword
.f:
mov (sp),r0
mov r0,6(sp)
mov 4(sp),r1
jsr pc,seekchar
jsr pc,getword
mov r0,(sp)
mov $-1,2(sp)
jmp succ
www.eeworm.com/read/369339/2801451
f tanh.f
function tanh(a)
b = exp(a)
c = 1.0/b
tanh = (b-c)/(b+c)
return
end
www.eeworm.com/read/369339/2801455
f csqrt.f
function csqrt(z1)
complex csqrt, z1, z2
dimension dummy(2)
equivalence (a,z2,dummy(1)), (b,dummy(2))
z2 = z1
c = cabs(z2)
c = sqrt(c)
b = atan2(b, a)/2.0
a = c*cos(b)
b = c*sin(b)
csqrt =
www.eeworm.com/read/369339/2801457
f csin.f
function csin(z1)
complex csin, z1, z2
dimension dummy(2)
equivalence (a,z2,dummy(1)), (b,dummy(2))
z2 = z1
c = exp(b)
d = 1.0/c
b = cos(a)*(c-d)/2.0
a = sin(a)*(c+d)/2.0
csin = z2
return
www.eeworm.com/read/369339/2801459
f dclog.f
function dclog(z1)
double complex z1, z2, dclog
double precision a,b,c
double precision dummy(2)
equivalence (a,z2,dummy(1)), (b,dummy(2))
z2=z1
c=dcabs(z2)
b=datan2(b,a)
a=dlog(c)
dclog=z2
www.eeworm.com/read/369339/2801464
f dcsin.f
function dcsin(z1)
double complex dcsin, z1, z2
double precision dummy(2), a, b, c, d
equivalence (a,z2,dummy(1)), (b,dummy(2))
z2 = z1
c = dexp(b)
d = 1.0d0/c
b = dcos(a)*(c-d)/2.0d0
a = ds
www.eeworm.com/read/369339/2801480
f dcsqrt.f
function dcsqrt(z1)
double complex dcsqrt, z1, z2
double precision dummy(2), a, b, c
equivalence (a,z2,dummy(1)), (b,dummy(2))
z2 = z1
c = dcabs(z2)
c = dsqrt(c)
b = datan2(b, a)/2.0d0
a = c
www.eeworm.com/read/369339/2801482
f ccos.f
function ccos(z1)
complex ccos, z1, z2
dimension dummy(2)
equivalence (a,z2,dummy(1)), (b,dummy(2))
z2 = z1
c = exp(b)
d = 1.0/c
b = sin(a)*(d-c)/2.0
a = cos(a)*(c+d)/2.0
ccos = z2
return
www.eeworm.com/read/369339/2801488
f dccos.f
function dccos(z1)
double complex dccos, z1, z2
double precision dummy(2), a, b, c, d
equivalence (a,z2,dummy(1)), (b,dummy(2))
z2 = z1
c = dexp(b)
d = 1.0d0/c
b = dsin(a)*(d-c)/2.0d0
a = dc
www.eeworm.com/read/369339/2801493
f clog.f
function clog(z1)
complex clog, z1, z2
dimension dummy(2)
equivalence (a,z2,dummy(1)), (b,dummy(2))
z2 = z1
c = cabs(z2)
b = atan2(b, a)
a = alog(c)
clog = z2
return
end