Subversion Repositories wimsdev

Rev

Rev 6057 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6057 Rev 6565
Line 21... Line 21...
21 
pari_precision=50
 21 
pari_precision=50
22 
result=!exec pari d=contfracpnqn(contfrac($formula)); print(d[1,1])\
 22 
result=!exec pari d=contfracpnqn(contfrac($formula)); print(d[1,1])\
23 
	print(d[2,1])\
 23 
	print(d[2,1])\
24 
	print(d[1,2])\
 24 
	print(d[1,2])\
25 
	print(d[2,2])\
 25 
	print(d[2,2])\
26 
	print(abs(d[1,1]/d[1,2]-$formula))\
 26 
	print(abs(d[1,1]/d[1,2]-($formula)))\
27 
	print(d[2,1]/d[2,2])
 27 
	print(d[2,1]/d[2,2])
28 
 
 28 
 
29 
!distribute lines $result into n1,d1,n2,d2,diff,ratio
 29 
!distribute lines $result into n1,d1,n2,d2,diff,ratio
30 
 
 30 
 
31 
!exit
 31 
!exit
Line 38... Line 38...
38 
  <tr><td rowspan="3">
 38 
  <tr><td rowspan="3">
39 
  !htmlmath $formula
 39 
  !htmlmath $formula
40 
  &nbsp;=&nbsp;&nbsp;
 40 
  &nbsp;=&nbsp;&nbsp;
41 
  </td><td>$n1</td>
 41 
  </td><td>$n1</td>
42 
  <td rowspan="3">&nbsp;&nbsp;$m_approx&nbsp;&nbsp;
 42 
  <td rowspan="3">&nbsp;&nbsp;$m_approx&nbsp;&nbsp;
43 
  <td>$n2</td><td rowspan="3">&nbsp;.
 43 
  </td><td>$n2</td><td rowspan="3">&nbsp;.
44 
  <tr><td><hr/></td><td><hr/></td>
 44 
  </td>/tr><tr><td><hr/></td><td><hr/></td></tr>
45 
  <tr><td>$d1</td><td>$d2</td>
 45 
  <tr><td>$d1</td><td>$d2</td>
46 
 !else
 46 
 !else
47 
  <tr><td rowspan="3">
 47 
  <tr><td rowspan="3">
48 
  !htmlmath $formula
 48 
  !htmlmath $formula
49 
  &nbsp;=&nbsp;&nbsp;
 49 
  &nbsp;=&nbsp;&nbsp;
50 
  <td>$n1</td>
 50 
  <td>$n1</td>
51 
  <td rowspan="3">&nbsp;.
 51 
  <td rowspan="3">&nbsp;.
52 
  <tr><td><hr/></td>
 52 
  </td></tr><tr><td><hr /></td>
53 
  <tr><td>$d1</td>
 53 
  </tr><tr><td>$d1</td>
54 
 !endif
 54 
 !endif
- 
 
 55 
 </tr>
55 
 </table>
 56 
 </table>
56 
!endif
 57 
!endif
57 
 
 58 
 
58 
!exit
 59 
!exit
59 
 
 60