mirror of
https://code.it4i.cz/sccs/easyconfigs-it4i.git
synced 2025-04-17 20:20:49 +01:00
22 lines
510 B
Forth
Executable File
22 lines
510 B
Forth
Executable File
w=-a*rb(jprim)*2.d0
|
|
p=a+b
|
|
rp=1.d0/p
|
|
ap=a*rp
|
|
bp=b*rp
|
|
px=ap*ax+bp*bx
|
|
py=ap*ay+bp*by
|
|
pz=ap*az+bp*bz
|
|
xpb=px-bx
|
|
ypb=py-by
|
|
zpb=pz-bz
|
|
xpq=px-cx
|
|
ypq=py-cy
|
|
zpq=pz-cz
|
|
xab=bx-ax
|
|
yab=by-ay
|
|
zab=bz-az
|
|
norm2=sig*34.98683665524972569252564335974310d0*
|
|
$dexp(-ap*b*sb2)*rp
|
|
rp=0.5d0*rp
|
|
argij=p*(xpq*xpq+ypq*ypq+zpq*zpq)
|