ahill/sbase
1
0
Fork 0
mirror of git://git.suckless.org/sbase synced 2026-01-26 05:37:54 +00:00
Code Issues Packages Projects Releases Wiki Activity

bc: Fix indentation in bc.library

Browse Source
This commit is contained in:
Roberto E. Vargas Caballero 2025-11-25 17:14:35 +01:00
parent 2e9d76d217
commit 2cf8559bad
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
bc.library
View File

@ -164,7 +164,7 @@ define a(x){
if(x==0) return(0)
if(x==1) {
if(scale<52) {
return(.7853981633974483096156608458198757210492923498437764/1)
return(.7853981633974483096156608458198757210492923498437764/1)
}
}
t = scale
@ -198,35 +198,35 @@ return(.7853981633974483096156608458198757210492923498437764/1)
}
define j(n,x){
auto a,b,c,d,e,g,i,s,k,t
auto a,b,c,d,e,g,i,s,k,t
t = scale
k = 1.36*x + 1.16*t - n
k = length(k) - scale(k)
if(k>0) scale = scale + k
s= -x*x/4
if(n<0){
n= -n
x= -x
s= -x*x/4
if(n<0){
n= -n
x= -x
}
a=1
c=1
for(i=1;i<=n;i++){
a=a*x
c = c*2*i
a=1
c=1
for(i=1;i<=n;i++){
a=a*x
c = c*2*i
}
b=a
d=1
e=1
for(i=1;1;i++){
a=a*s
b=b*i*(n+i) + a
c=c*i*(n+i)
g=b/c
if(g==e){
scale = t
return(g/1)
b=a
d=1
e=1
for(i=1;1;i++){
a=a*s
b=b*i*(n+i) + a
c=c*i*(n+i)
g=b/c
if(g==e){
scale = t
return(g/1)
}
e=g
}