|
• F←{⍵×2-q×⍵}
uses only integer operations
• compute scaled ÷q,
that is, (÷q)×RADIX*m
S←10*60r1
F1←{⌊S÷⍨⍵×(2×S)-q×⍵}
⍪ ⊃ (⍳8) {F1⍣⍺⊢⍵}¨ ⊂S×⍴0.06
60000000000000000000000000000000000000000000000000000000000
58800000000000000000000000000000000000000000000000000000000
58823520000000000000000000000000000000000000000000000000000
58823529411763200000000000000000000000000000000000000000000
58823529411764705882352941137920000000000000000000000000000
58823529411764705882352941176470588235294117647058823504147
58823529411764705882352941176470588235294117647058823529411
58823529411764705882352941176470588235294117647058823529411
|