代码搜索：B
找到约 10,000 项符合「B」的源代码
代码结果 10,000
www.eeworm.com/read/366142/2893096
b solve.b
find_dofs ( )
if problem.mode == &static then
K = assemble ( )
F = construct_forces ( )
Kc = zero_constrained (K)
Fc = zero_constrained (F)
d = solve_displacements (Kc, Fc)
else
www.eeworm.com/read/366142/2893098
b zero.b
function ZeroRowCol ( )
global K, nodes, dof_numbers, dof_positions
for n in nodes do
b = nd * (n.number - 1) + 1
for d in dof_numbers do
if n.constraint.dx (d) then
a = b + dof_posi
www.eeworm.com/read/366142/2893100
b fe.b
function clear_nodes ( )
global problem
for n in problem.nodes do
nodes (i).dx = zeros (1, 6)
nodes (i).eq_force = zeros (1, 6)
end
end
function construct_forces ( )
global proble
www.eeworm.com/read/366142/2893101
b edit.b
# edit the specified file
function edit (file, editor)
if (null? (editor)) then editor = "vi" end
return system (concat (editor, concat (" ", file)))
end
www.eeworm.com/read/366142/2893103
b sum.b
# compute the sum of the elements of a scalar, vector, or matrix
function sum (x)
sum = 0
for v in x do
for w in v do
sum = sum + w
end
end
return sum
end
www.eeworm.com/read/366142/2893106
b dump.b
/* Write an object if nonzero.*/
function writenz (s, x)
global writes
if x then
writes (s, x)
end
end
/* Write a node. */
function write_node (n)
global write, writes, null
www.eeworm.com/read/366142/2893107
b truss.b
function truss_equivalent_forces (e, T, L)
if e.num_loads == 1 and e.loads (1).nvalues == 2 then
v1 = e.loads (1).value (1)
v2 = e.loads (1).value (2)
if v1.node == 1 and v2.node == 2 then
www.eeworm.com/read/366142/2893110
b cholesky.b
function cholesky (a)
global rows, sqrt, write
n = rows (a)
for k in 1 : n do
t = sqrt (a (k,k))
a (k,k) = t
for j in k + 1 : n do
a (j,k) = a (j,k) / t
end
for j in k + 1 :
www.eeworm.com/read/366142/2893112
b chol.b
function cholesky (a)
global rows, sqrt, write
n = rows (a)
for k in 1 : n do
t = sqrt (a (k,k))
a (k,k) = t
for j in k + 1 : n do
a (j,k) = a (j,k) / t
end
for j in k + 1 :