home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 2 / crawlyvol2.bin / program / misc / mas / mashelp / dipipol.def < prev    next >
Encoding:
Modula Definition  |  1989-10-21  |  1.3 KB  |  41 lines
  1.  
  2.  
  3. (* DIP Integer Polynomial Definition Module. *)
  4.  
  5. DEFINITION MODULE DIPIPOL;
  6.  
  7.  
  8. FROM MASSTOR IMPORT LIST;
  9.  
  10.  
  11. PROCEDURE VIPIIP(RL,A,B: LIST): LIST;
  12. (*Vector of integral polynomials with vector of integers inner product. 
  13. A is a vector of integral polynomials in r variables, r non-negative.
  14. B is a vector of integers. C is the inner product of A and B.*)
  15.  
  16.  
  17. PROCEDURE HIPRAN(RL,KL,QL,NL: LIST): LIST; 
  18. (*Homogeneous integral polynomial random.  k is a positive
  19. beta-digit. q is a rational number q1/q2 with
  20. 0 lt q1 le q2 lt beta. n is a non-negative beta-digit
  21. r ge 0.  A is a random homogeneous integral polynomial
  22. in r variables with homogeneous degree n. max norm of
  23. A lt 2**k and q is the probability that any
  24. particular term of A has a non-zero coefficient.*)
  25.  
  26.  
  27. PROCEDURE IPRAN(RL,KL,QL,N: LIST): LIST; 
  28. (*Integral polynomial random.  k is a positive beta-digit.
  29. q is a rational number q1/q2 with 0 lt q1 le q2 lt beta.
  30. N is a list (n sub r, ...,n sub 1) of non-negative beta-digits
  31. r ge 0.  A is a random integral polynomial in r variables
  32. with deg sub i of a le n sub i + 1 for 1 le i le r.
  33. Max norm of A lt 2**k and q is the probability that any
  34. particular term of A has a non-zero coefficient. Modified
  35. version, original version by G. E. Collins. *)
  36.                                             
  37.  
  38. END DIPIPOL.
  39.  
  40.  
  41.