DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »qdmrec«

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦7b6e66aaa⟧ »crypr« 
            └─⟦this⟧ 
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦84e44a383⟧ »crypr« 
            └─⟦this⟧ 

TextFile

<*
Quantum Defect Method (QDM) record
1980-02-19
one record for each chargestate
Part 1.
  + 0 no of parents (from chargestate)
  + 2 size of part 1.
  + 4 first dIp record
  + 6 last dIp record
  + 8 1. 2-channel record
  +10 size of 2-channel record
  +12 no of 2-channel records
  +14 1. 3-channel record
  +16 size of 3-channel record
  +18 no of 3-channel records
  .
  .
  .
  +nn 1. n-channel record
  +nn+2 size of n-channel record
  +nn+4 no of n-channel records

dIp record
    + 0 number (1..m)
    + 2 J
    + 4 L
    + 6 dIp

2-channel record
    + 0 no of Ip
    + 2 no of series
    + 4 J
    + 6 free
    + 8 channels
    +10 record number
    +12 computed/mix
    +14 parent record 1. Ip
    +16 parent record 2. Ip
    +18 series 1
    +20 series 2
    +24 my10
    +28 my20
    +32 theta0
    +36 my11
    +40 my21
    +44 theta1
    +48 Ip1
    +52 Ip2

3-channel record
    + 0 no of Ip
    + 2 no of series
    + 4 J
    + 6 free
    + 8 channels
    +10 record number
    +12 computed/mix
    +14 parent record 1. Ip
    +16 parent record 2. Ip
    +18 parent record 3. Ip
    +20 series 1
    +22 series 2
    +24 series 3
    +28 my10
    +32 my20
    +36 my30
    +40 theta10
    +44 theta20
    +48 theta30
    +52 my11
    +56 my21
    +60 my31
    +64 theta11
    +68 theta21
    +72 theta31
    +76 Ip1
    +80 Ip2
    +84 Ip3
*>

procedure put_qdm_rec(nr,channels,my,theta,Ip);
value nr,channels;
integer nr,channels;
array my,theta,Ip;
begin
end;

procedure get_qdm_rec(nr,channels,my,theta,Ip);
value nr,channels;
integer nr,channels;
array my,theta,Ip;
begin
end get_qdm_rec;

integer array ch_rec_size(1:5);

procedure init_ch_rec;
begin
integer i;
for i:=1 step 1 until 5 do
 ch_rec_size(i):=14+i*16+i*(i-1);
end init_ch_rec;
▶EOF◀