05-Jun-2023 21:02:50 c8lib_test(): MATLAB/Octave version 5.2.0. Test c8lib() c8_abs_test(): c8_abs() computes the absolute value of a C8. C1=C8_UNIFORM_01 R2=C8_ABS(C1) R3=ABS(C1)) --------------------- --------------------- --------------------- ( 0.355718 -0.746352) 0.826787 0.826787 ( -0.283753 0.241164) 0.372392 0.372392 ( 0.082678 -0.204064) 0.220177 0.220177 ( 0.090903 -0.141047) 0.167802 0.167802 ( -0.194311 -0.850496) 0.872411 0.872411 ( 0.030330 0.588086) 0.588868 0.588868 ( 0.308860 -0.491496) 0.580485 0.580485 ( -0.128309 -0.617408) 0.630600 0.630600 ( -0.813160 -0.182915) 0.833479 0.833479 ( 0.513908 0.068655) 0.518473 0.518473 c8_acos_test(): c8_acos() computes the inverse cosine of a C8. C1=C8_UNIFORM_01 C2 = C8_ACOS(C1) C3 = C8_COS(C2) --------------------- --------------------- --------------------- ( 0.820225 -0.208695) ( 0.678763 0.326571) ( 0.820225 -0.208695) ( -0.799160 0.103856) ( 2.478392 -0.167906) ( -0.799160 0.103856) ( -0.237461 -0.775969) ( 1.758241 0.724687) ( -0.237461 -0.775969) ( -0.370313 0.730814) ( 1.869383 -0.704824) ( -0.370313 0.730814) ( -0.236687 0.429440) ( 1.789180 -0.426811) ( -0.236687 0.429440) ( -0.486832 0.726727) ( 1.963451 -0.722161) ( -0.486832 0.726727) ( -0.282884 0.719899) ( 1.800277 -0.684549) ( -0.282884 0.719899) ( 0.149932 -0.846967) ( 1.456451 0.773167) ( 0.149932 -0.846967) ( -0.091631 0.206385) ( 1.660642 -0.205766) ( -0.091631 0.206385) ( 0.433240 0.360875) ( 1.155962 -0.384756) ( 0.433240 0.360875) c8_acosh_test(): c8_acosh() computes the inverse hyperbolic cosine of a C8. C1=C8_UNIFORM_01 C2 = C8_ACOSH(C1) C3 = C8_COSH(C2) --------------------- --------------------- --------------------- ( 0.783195 0.376432) ( 0.501575 0.803702) ( 0.783195 0.376432) ( 0.355355 -0.103833) ( -0.110759 1.209822) ( 0.355355 -0.103833) ( 0.808169 0.149051) ( 0.238666 0.666993) ( 0.808169 0.149051) ( -0.223483 0.345299) ( 0.346270 1.783111) ( -0.223483 0.345299) ( 0.067458 -0.853000) ( -0.774377 1.519479) ( 0.067458 -0.853000) ( -0.792896 -0.355655) ( -0.484524 2.357650) ( -0.792896 -0.355655) ( -0.468032 -0.441595) ( -0.469371 2.005144) ( -0.468032 -0.441595) ( -0.510169 0.138515) ( 0.159665 2.098713) ( -0.510169 0.138515) ( -0.272655 0.367024) ( 0.370994 1.828552) ( -0.272655 0.367024) ( 0.395990 -0.012318) ( -0.013414 1.163690) ( 0.395990 -0.012318) c8_add_test(): c8_add() computes the sum of two C8's. C1=C8_UNIFORM_01 C2=C8_UNIFORM_01 C3 = C1+C2 --------------------- --------------------- --------------------- ( -0.205199 0.485542) ( 0.770171 -0.057320) ( 0.564972 0.428222) ( -0.593810 0.701405) ( -0.388308 -0.366365) ( -0.982119 0.335040) ( 0.070776 0.603361) ( 0.848302 -0.474568) ( 0.919078 0.128793) ( 0.484319 0.651088) ( 0.975228 0.133110) ( 1.459547 0.784198) ( 0.194662 0.246932) ( 0.437819 0.194472) ( 0.632480 0.441405) ( 0.438649 -0.645379) ( 0.410854 0.512217) ( 0.849502 -0.133161) ( -0.667635 0.256702) ( 0.129184 0.453650) ( -0.538451 0.710352) ( 0.538985 -0.811795) ( -0.301052 0.739958) ( 0.237934 -0.071837) ( -0.004416 -0.222217) ( 0.889368 -0.181905) ( 0.884952 -0.404122) ( 0.264516 0.140839) ( 0.313807 -0.082771) ( 0.578323 0.058068) c8_arg_test(): c8_arg() computes the argument of a C8. C1=random ARG=C8_ARG(C1) 0.904281 -0.000920 -0.001017 -0.836222 -0.460883 -2.637868 -0.228195 0.662668 1.902436 -0.537206 0.291584 2.644311 0.310115 -0.682866 -1.144506 0.711603 0.016895 0.023738 0.333303 0.761271 1.158114 0.376138 0.817885 1.139747 0.371545 -0.411552 -0.836442 -0.184549 0.671339 1.839067 c8_asin_test(): c8_asin() computes the inverse sine of a C8. C1=C8_UNIFORM_01 C2 = C8_ASIN(C1) C3 = C8_SIN(C2) --------------------- --------------------- --------------------- ( -0.879343 -0.468931) ( -0.813038 -0.638094) ( -0.879343 -0.468931) ( -0.011722 0.395752) ( -0.010900 0.386110) ( -0.011722 0.395752) ( 0.471688 0.707422) ( 0.384374 0.703597) ( 0.471688 0.707422) ( -0.032244 -0.460042) ( -0.029295 -0.445370) ( -0.032244 -0.460042) ( -0.013229 -0.491983) ( -0.011871 -0.474061) ( -0.013229 -0.491983) ( -0.180886 0.718039) ( -0.146916 0.673722) ( -0.180886 0.718039) ( 0.730579 -0.152512) ( 0.794976 -0.216094) ( 0.730579 -0.152512) ( 0.494852 0.542307) ( 0.438439 0.567932) ( 0.494852 0.542307) ( 0.845594 0.258450) ( 0.896699 0.403053) ( 0.845594 0.258450) ( -0.626625 0.512111) ( -0.565433 0.574399) ( -0.626625 0.512111) c8_asinh_test(): c8_asinh() computes the inverse hyperbolic sine of a C8. C1=C8_UNIFORM_01 C2 = C8_ASINH(C1) C3 = C8_SINH(C2) --------------------- --------------------- --------------------- ( 0.297014 -0.596183) ( 0.351550 -0.595773) ( 0.297014 -0.596183) ( -0.145482 0.291850) ( -0.151366 0.292700) ( -0.145482 0.291850) ( 0.115340 0.599512) ( 0.142816 0.635338) ( 0.115340 0.599512) ( 0.367799 0.340240) ( 0.378712 0.322795) ( 0.367799 0.340240) ( -0.019946 0.499807) ( -0.023025 0.523223) ( -0.019946 0.499807) ( -0.837357 0.516145) ( -0.813510 0.392453) ( -0.837357 0.516145) ( -0.516135 -0.424150) ( -0.530503 -0.379811) ( -0.516135 -0.424150) ( -0.408952 0.315864) ( -0.415332 0.294698) ( -0.408952 0.315864) ( 0.111143 0.018699) ( 0.110934 0.018585) ( 0.111143 0.018699) ( -0.260163 0.841499) ( -0.402771 0.890794) ( -0.260163 0.841499) c8_atan_test(): c8_atan() computes the inverse tangent of a C8. C1=C8_UNIFORM_01 C2 = C8_ATAN(C1) C3 = C8_TAN(C2) --------------------- --------------------- --------------------- ( 0.613865 0.621189) ( 0.689935 0.438400) ( 0.613865 0.621189) ( -0.770135 -0.092287) ( -0.658851 -0.057878) ( -0.770135 -0.092287) ( -0.454021 -0.781126) ( -0.685590 -0.646926) ( -0.454021 -0.781126) ( 0.313491 0.504038) ( 0.384586 0.481302) ( 0.313491 0.504038) ( -0.412915 0.594242) ( -0.523787 0.522734) ( -0.412915 0.594242) ( -0.517479 -0.763624) ( -0.713861 -0.586350) ( -0.517479 -0.763624) ( -0.384999 -0.909465) ( -0.769398 -0.797176) ( -0.384999 -0.909465) ( -0.699391 -0.119199) ( -0.614813 -0.079964) ( -0.699391 -0.119199) ( -0.638465 -0.162837) ( -0.576835 -0.115557) ( -0.638465 -0.162837) ( 0.789471 0.464247) ( 0.734524 0.277963) ( 0.789471 0.464247) c8_atanh_test(): c8_atanh() computes the inverse hyperbolic tangent of a C8. C1=C8_UNIFORM_01 C2 = C8_ATANH(C1) C3 = C8_TANH(C2) --------------------- --------------------- --------------------- ( 0.696339 0.015746) ( 0.859507 0.030545) ( 0.696339 0.015746) ( -0.134759 -0.716427) ( -0.088921 -0.627369) ( -0.134759 -0.716427) ( 0.511659 -0.825406) ( 0.292745 -0.768168) ( 0.511659 -0.825406) ( 0.228937 -0.939431) ( 0.120603 -0.768092) ( 0.228937 -0.939431) ( -0.278388 0.937775) ( -0.146294 0.773916) ( -0.278388 0.937775) ( 0.193645 0.135544) ( 0.192359 0.139805) ( 0.193645 0.135544) ( 0.753210 -0.256624) ( 0.802386 -0.475135) ( 0.753210 -0.256624) ( 0.306059 -0.053013) ( 0.315149 -0.058406) ( 0.306059 -0.053013) ( -0.732324 0.007142) ( -0.933547 0.015400) ( -0.732324 0.007142) ( -0.709368 0.064008) ( -0.874420 0.127102) ( -0.709368 0.064008) c8_conj_test(): c8_conj() computes the complex conjugate of a C8. C1=C8_UNIFORM_01 C2 = C8_CONJ(C1) C3 = C8_CONJ(C2) --------------------- --------------------- --------------------- ( -0.404535 -0.755922) ( -0.404535 0.755922) ( -0.404535 -0.755922) ( 0.709785 0.165633) ( 0.709785 -0.165633) ( 0.709785 0.165633) ( 0.514813 0.537830) ( 0.514813 -0.537830) ( 0.514813 0.537830) ( -0.631694 -0.725396) ( -0.631694 0.725396) ( -0.631694 -0.725396) ( 0.852399 -0.123947) ( 0.852399 0.123947) ( 0.852399 -0.123947) ( -0.076424 -0.003575) ( -0.076424 0.003575) ( -0.076424 -0.003575) ( -0.787188 0.373257) ( -0.787188 -0.373257) ( -0.787188 0.373257) ( 0.652357 0.352410) ( 0.652357 -0.352410) ( 0.652357 0.352410) ( -0.516501 0.360880) ( -0.516501 -0.360880) ( -0.516501 0.360880) ( 0.086428 -0.760775) ( 0.086428 0.760775) ( 0.086428 -0.760775) c8_cos_test(): c8_cos() computes the cosine of a C8. C1=C8_UNIFORM_01 C2 = C8_COS(C1) C3 = C8_ACOS(C1) --------------------- --------------------- --------------------- ( -0.274712 -0.215976) ( 0.985039 -0.059044) ( 0.274712 0.215976) ( -0.075800 -0.529227) ( 1.140057 -0.041974) ( 0.075800 0.529227) ( 0.212792 0.674506) ( 1.208352 -0.153499) ( 0.212792 0.674506) ( 0.561756 0.099358) ( 0.850502 -0.053012) ( 0.561756 0.099358) ( -0.150684 -0.330192) ( 1.043056 -0.050472) ( 0.150684 0.330192) ( 0.770436 0.622944) ( 0.861405 -0.462458) ( 0.770436 0.622944) ( 0.006463 0.302334) ( 1.046030 -0.001984) ( 0.006463 0.302334) ( -0.915166 0.110459) ( 0.613382 0.087735) ( 0.915166 -0.110459) ( -0.541537 0.183272) ( 0.871349 0.094998) ( 0.541537 -0.183272) ( -0.789054 -0.060483) ( 0.705806 -0.042950) ( 0.789054 0.060483) c8_cosh_test(): c8_cosh() computes the hyperbolic cosine of a C8. C1=C8_UNIFORM_01 C2 = C8_COSH(C1) C3 = C8_ACOSH(C1) --------------------- --------------------- --------------------- ( 0.177332 0.299634) ( 0.970507 0.052618) ( 0.177332 0.299634) ( 0.018414 -0.752574) ( 0.730056 -0.012587) ( -0.018414 0.752574) ( 0.305900 -0.275513) ( 1.007661 -0.084521) ( -0.305900 0.275513) ( 0.258274 0.927587) ( 0.619882 0.208970) ( 0.258274 0.927587) ( 0.192340 0.349801) ( 0.956872 0.066324) ( 0.192340 0.349801) ( -0.247240 -0.252562) ( 0.998021 0.062413) ( 0.247240 0.252562) ( -0.420687 -0.457017) ( 0.977958 0.191162) ( 0.420687 0.457017) ( -0.005073 0.745042) ( 0.735069 -0.003440) ( -0.005073 0.745042) ( 0.737434 0.342960) ( 1.209650 0.271076) ( 0.737434 0.342960) ( 0.922866 -0.292141) ( 1.395204 -0.305156) ( -0.922866 0.292141) c8_cube_root_test(): c8_cube_root() computes the principal cube root of a C8. C1=random C2=C8_CUBE_ROOT(C1) C3=C2*C2*C2 0.181445 0.660592 0.799723 0.370887 -0.231565 -0.223026 0.319568 0.856548 0.892198 0.382028 -0.670742 -0.366005 0.569661 -0.228746 0.843008 -0.107881 0.095441 -0.210724 -0.083295 0.546248 0.689063 0.445604 0.073984 -0.151624 -0.621770 0.667654 0.693892 0.677630 0.591108 0.476726 0.585378 -0.164035 0.843620 -0.077043 0.153337 -0.164215 -0.183002 -0.436494 0.617593 -0.475302 0.098472 0.039310 0.419350 0.580037 0.850517 0.277084 -0.349517 0.110857 -0.211754 -0.173714 0.443908 -0.474017 0.009675 -0.018126 -0.493007 0.318680 0.548882 0.632317 0.030377 0.200007 c8_div_test(): c8_div() computes C3 = C1 / C2. C1=C8_UNIFORM_01 C2=C8_UNIFORM_01 C3=C8_DIV(C1,C2) C4=C1/C2 --------------------- --------------------- --------------------- --------------------- -0.2381 0.3238 -0.2157 0.1555 1.4383 -0.4643 1.4383 -0.4643 0.4279 0.3674 -0.0350 -0.1406 -3.1746 2.2534 -3.1746 2.2534 -0.2915 0.3346 -0.7312 -0.2483 0.2182 -0.5317 0.2182 -0.5317 -0.1958 -0.4243 0.1598 0.3047 -1.3563 -0.0685 -1.3563 -0.0685 -0.1555 0.1550 -0.8886 -0.2144 0.1256 -0.2047 0.1256 -0.2047 0.2282 -0.7827 0.2287 0.4167 -1.2126 -1.2132 -1.2126 -1.2132 0.6242 -0.2941 0.6469 -0.5611 0.7757 0.2182 0.7757 0.2182 0.2487 0.1525 -0.3474 -0.3782 -0.5462 0.1558 -0.5462 0.1558 0.0914 0.4907 -0.0665 0.6982 0.6841 -0.1961 0.6841 -0.1961 -0.2509 0.7654 0.1036 -0.2781 -2.7121 0.1081 -2.7121 0.1081 c8_div_r8_test(): c8_div_r8() computes C3 = C1 / R2. C1=C8_UNIFORM_01 R2=RAND(1,1) C3=C8_DIV_R8(C1,R2) C4=C1/R2 --------------------- --------------------- --------------------- --------------------- 0.2815 -0.1533 0.2715 1.0368 -0.5648 1.0368 -0.5648 -0.0346 0.2364 0.2774 -0.1246 0.8522 -0.1246 0.8522 -0.3538 0.1041 0.5499 -0.6434 0.1893 -0.6434 0.1893 -0.5937 0.6276 0.5086 -1.1674 1.2340 -1.1674 1.2340 0.1769 0.0811 0.6854 0.2581 0.1183 0.2581 0.1183 -0.1865 0.5295 0.8441 -0.2210 0.6273 -0.2210 0.6273 -0.1457 -0.0127 0.8450 -0.1724 -0.0150 -0.1724 -0.0150 0.8937 0.4024 0.2613 3.4205 1.5402 3.4205 1.5402 0.2020 -0.4178 0.9148 0.2208 -0.4567 0.2208 -0.4567 0.0121 0.0139 0.5660 0.0214 0.0246 0.0214 0.0246 c8_exp_test(): c8_exp() computes the exponential of a C8. C1=C8_UNIFORM_01 C2=C8_EXP(C1) C3=C8_LOG(C2)) --------------------- --------------------- --------------------- ( -0.786135 0.535327) ( 0.391864 0.232413) ( -0.786135 0.535327) ( -0.335394 -0.059067) ( 0.713809 -0.042211) ( -0.335394 -0.059067) ( 0.972935 -0.095118) ( 2.633740 -0.251274) ( 0.972935 -0.095118) ( 0.493890 -0.045838) ( 1.636957 -0.075087) ( 0.493890 -0.045838) ( -0.409345 0.730964) ( 0.494432 0.443335) ( -0.409345 0.730964) ( -0.540020 -0.591978) ( 0.483577 -0.325169) ( -0.540020 -0.591978) ( 0.405825 0.820931) ( 1.022679 1.098067) ( 0.405825 0.820931) ( 0.453927 -0.580329) ( 1.316712 -0.863287) ( 0.453927 -0.580329) ( 0.089350 0.877146) ( 0.699103 0.840783) ( 0.089350 0.877146) ( -0.137307 -0.273876) ( 0.839214 -0.235765) ( -0.137307 -0.273876) c8_i_test(): c8_i() computes the imaginary unit I. C1 = C8_I ( ) = (0,1) C2 = C1 * C1 = (-1,0) c8_imag_test(): c8_imag() computes the imaginary part of a C8. C1=C8_UNIFORM_01 R2=C8_IMAG(C1) R3=IMAG(C1)) --------------------- --------------------- --------------------- ( -0.434145 0.892404) 0.892404 0.892404 ( -0.375998 -0.063337) -0.063337 -0.063337 ( -0.875540 0.229244) 0.229244 0.229244 ( -0.363070 -0.833342) -0.833342 -0.833342 ( -0.190826 0.150208) 0.150208 0.150208 ( -0.068456 -0.875885) -0.875885 -0.875885 ( -0.034404 -0.210412) -0.210412 -0.210412 ( -0.907243 0.411500) 0.411500 0.411500 ( -0.527366 0.249132) 0.249132 0.249132 ( 0.618597 -0.672309) -0.672309 -0.672309 c8_inv_test(): c8_inv() computes the inverse of a C8. C1=C8_UNIFORM_01 C2 = C8_INV(C1) C3 = C8_INV(C2) --------------------- --------------------- --------------------- ( -0.221973 0.406929) ( -1.033092 -1.893898) ( -0.221973 0.406929) ( 0.322853 0.015692) ( 3.090090 -0.150188) ( 0.322853 0.015692) ( -0.849415 -0.197514) ( -1.116891 0.259710) ( -0.849415 -0.197514) ( -0.686508 0.101792) ( -1.425311 -0.211337) ( -0.686508 0.101792) ( 0.550876 0.169312) ( 1.658611 -0.509776) ( 0.550876 0.169312) ( 0.014518 -0.204479) ( 0.345479 4.865957) ( 0.014518 -0.204479) ( 0.421472 -0.625442) ( 0.740963 1.099551) ( 0.421472 -0.625442) ( -0.435795 0.702774) ( -0.637306 -1.027734) ( -0.435795 0.702774) ( -0.706258 -0.563732) ( -0.864882 0.690346) ( -0.706258 -0.563732) ( 0.595068 -0.171124) ( 1.552125 0.446345) ( 0.595068 -0.171124) c8_le_l1_test(): c8_le_l1() evalues (C1 <= C2) using the L1 norm. C1=C8_UNIFORM_01 C2=C8_UNIFORM_01 L3=C8_LE_L1(C1,C2) --------------------- --------------------- --------------------- 0.3915, -0.6494 -0.5610, -0.1860 0 0.3479, 0.1971 -0.3011, -0.8246 1 -0.7714, -0.4350 -0.4252, -0.2735 0 0.3309, 0.4014 0.8943, -0.2540 1 -0.0937, -0.1134 0.0077, 0.0667 0 0.3158, -0.5135 0.2143, -0.8506 1 -0.0934, -0.6418 0.0144, 0.6644 0 -0.3581, 0.6745 -0.5123, -0.6633 1 -0.7705, -0.3111 0.5878, 0.6599 1 -0.6456, -0.7356 0.7649, -0.2736 0 c8_le_l2_test(): c8_le_l2() evalues (C1 <= C2) using the L2 norm. C1=C8_UNIFORM_01 C2=C8_UNIFORM_01 L3=C8_LE_L2(C1,C2) --------------------- --------------------- --------------------- -0.3401, -0.1852 -0.1965, 0.9387 1 0.3798, 0.2534 0.3587, -0.7778 1 -0.4519, 0.0446 0.6703, -0.5546 1 0.1005, 0.6767 0.6855, -0.7226 1 -0.3628, 0.0599 0.6613, -0.3808 1 0.8193, 0.3126 -0.0270, 0.9702 1 -0.7149, -0.1962 -0.1137, 0.2265 0 -0.5626, 0.2664 0.4386, -0.0338 0 0.7959, -0.0580 -0.2751, -0.7344 0 -0.7082, 0.0820 -0.4371, 0.3950 0 c8_le_li_test(): c8_le_li() evalues (C1 <= C2) using the Loo norm. C1=C8_UNIFORM_01 C2=C8_UNIFORM_01 L3=C8_LE_LI(C1,C2) --------------------- --------------------- --------------------- 0.4465, -0.0508 0.3096, 0.0324 0 0.3107, 0.7832 0.5121, 0.8318 1 -0.2564, -0.5473 0.3731, -0.2511 0 -0.6211, 0.7330 -0.5692, 0.7362 1 0.0466, 0.3168 -0.2093, -0.5998 1 -0.5722, -0.4485 -0.4163, 0.8651 1 0.1443, -0.8444 0.1213, 0.0344 0 -0.7619, 0.3372 0.7625, -0.1569 1 0.8372, -0.5172 -0.5497, -0.1522 0 0.2743, -0.1417 0.4482, -0.2575 1 c8_log_test(): c8_log() computes the logarithm of a C8. C1=C8_UNIFORM_01 C2=C8_LOG(C1) C3=C8_EXP(C2)) --------------------- --------------------- --------------------- ( 0.155905 -0.943882) ( -0.044296 -1.407100) ( 0.155905 -0.943882) ( 0.180215 0.548019) ( -0.550104 1.253088) ( 0.180215 0.548019) ( -0.738553 0.387950) ( -0.181227 2.657923) ( -0.738553 0.387950) ( 0.662632 0.097692) ( -0.400785 0.146375) ( 0.662632 0.097692) ( 0.747481 -0.502872) ( -0.104368 -0.592206) ( 0.747481 -0.502872) ( 0.089764 -0.547848) ( -0.588512 -1.408392) ( 0.089764 -0.547848) ( 0.370987 -0.431055) ( -0.564370 -0.860152) ( 0.370987 -0.431055) ( -0.057868 0.086034) ( -2.266399 2.162904) ( -0.057868 0.086034) ( -0.688858 -0.126476) ( -0.356143 -2.960012) ( -0.688858 -0.126476) ( -0.015641 -0.372943) ( -0.985451 -1.612712) ( -0.015641 -0.372943) c8_mag_test(): c8_mag() computes the magnitude of a C8. C1=C8_UNIFORM_01 R2=C8_MAG(C1) R3=ABS(C1)) --------------------- --------------------- --------------------- ( -0.372468 0.278563) 0.465112 0.465112 ( 0.460026 0.315976) 0.558090 0.558090 ( 0.213972 0.049087) 0.219530 0.219530 ( -0.273480 -0.409675) 0.492570 0.492570 ( -0.210960 0.070899) 0.222555 0.222555 ( -0.520671 -0.678740) 0.855446 0.855446 ( -0.688255 -0.141775) 0.702705 0.702705 ( -0.422508 0.585744) 0.722225 0.722225 ( 0.487355 0.836838) 0.968407 0.968407 ( 0.721498 0.220533) 0.754449 0.754449 c8_mul_test(): c8_mul() computes C3 = C1 * C2. C1=C8_UNIFORM_01 C2=C8_UNIFORM_01 C3=C8_MUL(C1,C2) C4=C1*C2 --------------------- --------------------- --------------------- --------------------- -0.5935 0.5174 -0.8814 -0.3657 0.7123 -0.2390 0.7123 -0.2390 -0.0909 -0.8193 -0.5313 -0.3075 -0.2036 0.4632 -0.2036 0.4632 0.4674 0.1318 0.1345 -0.4830 0.1265 -0.2080 0.1265 -0.2080 -0.3287 -0.8122 0.3346 -0.6455 -0.6343 -0.0596 -0.6343 -0.0596 -0.7906 -0.0341 0.5529 0.0419 -0.4357 -0.0520 -0.4357 -0.0520 0.7491 0.3910 -0.0201 0.4664 -0.1974 0.3415 -0.1974 0.3415 0.6239 0.1840 0.2329 0.8338 -0.0082 0.5630 -0.0082 0.5630 -0.8916 0.4341 -0.3710 -0.9144 0.7277 0.6543 0.7277 0.6543 -0.6328 0.3695 -0.1851 0.0690 0.0917 -0.1120 0.0917 -0.1120 -0.1031 -0.6136 0.3544 0.5128 0.2781 -0.2703 0.2781 -0.2703 c8_nint_test(): c8_nint() computes the nearest integer to a C8. C1=10*C8_UNIFORM_01 C2=C8_NINT(C1) --------------------- --------------------- ( -4.802982 4.066555) ( -5.000000 4.000000) ( 5.847184 4.014186) ( 6.000000 4.000000) ( -7.577655 -4.775256) ( -8.000000 -5.000000) ( 4.988544 1.399285) ( 5.000000 1.000000) ( 2.533844 7.634161) ( 3.000000 8.000000) ( -0.638632 -7.078945) ( -1.000000 -7.000000) ( 5.629704 3.351721) ( 6.000000 3.000000) ( -1.980074 -9.065269) ( -2.000000 -9.000000) ( -2.404696 -8.346299) ( -2.000000 -8.000000) ( 0.080446 3.890431) ( 0.000000 4.000000) c8_norm_l1_test(): c8_norm_l1() computes the L1 norm of a C8. C1=C8_UNIFORM_01 R2=C8_NORM_L1(C1) --------------------- --------------------- -0.462685, 0.428226 0.890911 -0.129225, -0.632509 0.761735 -0.249498, 0.039450 0.288948 -0.091843, 0.761836 0.853679 0.404139, 0.219468 0.623606 0.484319, -0.705352 1.189671 -0.159695, 0.466598 0.626293 -0.608777, 0.152244 0.761021 -0.097881, 0.478361 0.576243 -0.356764, 0.291578 0.648342 c8_norm_l2_test(): c8_norm_l2() computes the L2 norm of a C8. C1=C8_UNIFORM_01 R2=C8_NORM_L2(C1) --------------------- --------------------- -0.297863, 0.361166 0.468149 -0.949139, -0.109037 0.955381 0.601384, 0.492815 0.777515 0.424935, 0.156010 0.452669 -0.207397, -0.568090 0.604764 -0.188183, 0.766010 0.788787 0.429630, 0.870272 0.970544 -0.747843, -0.047402 0.749344 0.686450, 0.206975 0.716975 -0.134713, 0.365428 0.389468 c8_norm_li_test(): c8_norm_li() computes the Loo norm of a C8. C1=C8_UNIFORM_01 R2=C8_NORM_LI(C1) --------------------- --------------------- -0.793029, -0.434629 0.793029 0.751205, -0.354917 0.751205 -0.689110, -0.134848 0.689110 0.693042, -0.011607 0.693042 0.219912, -0.319655 0.319655 -0.393100, 0.178107 0.393100 -0.591256, -0.729046 0.729046 -0.702009, -0.684750 0.702009 0.240064, 0.227773 0.240064 0.262409, 0.611044 0.611044 c8_normal_01_test(): c8_normal_01() generates unit pseudonormal complex values. -0.579307 -1.623240 -0.228112 1.782829 2.202896 1.323071 0.286649 -1.649582 -0.351250 1.146632 -0.357485 -0.090950 -0.589098 0.167274 0.141810 -0.761393 -1.337572 2.320220 0.841455 0.261571 -1.254447 -1.039216 -0.524428 -1.860762 0.459248 -1.241268 0.436883 -0.572762 -0.842955 -1.436460 0.195441 1.500314 -0.767806 -0.530373 -0.107723 -1.629850 0.969728 1.159146 0.530424 -0.425729 c8_one_test(): c8_one() returns one as a C8. C1 = C8_ONE ( ) = (1,0) C2 = C1 + C1 = (2,0) c8_print_test(): c8_print() prints a C8. Zero: ( 0, 0 ) One: ( 1, 0 ) Pi: ( 3.14159, 0 ) i: ( 0, 1 ) 1+2i: ( 1, 2 ) -12.34 + 56.78i: ( -12.34, 56.78 ) 1E-3 + 2E-6i ( 0.001, 2e-06 ) 3E8 - 4.5E9i: ( 3e+08, -4.5e+09 ) c8_real_test(): c8_real() computes the real part of a C8. C1=C8_UNIFORM_01 R2=C8_REAL(C1) R3=REAL(C1)) --------------------- --------------------- --------------------- ( -0.557696 -0.055435) -0.557696 -0.557696 ( 0.318618 0.261473) 0.318618 0.318618 ( -0.250458 0.728235) -0.250458 -0.250458 ( -0.029821 0.477985) -0.029821 -0.029821 ( -0.369525 0.063520) -0.369525 -0.369525 ( -0.258103 -0.706755) -0.258103 -0.258103 ( -0.641131 0.406432) -0.641131 -0.641131 ( -0.124768 0.022960) -0.124768 -0.124768 ( 0.002104 -0.462264) 0.002104 0.002104 ( -0.147220 0.512335) -0.147220 -0.147220 c8_sin_test(): c8_sin() computes the sine of a C8. C1=C8_UNIFORM_01 C2 = C8_SIN(C1) C3 = C8_ASIN(C1) --------------------- --------------------- --------------------- ( -0.847908 -0.185606) ( -0.762852 -0.123494) ( -0.847908 -0.185606) ( -0.671290 0.433737) ( -0.681427 0.350374) ( -0.671290 0.433737) ( -0.558259 -0.613496) ( -0.632562 -0.553616) ( -0.558259 -0.613496) ( -0.184579 0.468512) ( -0.204047 0.477589) ( -0.184579 0.468512) ( 0.357415 0.377676) ( 0.375103 0.362280) ( 0.357415 0.377676) ( 0.389033 -0.804571) ( 0.508826 -0.827409) ( 0.389033 -0.804571) ( -0.804644 -0.066821) ( -0.722193 -0.046366) ( -0.804644 -0.066821) ( 0.132121 -0.937471) ( 0.193992 -1.071529) ( 0.132121 -0.937471) ( -0.582853 -0.760176) ( -0.717247 -0.697584) ( -0.582853 -0.760176) ( 0.563677 -0.388276) ( 0.575081 -0.336517) ( 0.563677 -0.388276) c8_sinh_test(): c8_sinh() computes the hyperbolic sine of a C8. C1=C8_UNIFORM_01 C2 = C8_SINH(C1) C3 = C8_ASINH(C1) --------------------- --------------------- --------------------- ( -0.380057 0.815808) ( -0.266761 0.781513) ( -0.380057 0.815808) ( 0.771656 -0.111515) ( 0.845266 -0.146093) ( 0.771656 -0.111515) ( 0.056104 0.924583) ( 0.033802 0.799626) ( 0.056104 0.924583) ( -0.623065 0.340640) ( -0.626006 0.401064) ( -0.623065 0.340640) ( 0.372926 -0.919814) ( 0.231256 -0.851449) ( 0.372926 -0.919814) ( -0.466788 -0.237311) ( -0.470363 -0.261170) ( -0.466788 -0.237311) ( -0.963599 -0.255803) ( -1.083360 -0.379866) ( -0.963599 -0.255803) ( -0.778568 0.370606) ( -0.801281 0.477610) ( -0.778568 0.370606) ( -0.239827 0.429457) ( -0.220145 0.428409) ( -0.239827 0.429457) ( 0.725273 -0.606716) ( 0.649458 -0.726824) ( 0.725273 -0.606716) c8_sqrt_test(): c8_sqrt() computes the principal square root of a C8. C1=random C2=C8_SQRT(C1) C3=C2*C2 0.591088 -0.387322 0.805535 -0.240413 0.199366 -0.457882 -0.762105 0.291740 0.164213 0.888296 0.495691 -0.444672 -0.937846 0.037946 0.019588 0.968623 0.878116 -0.071175 0.443710 0.753992 0.811964 0.464302 -0.371626 0.669108 0.037916 0.388588 0.462790 0.419832 -0.149563 0.029467 0.031243 0.701443 0.605550 0.579179 -0.491047 0.043830 0.125439 0.073308 0.367918 0.099626 0.010361 0.018391 0.352661 -0.359384 0.654284 -0.274639 -0.004787 -0.253481 -0.035573 0.121561 0.213407 0.284809 -0.013512 -0.008649 -0.509406 0.423825 0.276819 0.765529 0.079867 -0.431799 c8_sub_test(): c8_sub() computes the difference of two C8's. C1=C8_UNIFORM_01 C2=C8_UNIFORM_01 C3 = C1-C2 --------------------- --------------------- --------------------- ( -0.155590 -0.092282) ( -0.047822 -0.993079) ( -0.107768 0.900797) ( 0.309768 -0.914650) ( -0.154158 0.487924) ( 0.463926 -1.402574) ( 0.518573 0.681736) ( -0.097688 -0.530084) ( 0.616261 1.211820) ( -0.773098 -0.164216) ( -0.058281 -0.771348) ( -0.714817 0.607131) ( -0.075390 0.682739) ( 0.403206 0.866964) ( -0.478596 -0.184226) ( 0.167989 -0.541293) ( -0.727650 0.178597) ( 0.895639 -0.719890) ( -0.658673 -0.003478) ( -0.473959 -0.159578) ( -0.184714 0.156100) ( 0.807891 0.387174) ( 0.544657 0.071323) ( 0.263235 0.315851) ( -0.639463 -0.104696) ( 0.612329 0.222663) ( -1.251793 -0.327358) ( 0.680358 -0.012476) ( 0.676629 -0.008275) ( 0.003729 -0.004202) c8_tan_test(): c8_tan() computes the tangent of a C8. C1=C8_UNIFORM_01 C2 = C8_TAN(C1) C3 = C8_ATAN(C1) --------------------- --------------------- --------------------- ( -0.267851 -0.156161) ( -0.267377 -0.166271) ( -0.267851 -0.156161) ( -0.528201 -0.468459) ( -0.443280 -0.549974) ( -0.528201 -0.468459) ( 0.597356 0.643783) ( 0.401389 0.722417) ( 0.597356 0.643783) ( 0.801808 0.372452) ( 0.794676 0.648591) ( 0.801808 0.372452) ( -0.176285 -0.031331) ( -0.177954 -0.032314) ( -0.176285 -0.031331) ( 0.209127 0.827531) ( 0.112014 0.695293) ( 0.209127 0.827531) ( 0.749646 0.017840) ( 0.930382 0.033288) ( 0.749646 0.017840) ( 0.629643 0.549757) ( 0.482115 0.676083) ( 0.629643 0.549757) ( -0.869496 0.116312) ( -1.146682 0.273011) ( -0.869496 0.116312) ( 0.917144 0.042788) ( 1.299077 0.115283) ( 0.917144 0.042788) c8_tanh_test(): c8_tanh() computes the hyperbolic sine of a C8. C1=C8_UNIFORM_01 C2 = C8_TANH(C1) C3 = C8_ATANH(C1) --------------------- --------------------- --------------------- ( 0.654511 -0.639992) ( 0.755036 -0.421466) ( 0.654511 -0.639992) ( -0.053800 -0.103095) ( -0.054322 -0.103160) ( -0.053800 -0.103095) ( 0.714237 0.254616) ( 0.638600 0.158326) ( 0.714237 0.254616) ( -0.804779 0.164722) ( -0.676809 0.091221) ( -0.804779 0.164722) ( -0.069885 0.771393) ( -0.135120 0.963208) ( -0.069885 0.771393) ( 0.938616 0.088023) ( 0.737209 0.040459) ( 0.938616 0.088023) ( -0.008136 0.649268) ( -0.012824 0.758970) ( -0.008136 0.649268) ( 0.201274 0.025187) ( 0.198721 0.024198) ( 0.201274 0.025187) ( 0.906971 0.075965) ( 0.721679 0.036581) ( 0.906971 0.075965) ( 0.947236 -0.308258) ( 0.770782 -0.137156) ( 0.947236 -0.308258) c8_to_cartesian_test(): c8_to_cartesian() converts C8 to (X,Y). C1=C8_UNIFORM_01 (X2,Y2)=C8_TO_CARTESIAN(C1) C3=CARTESIAN_TO_C8(X2,Y2) ---------------------- ---------------------- ----------------------- ( -0.134101 0.083839) -0.134101 0.083839 ( -0.134101 0.083839) ( 0.077666 -0.600999) 0.077666 -0.600999 ( 0.077666 -0.600999) ( -0.728883 0.574375) -0.728883 0.574375 ( -0.728883 0.574375) ( 0.376158 0.047473) 0.376158 0.047473 ( 0.376158 0.047473) ( 0.259246 0.174770) 0.259246 0.174770 ( 0.259246 0.174770) ( 0.621687 0.163097) 0.621687 0.163097 ( 0.621687 0.163097) ( -0.386558 0.195506) -0.386558 0.195506 ( -0.386558 0.195506) ( 0.263637 -0.154174) 0.263637 -0.154174 ( 0.263637 -0.154174) ( -0.084245 0.447245) -0.084245 0.447245 ( -0.084245 0.447245) ( 0.245291 -0.168871) 0.245291 -0.168871 ( 0.245291 -0.168871) c8_to_polar_test(): c8_to_polar() converts C8 to polar form. C1=C8_UNIFORM_01 (R2,T2)=C8_TO_POLAR(C1) C3=POLAR_TO_C8(R2,T2) ---------------------- ---------------------- ----------------------- ( 0.168143 -0.823298) 0.840292 -1.369336 ( 0.168143 -0.823298) ( -0.238534 -0.321110) 0.400013 -2.209701 ( -0.238534 -0.321110) ( -0.131709 0.421154) 0.441269 1.873893 ( -0.131709 0.421154) ( -0.119969 -0.758811) 0.768236 -1.727600 ( -0.119969 -0.758811) ( 0.415430 0.305756) 0.515818 0.634480 ( 0.415430 0.305756) ( -0.044020 0.910489) 0.911552 1.619107 ( -0.044020 0.910489) ( 0.460146 0.547457) 0.715152 0.871834 ( 0.460146 0.547457) ( 0.197214 0.803693) 0.827536 1.330166 ( 0.197214 0.803693) ( 0.324367 -0.719322) 0.789074 -1.147166 ( 0.324367 -0.719322) ( -0.944345 -0.199500) 0.965188 -2.933396 ( -0.944345 -0.199500) c8_uniform_01_test(): c8_uniform_01() returns a uniformly random "unit" C8. C1=C8_UNIFORM_01 --------------------- ( -0.605750 -0.696131) ( -0.548084 0.026571) ( 0.364846 -0.841476) ( -0.018996 0.344427) ( -0.259667 -0.617204) ( 0.543052 -0.745091) ( -0.399575 -0.602485) ( 0.331914 -0.904727) ( 0.336709 0.262594) ( -0.018806 -0.767784) c8_zero_test(): c8_zero() returns zero as a C8 C1 = C8_ZERO ( ) = (0,0) c8mat_identity_test(): c8mat_identity() returns the complex identity matrix. The identity matrix: Col: 1 2 3 4 Row --- 1: 1.000000 0.0 0.0 0.0 2: 0.0 1.000000 0.0 0.0 3: 0.0 0.0 1.000000 0.0 4: 0.0 0.0 0.0 1.000000 c8mat_indicator_test(): c8mat_indicator() returns the complex indicator matrix. The indicator matrix: Col: 1 2 3 Row --- 1: 1.000000 1.000000 1.000000 2.000000 1.000000 3.000000 2: 2.000000 1.000000 2.000000 2.000000 2.000000 3.000000 3: 3.000000 1.000000 3.000000 2.000000 3.000000 3.000000 4: 4.000000 1.000000 4.000000 2.000000 4.000000 3.000000 5: 5.000000 1.000000 5.000000 2.000000 5.000000 3.000000 c8mat_norm_fro_test(): c8mat_norm_fro() returns the Frobenius norm of a C8MAT. The indicator matrix: Col: 1 2 3 4 Row --- 1: 1.000000 1.000000 1.000000 2.000000 1.000000 3.000000 1.000000 4.000000 2: 2.000000 1.000000 2.000000 2.000000 2.000000 3.000000 2.000000 4.000000 3: 3.000000 1.000000 3.000000 2.000000 3.000000 3.000000 3.000000 4.000000 4: 4.000000 1.000000 4.000000 2.000000 4.000000 3.000000 4.000000 4.000000 5: 5.000000 1.000000 5.000000 2.000000 5.000000 3.000000 5.000000 4.000000 Frobenius norm = 19.2354 c8mat_norm_l1_test(): c8mat_norm_l1() returns the L1 norm of a C8MAT. The indicator matrix: Col: 1 2 3 4 Row --- 1: 1.000000 1.000000 1.000000 2.000000 1.000000 3.000000 1.000000 4.000000 2: 2.000000 1.000000 2.000000 2.000000 2.000000 3.000000 2.000000 4.000000 3: 3.000000 1.000000 3.000000 2.000000 3.000000 3.000000 3.000000 4.000000 4: 4.000000 1.000000 4.000000 2.000000 4.000000 3.000000 4.000000 4.000000 5: 5.000000 1.000000 5.000000 2.000000 5.000000 3.000000 5.000000 4.000000 L1 norm = 25.6552 c8mat_norm_li_test(): c8mat_norm_li() returns the Loo norm of a C8MAT. The indicator matrix: Col: 1 2 3 4 Row --- 1: 1.000000 1.000000 1.000000 2.000000 1.000000 3.000000 1.000000 4.000000 2: 2.000000 1.000000 2.000000 2.000000 2.000000 3.000000 2.000000 4.000000 3: 3.000000 1.000000 3.000000 2.000000 3.000000 3.000000 3.000000 4.000000 4: 4.000000 1.000000 4.000000 2.000000 4.000000 3.000000 4.000000 4.000000 5: 5.000000 1.000000 5.000000 2.000000 5.000000 3.000000 5.000000 4.000000 Loo norm = 22.7183 c8mat_uniform_01_test(): c8mat_uniform_01() computes a "random" complex matrix. The matrix: Col: 1 2 3 4 Row --- 1: 0.748391 0.119018 0.251983 0.732107 -0.602258 -0.160256 0.556221 -0.190235 2: -0.042798 0.936845 0.179510 0.114598 -0.600537 0.529618 -0.210441 0.603971 3: 0.784867 -0.303987 -0.003913 -0.351033 0.194872 0.359228 -0.567390 -0.334700 4: 0.455263 -0.348848 -0.340126 0.879833 0.235474 0.156507 -0.720399 -0.134131 5: -0.621248 -0.531442 0.465161 -0.766212 0.870023 0.176374 -0.293537 -0.949576 c8vec_indicator_test(): c8vec_indicator() sets A = (1-1i,2-2i,...,N-Ni) The "indicator" vector: 1: 1-1i 2: 2-2i 3: 3-3i 4: 4-4i 5: 5-5i 6: 6-6i 7: 7-7i 8: 8-8i 9: 9-9i 10: 10-10i c8vec_nint_test(): c8vec_nint() rounds a C8VEC The initial vector: 1: 2.0681+0.57771i 2: 3.0202+2.4539i 3: -3.888+1.159i 4: -3.4966+1.8477i 5: 1.2213-1.7751i The rounded vector: 1: 2+1i 2: 3+2i 3: -4+1i 4: -3+2i 5: 1-2i c8vec_norm_l1_test(): c8vec_norm_l1() computes the L1 norm of a C8VEC. The "indicator" vector: 1: 1-1i 2: 2-2i 3: 3-3i 4: 4-4i 5: 5-5i L1 norm = 21.2132 c8vec_norm_l2_test(): c8vec_norm_l2() computes the L2 norm of a C8VEC. The "indicator" vector: 1: 1-1i 2: 2-2i 3: 3-3i 4: 4-4i 5: 5-5i L2 norm = 10.4881 c8vec_norm_li_test(): c8vec_norm_li() computes the Loo norm of a C8VEC. The "indicator" vector: 1: 1-1i 2: 2-2i 3: 3-3i 4: 4-4i 5: 5-5i Loo norm = 7.07107 c8vec_print_test(): c8vec_print() prints a C8VEC The "indicator" vector: 1: 1-1i 2: 2-2i 3: 3-3i 4: 4-4i 5: 5-5i c8vec_print_part_test(): c8vec_print_part() prints part of a C8VEC Part of the vector: 1 1-1i 2 2-2i 3 3-3i 4 4-4i 5 5-5i 6 6-6i 7 7-7i 8 8-8i ...... .............. .............. 100 100-100i c8vec_sort_a_l1_test(): c8vec_sort_a_l1() sorts a C8VEC by L1 norm. The unsorted vector: 1: -0.043105-0.3177i 2: -0.30719+0.40329i 3: -0.61582+0.36771i 4: -0.77853-0.57242i 5: 0.47275+0.7972i 6: 0.86164-0.27443i 7: -0.7217+0.41046i 8: -0.28924-0.93591i 9: 0.39198+0.28626i 10: 0.21143-0.71684i I, A(I), |A(I)| 1 -0.043105-0.3177i 0.36081 2 0.39198+0.28626i 0.678237 3 -0.30719+0.40329i 0.710486 4 0.21143-0.71684i 0.928264 5 -0.61582+0.36771i 0.983524 6 -0.7217+0.41046i 1.13216 7 0.86164-0.27443i 1.13606 8 -0.28924-0.93591i 1.22515 9 0.47275+0.7972i 1.26995 10 -0.77853-0.57242i 1.35095 c8vec_sort_a_l2_test(): c8vec_sort_a_l2() sorts a C8VEC by L2 norm. The unsorted vector: 1: 0.83003-0.36875i 2: -0.77999+0.33916i 3: -0.51295+0.10506i 4: 0.72534+0.66655i 5: -0.72556-0.53745i 6: 0.70744+0.52872i 7: 0.28262-0.059972i 8: -0.53758-0.24487i 9: 0.061644-0.79216i 10: -0.49456+0.17552i I, A(I), |A(I)| 1 0.28262-0.059972i 0.288909 2 -0.51295+0.10506i 0.523596 3 -0.49456+0.17552i 0.524784 4 -0.53758-0.24487i 0.59072 5 0.061644-0.79216i 0.794556 6 -0.77999+0.33916i 0.850537 7 0.70744+0.52872i 0.883187 8 -0.72556-0.53745i 0.902933 9 0.83003-0.36875i 0.908257 10 0.72534+0.66655i 0.985089 c8vec_sort_a_li_test(): c8vec_sort_a_li() sorts a C8VEC by Loo norm. The unsorted vector: 1: 0.18452+0.63159i 2: -0.16234+0.35888i 3: -0.60711-0.43527i 4: 0.24477+0.70386i 5: -0.54957+0.57669i 6: 0.34698+0.59268i 7: -0.52107+0.75368i 8: -0.66247-0.0018724i 9: -0.080607-0.50882i 10: -0.072424-0.40552i I, A(I), |A(I)| 1 -0.16234+0.35888i 0.358882 2 -0.072424-0.40552i 0.405523 3 -0.080607-0.50882i 0.50882 4 -0.54957+0.57669i 0.576685 5 0.34698+0.59268i 0.592682 6 -0.60711-0.43527i 0.607113 7 0.18452+0.63159i 0.631595 8 -0.66247-0.0018724i 0.662469 9 0.24477+0.70386i 0.703861 10 -0.52107+0.75368i 0.753682 c8vec_spiral_test(): c8vec_spiral() returns N points on a spiral which includes M complete turns. The spiral points: 1: 5 2: 4.1858+2.4167i 3: 2.3333+4.0415i 4: 2.7555e-16+4.5i 5: -2.1667+3.7528i 6: -3.6084+2.0833i 7: -4+4.8986e-16i 8: -3.3198-1.9167i 9: -1.8333-3.1754i 10: -6.4294e-16-3.5i 11: 1.6667-2.8868i 12: 2.7424-1.5833i 13: 3-7.3479e-16i c8vec_uniform_01_test(): c8vec_uniform_01_test() returns a random C8VEC The random C8VEC: 1: -0.38507-0.28668i 2: 0.41076+0.57483i 3: -0.27377-0.25033i 4: 0.16841+0.96254i 5: -0.14383-0.64526i c8vec_unity_test(): c8vec_unity() sets A to the N roots of unity The N roots of unity: 1: 1 2: 0.86603+0.5i 3: 0.5+0.86603i 4: 6.1232e-17+1i 5: -0.5+0.86603i 6: -0.86603+0.5i 7: -1+1.2246e-16i 8: -0.86603-0.5i 9: -0.5-0.86603i 10: -1.837e-16-1i 11: 0.5-0.86603i 12: 0.86603-0.5i cartesian_to_c8_test(): cartesian_to_c8() converts (X,Y) to C8. X1,Y1=R8_UNIFORM_01 C2=CARTESIAN_TO_C8(X1,Y1) X3,Y3=C8_TO_CARTESIAN(C2) ---------------------- ---------------------- ----------------------- 0.634510 0.507862 ( 0.634510 0.507862) 0.634510 0.507862 0.601632 0.865440 ( 0.601632 0.865440) 0.601632 0.865440 0.937917 0.152510 ( 0.937917 0.152510) 0.937917 0.152510 0.093513 0.916217 ( 0.093513 0.916217) 0.093513 0.916217 0.143637 0.936204 ( 0.143637 0.936204) 0.143637 0.936204 0.965225 0.609649 ( 0.965225 0.609649) 0.965225 0.609649 0.491722 0.088880 ( 0.491722 0.088880) 0.491722 0.088880 0.254638 0.554776 ( 0.254638 0.554776) 0.254638 0.554776 0.494191 0.207244 ( 0.494191 0.207244) 0.494191 0.207244 0.258947 0.751881 ( 0.258947 0.751881) 0.258947 0.751881 polar_to_c8_test(): POLAR_TO_C8 converts polar form to C8. (R1,T1)=R8_UNIFORM_01() C2=POLAR_TO_C8(R1,T1) (R3,T3)=C8_TO_POLAR(C2) ---------------------- ---------------------- ----------------------- 0.696963 4.862184 ( 0.104012 -0.689158) 0.696963 -1.421001 0.718805 5.054987 ( 0.241472 -0.677032) 0.718805 -1.228198 0.737094 0.004906 ( 0.737085 0.003616) 0.737094 0.004906 0.988260 4.897812 ( 0.182198 -0.971320) 0.988260 -1.385373 0.399189 1.793082 ( -0.088005 0.389368) 0.399189 1.793082 0.016039 5.516850 ( 0.011555 -0.011123) 0.016039 -0.766336 0.375834 1.896459 ( -0.120243 0.356080) 0.375834 1.896459 0.100632 0.456081 ( 0.090346 0.044321) 0.100632 0.456081 0.641491 4.504297 ( -0.132528 -0.627652) 0.641491 -1.778889 0.986935 4.512226 ( -0.196232 -0.967230) 0.986935 -1.770960 r8_sign_test(): r8_sign() returns the sign of an R8. R8 R8_SIGN(R8) -1.250000 -1.000000 -0.250000 -1.000000 0.000000 1.000000 0.500000 1.000000 9.000000 1.000000 r8poly2_root_test(): r8poly2_root() finds quadratic equation roots. A B C R1 R2 2.000000 -2.000000 -24.000000 4.000000 -3.000000 1.000000 -20.000000 100.000000 10.000000 10.000000 1.000000 -2.000000 10.000000 1.000000 1.000000 r8poly3_root_test(): r8poly3_root() finds roots of cubic equations. Polynomial coefficients: A = 1.000000, B = -6.000000, C = 11.000000, D = -6.000000 Roots: 1.000000 3.000000 2.000000 Polynomial coefficients: A = 9.000000, B = -36.000000, C = 54.000000, D = -27.000000 Roots: 1.000000 1.500000 1.500000 Polynomial coefficients: A = 1.000000, B = -5.000000, C = 8.000000, D = -4.000000 Roots: 1.000000 2.000000 2.000000 Polynomial coefficients: A = 1.000000, B = -8.000000, C = 25.000000, D = -26.000000 Roots: 2.000000 3.000000 3.000000 r8poly4_root_test(): r8poly4_root() finds roots of quartic equations. A = 1.000000 B = -10.000000 C = 35.000000 D = -50.000000 E = 24.000000 Roots: 4.000000 1.000000 3.000000 2.000000 A = 1.000000 B = -5.000000 C = 1.000000 D = 21.000000 E = -18.000000 Roots: 3.000000 3.000000 1.000000 -2.000000 A = 1.000000 B = -22.000000 C = 141.000000 D = -220.000000 E = 100.000000 Roots: 10.000000 10.000000 1.000000 1.000000 A = 1.000000 B = -16.000000 C = 72.000000 D = -128.000000 E = 80.000000 Roots: 10.000000 2.000000 2.000000 2.000000 A = 1.000000 B = -20.000000 C = 150.000000 D = -500.000000 E = 625.000000 Roots: 5.000000 5.000000 5.000000 5.000000 A = 1.000000 B = 2.000000 C = 1.000000 D = 8.000000 E = -12.000000 Roots: -0.000000 -0.000000 1.000000 -3.000000 A = 1.000000 B = 0.000000 C = 13.000000 D = 0.000000 E = 36.000000 Roots: 0.000000 0.000000 0.000000 -0.000000 c8lib_test(): Normal end of execution. 05-Jun-2023 21:02:51