### Related

##### slength-substring

substring("substring"...

Calculate

? slength;

Calculate

##### slength-substring

substring("substring"...

Calculate

"/* comment */";

strim(" /*",%);

slength(%);

Calculate

##### slength-substring

substring("substring"...

Calculate

? slength;

Calculate

##### slength-substring

substring("substring"...

Calculate

"/* comment */";

strim(" /*",%);

slength(%);

Calculate

### slength

Run Example
```(%i1)xy: [[7, 9], [9,-1], [-1, -3], [9, -7], [2, 7], [-1,-5], [-9, -1]];
(%o1) [[7, 9], [9, - 1], [- 1, - 3], [9, - 7], [2, 7], [- 1, - 5], [- 9, - 1]]
(%i2) plot2d([[discrete, xy],(17*x+19)/12], [x,0,5],        [style, points, lines], [color, red, blue],        [point_type, asterisk],        [legend, "experiment", "theory"],        [xlabel, "pendulum's length (cm)"],        [ylabel, "period (s)"]);
plot```
Run Example
```load(graphs);

(%o1)      /usr/share/maxima/5.21.1/share/contrib/graphs/graphs.mac
(%i2) A : graph_union(empty_graph(1),cycle_graph(9));
(%o2)                                GRAPH
(%o3)                                done
(%i4) G(s) := (z : A, s : string(s), n : slength(s),    for i from 1 thru n do (z : graph_union(z,A),    if charat(s,i)="1" then add_edge([10*i-8,10*i],z) else add_edge([10*i-4,10*i],z)), z);
(%o4) G(s) := (z : A, s : string(s), n : slength(s),
for i thru n do (z : graph_union(z, A),
if charat(s, i) = "1" then add_edge([10 i - 8, 10 i], z)
else add_edge([10 i - 4, 10 i], z)), z)
(%i5) draw_graph(G(1010),show_id=true);
plot```
Run Example
```debugmode(true);
(%o1)                                true
(%i2) characters:charlist("Ala");
(%o2)                              [A, l, a]
(%i3) for i:1 while i <
slength("Ala") do( cint(characters[i]) );
(%o3)                                done
(%i4) ```

Help for Slength