b6bd95de-d337-436e-b83d-ea853de354f3 32 3 8 false true 0 decimal
&[DATE] &[TIME] - &[FILENAME]
&[PAGENUM] / &[COUNT]
 <p>Function concnum</p>

FUNKTION - SUBSTITUTE Substitutes the string "remove" in the string "original" with the string "insert". Notice that it doesnt work on edge cases yet.

original remove insert substitute n original remove findstr 1 el : length remove strlen : lengthtot original strlen : pre n 1 ≡ original 1 n 1 - substr cases : post n lengthtot ≡ ( n length + 1 - lengthtot ≡ ( | original n length + substr cases : 2 1 line outp pre insert post concat : 5 1 line : 6 9 2 1 mat AB!! {A+B+D}/C S:(λ/π)*sqrt(f.c.0.k/!

FUNKTION - concnum Substitutes all terms in column 1 with corresponding variable times faktor in column 2, rounded to kolumn 3 decimals.

eq matris concnum eq variable fakt round concnumtemp number variable str2num fakt * round round var2str : number number , . substitute : continue try 2 1 line outp eq variable number substitute : 2 1 line : i 1 matris rows range v matris i 1 el : f matris i 2 el : r matris i 3 el : eq eq v f r concnumtemp : 4 1 line for S: eq concat 3 1 line :

EXAMPLE 1

INPUT TERMS

EQUATIONS

 kN m * 2.81

Symbolic mode

M.max 359415 kg * m 2 ^ * 128 s 2 ^ * /

Symbolic mode

R.A 17115 kg * m * 8 s 2 ^ * / R.A M.max l q concnum substitute R.A M.max l q concnum substitute R.A M.max l q
S:M.max = S:{q*l^2}/8 = S:{0.82*5.2^2}/8 = 2.8 S:'kN*'m
S:R.A = S:{q*l}/2 = S:{0.82*5.25}/2 = 2.1 S:'kN
#
#
#
#
#

Table with result, using function "concnum" defined above. Compare column three with above symbolic mode.

S:M.max = S:{q*l^2}/8 = {q*l^2}/8 q 1 kN m / / 2 l 1 m / 1 2 3 mat concnum = M.max kN m * / 1 round S:'kN*'m S:R.A = S:{q*l}/2 = {q*l}/2 q 1 kN m / / 2 l 1 m / 2 2 3 mat concnum = R.A kN / 1 round S:'kN 2 8 mat

Equation achieved when copy/pasting to notepad and back again

Result: input it to a table.

S:{0.82*5.2}/2

Col 1: Terms one wants to see Col 2: Multiplikation factor, to remove unwanted units Col 3: Decimals per item

EXAMPLE 2

 k λ.rel λ E.005 f.c.0.k R.A M.max l q concnum substitute k λ.rel λ E.005 f.c.0.k R.A M.max l q concnum substitute k λ.rel λ E.005 f.c.0.k R.A M.max l q
S:λ.rel = S:(λ/π)*sqrt(f.c.0.k/E.0.0.05 = S:(49.5/π)*sqrt(24/10400 = 0.757
k = S:0.5*(1+β.c*(λ.rel-0.3+λ.rel^2) = S:0.5*(1+0*(0.8-0.3)+0.8^2) = 0.786
#
#
#
#
#

Table with result, using function "concnum" defined above. Compare column three with above symbolic mode.

S:λ.rel = S:(λ/π)*sqrt(f.c.0.k/E.0.0.05 = (λ/π)*sqrt(f.c.0.k/E.005 λ 1 2 f.c.0.k 1 MPa / 1 E.005 1 MPa / 1 3 3 mat concnum = λ.rel 3 round k = S:0.5*(1+β.c*(λ.rel-0.3+λ.rel^2) = 0.5*(1+β.c*(λ.rel-0.3)+λ.rel^2) β.c 1 2 λ.rel 1 1 λ.rel 1 1 3 3 mat concnum = k 3 round 2 8 mat