DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »hlmarraytx«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦787c125fb⟧ »adjprocfile« 
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦787c125fb⟧ »adjprocfile« 
            └─⟦this⟧ 

TextFile

;       helmert array size    * page 1   11 10 78, 16.57;  

;  hlm_array
;  ********

if listing.yes
char nl ff nl

hlm_array = set 1

hlm_array = algol

external integer procedure hlm_array
____________________________________
_                (dim, cond);  
value             dim, cond;  
integer           dim, cond;  

comment  

hlm_array       (call and return, integer procedure)
the size of the array needed for holding then normal equations
euations for then determination of the transformation
parameters in a helmert transformation

dim              (call, integer value)
the dimension of the coordinate systems in the transformation

cond             (call, integer value)
the number of contrraints put on the transformation, eg.
2 for a conformal transformation.
;  

hlm_array := (dim*(5 + 3*dim) + 6
_           + cond*(3 + cond + 2*dim*(1 + dim)))//2;  

end

if ok.no
mode warning.yes
if warning.yes
(mode 0.yes
message hlm_array not ok
lookup hlm_array)

end

finis
▶EOF◀