\Im(\left(\left(\left(\left(\left(\left(\left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) + \left(\left(\left(\left(\left(-2\right) + 0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(\left(\left(5 + 0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(\left(4 + 0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(7 + 0 i\right)\right))\Im(\left(\left(\left(\left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) + \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(-2 + 0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right)\right) + \left(\left(5 + 0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) + \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(4 + 0 i\right)\right) + \left(7 + 0 i\right)\right))double f() {
double r539784 = 1.0;
double r539785 = -r539784;
double r539786 = 2.0;
double r539787 = r539785 / r539786;
double r539788 = 3.0;
double r539789 = sqrt(r539788);
double r539790 = r539789 / r539786;
double r539791 = /* ERROR: no complex support in C */;
double r539792 = r539791 * r539791;
double r539793 = r539792 * r539791;
double r539794 = r539793 * r539791;
double r539795 = -r539786;
double r539796 = 0.0;
double r539797 = /* ERROR: no complex support in C */;
double r539798 = r539797 * r539791;
double r539799 = r539798 * r539791;
double r539800 = r539799 * r539791;
double r539801 = r539794 + r539800;
double r539802 = 5.0;
double r539803 = /* ERROR: no complex support in C */;
double r539804 = r539803 * r539791;
double r539805 = r539804 * r539791;
double r539806 = r539801 + r539805;
double r539807 = 4.0;
double r539808 = /* ERROR: no complex support in C */;
double r539809 = r539808 * r539791;
double r539810 = r539806 + r539809;
double r539811 = 7.0;
double r539812 = /* ERROR: no complex support in C */;
double r539813 = r539810 + r539812;
double r539814 = /* ERROR: no complex support in C */;
return r539814;
}
double f() {
double r539815 = -0.5;
double r539816 = 3.0;
double r539817 = sqrt(r539816);
double r539818 = 2.0;
double r539819 = r539817 / r539818;
double r539820 = /* ERROR: no complex support in C */;
double r539821 = r539820 * r539820;
double r539822 = r539821 * r539820;
double r539823 = r539820 * r539822;
double r539824 = -2.0;
double r539825 = 0.0;
double r539826 = /* ERROR: no complex support in C */;
double r539827 = r539826 * r539820;
double r539828 = r539820 * r539827;
double r539829 = r539820 * r539828;
double r539830 = r539823 + r539829;
double r539831 = 5.0;
double r539832 = /* ERROR: no complex support in C */;
double r539833 = r539832 * r539820;
double r539834 = r539833 * r539820;
double r539835 = r539830 + r539834;
double r539836 = 4.0;
double r539837 = /* ERROR: no complex support in C */;
double r539838 = r539820 * r539837;
double r539839 = r539835 + r539838;
double r539840 = 7.0;
double r539841 = /* ERROR: no complex support in C */;
double r539842 = r539839 + r539841;
double r539843 = /* ERROR: no complex support in C */;
return r539843;
}
Initial program 0
Final simplification0
herbie shell --seed 2019135
(FPCore ()
:name "3.9.2 imaginary part (p56)"
(im (+.c (+.c (+.c (+.c (*.c (*.c (*.c (complex (/ (- 1) 2) (/ (sqrt 3) 2)) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (*.c (*.c (*.c (complex (- 2) 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (*.c (complex 5 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (complex 4 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (complex 7 0))))