Subversion Repositories wimsdev

!goto $wims_read_parm

:def

title=Convertir en fraction

synonyme=fraction

input=function

!exit

:proc

formula=!rawmath $formula

t=!varlist nofn $formula

!for v in $t

 s=!charcnt $v

 !if $s=1 and $v!=e

  error=bad_formula

  !exit

 !endif

!next v

pari_precision=50

result=!exec pari d=contfracpnqn(contfrac($formula)); print(d[1,1])\

	print(d[2,1])\

	print(d[1,2])\

	print(d[2,2])\

	print(abs(d[1,1]/d[1,2]-($formula)))\

	print(d[2,1]/d[2,2])

!distribute lines $result into n1,d1,n2,d2,diff,ratio

!exit

:output

!if $result!=$empty

 <table class="wimscenter wimsnoborder">

 !if $diff>0 and $ratio>10

  <tr><td rowspan="3">

  !htmlmath $formula

   =  

  </td><td>$n1</td>

  <td rowspan="3">&nbsp;&nbsp;$m_approx&nbsp;&nbsp;

  </td><td>$n2</td><td rowspan="3">&nbsp;.

  </td>/tr><tr><td><hr/></td><td><hr/></td></tr>

  <tr><td>$d1</td><td>$d2</td>

 !else

  <tr><td rowspan="3">

  !htmlmath $formula

   =  

  <td>$n1</td>

  <td rowspan="3">&nbsp;.

  </td></tr><tr><td><hr /></td>

  </tr><tr><td>$d1</td>

 !endif

 </tr>

 </table>

!endif

!exit