share/raddenest/raddenest.dem

   1 /* These demo commands are also included in the testsuite. */
   2
   3 raddenest(sqrt(2*sqrt(6)+5));
   4
   5 sqrt(sqrt(2*sqrt(7)+5)+3);
   6 raddenest(%);
   7
   8 sqrt(sqrt(16+2*sqrt(55-10*sqrt(29))-2*sqrt(29))-sqrt(5));
   9 raddenest(%);
  10
  11 sqrt(2+(6*sqrt(11))/11+(2*sqrt(22))/11+(6*sqrt(2))/11);
  12 raddenest(%);
  13
  14 sqrt(1+1/(7+4*sqrt(3)));
  15 raddenest(%);
  16
  17 sqrt(expand((1+sqrt(3+sqrt(x+2)))^2));
  18 raddenest(%);
  19
  20 raddenest(sqrt(5^(1/3)-4^(1/3)));
  21
  22 raddenest((41-29*sqrt(2))^(1/5));