Anonymous user
Quaternion type: Difference between revisions
m
→[[Simple Quaternion type and operations#ALGOL 68]]: reorder declarations
m (→[[Simple Quaternion type and operations#ALGOL 68]]: rm debug stmt) |
m (→[[Simple Quaternion type and operations#ALGOL 68]]: reorder declarations) |
||
Line 183:
PROC (REF QUAT #self#)QUAT exp
);
FORMAT real fmt = $g(-0,4)$;▼
FORMAT quat fmt = $f(real fmt)"+"f(real fmt)"i+"f(real fmt)"j+"f(real fmt)"k"$;▼
FORMAT s fmt = $b("+","")f(real fmt)$;▼
FORMAT squat fmt = $f(s fmt)f(s fmt)"i"f(s fmt)"j"f(s fmt)"k"$;▼
CLASSQUAT class quat = (
Line 277 ⟶ 271:
)
);
▲FORMAT real fmt = $g(-0,4)$;
▲FORMAT quat fmt = $f(real fmt)"+"f(real fmt)"i+"f(real fmt)"j+"f(real fmt)"k"$;
▲FORMAT s fmt = $b("+","")f(real fmt)$;
▲FORMAT squat fmt = $f(s fmt)f(s fmt)"i"f(s fmt)"j"f(s fmt)"k"$;
PRIO INITQ = 1;
|