C 代码 将双精度复数 （C8） 变量定义为结构， 并实现某些相应的基本函数.rar

12 June 2019 08:39:47 AM C8_COMPLEX_LIB_TEST C version Test the C8_COMPLEX_LIB library. TEST01 C8_ABS computes the absolute value of a C8. C1=C8_UNIFORM_01 R2=C8_ABS(C1) --------------------- --------------------- 0.449860 -0.126667 0.467352 -0.843197 -0.344280 0.910774 0.589627 0.260090 0.644443 0.391140 0.323400 0.507521 -0.139466 -0.156136 0.209354 -0.236066 0.077459 0.248450 0.018599 -0.633214 0.633487 0.892850 0.010314 0.892909 -0.560465 0.763795 0.947367 0.306357 0.026275 0.307481 TEST02 C8_ACOS computes the inverse cosine; C8_COS computes the cosine; C1=C8_UNIFORM_01 C2 = C8_ACOS(C1) C3 = C8_COS(C2) --------------------- --------------------- --------------------- 0.449860 -0.126667 1.109149 0.141009 0.449860 -0.126667 -0.843197 -0.344280 2.416418 0.498201 -0.843197 -0.344280 0.589627 0.260090 0.973443 -0.309595 0.589627 0.260090 0.391140 0.323400 1.192424 -0.341349 0.391140 0.323400 -0.139466 -0.156136 1.709000 0.156993 -0.139466 -0.156136 -0.236066 0.077459 1.808344 -0.079613 -0.236066 0.077459 0.018599 -0.633214 1.555082 0.597163 0.018599 -0.633214 0.892850 0.010314 0.467681 -0.022876 0.892850 0.010314 -0.560465 0.763795 2.013147 -0.767531 -0.560465 0.763795 0.306357 0.026275 1.259556 -0.027598 0.306357 0.026275 TEST03 C8_ACOSH computes the inverse hyperbolic cosine; C8_COSH computes the hyperbolic cosine; C1=C8_UNIFORM_01 C2 = C8_ACOSH(C1) C3 = C8_COSH(C2) --------------------- --------------------- --------------------- 0.449860 -0.126667 -0.141009 1.109149 0.449860 -0.126667 -0.843197 -0.344280 -0.498201 2.416418 -0.843197 -0.344280 0.589627 0.260090 0.309595 0.973443 0.589627 0.260090 0.391140 0.323400 0.341349 1.192424 0.391140 0.323400 -0.139466 -0.156136 -0.156993 1.709000 -0.139466 -0.156136 -0.236066 0.077459 0.079613 1.808344 -0.236066 0.077459 0.018599 -0.633214 -0.597163 1.555082 0.018599 -0.633214 0.892850 0.010314 0.022876 0.467681 0.892850 0.010314 -0.560465 0.763795 0.767531 2.013147 -0.560465 0.763795 0.306357 0.026275 0.027598 1.259556 0.306357 0.026275 TEST04 C8_ADD computes C3 = C1 + C2. C1=C8_UNIFORM_01 C2=C8_UNIFORM_01 C3 = C8_ADD(C1,C2) --------------------- --------------------- --------------------- 0.449860 -0.126667 -0.843197 -0.344280 -0.393337 -0.470947 0.589627 0.260090 0.391140 0.323400 0.980767 0.583490 -0.139466 -0.156136 -0.236066 0.077459 -0.375532 -0.078676 0.018599 -0.633214 0.892850 0.010314 0.911449 -0.622901 -0.560465 0.763795 0.306357 0.026275 -0.254108 0.790070 0.500804 -0.779931 0.350471 0.016555 0.851275 -0.763376 0.434989 -0.266623 -0.200947 0.270711 0.234042 0.004088 -0.097460 0.901881 -0.770245 -0.314307 -0.867705 0.587573 -0.889181 0.265655 -0.779871 -0.551160 -1.669053 -0.285505 0.031360 -0.433556 0.249089 0.578743 0.280450 0.145186 TEST05 C8_ARG computes the argument of a C8 value. C1=C8_UNIFORM_01 R2=C8_ARG(C1) --------------------- --------------------- 0.449860 -0.126667 -0.274465 -0.843197 -0.344280 -2.753949 0.589627 0.260090 0.415436 0.391140 0.323400 0.690879 -0.139466 -0.156136 -2.299861 -0.236066 0.077459 2.824537 0.018599 -0.633214 -1.541432 0.892850 0.010314 0.011551 -0.560465 0.763795 2.203842 0.306357 0.026275 0.085557 TEST06 C8_ASIN computes the inverse sine; C8_SIN computes the sine; C1=C8_UNIFORM_01 C2 = C8_ASIN(C1) C3 = C8_SIN(C2) --------------------- --------------------- --------------------- 0.449860 -0.126667 0.461648 -0.141009 0.449860 -0.126667 -0.843197 -0.344280 -0.845622 -0.498201 -0.843197 -0.344280 0.589627 0.260090 0.597353 0.309595 0.589627 0.260090 0.391140 0.323400 0.378372 0.341349 0.391140 0.323400 -0.139466 -0.156136 -0.138204 -0.156993 -0.139466 -0.156136 -0.236066 0.077459 -0.237548 0.079613 -0.236066 0.077459 0.018599 -0.633214 0.015714 -0.597163 0.018599 -0.633214 0.892850 0.010314 1.103115 0.022876 0.892850 0.010314 -0.560465 0.763795 -0.442351 0.767531 -0.560465 0.763795 0.306357 0.026275 0.311241 0.027598 0.306357 0.026275 TEST07 C8_ASINH computes the inverse hyperbolic sine; C8_SINH computes the hyperbolic sine; C1=C8_UNIFORM_01 C2 = C8_ASINH(C1) C3 = C8_SINH(C2) --------------------- --------------------- --------------------- 0.449860 -0.126667 0.438679 -0.115643 0.449860 -0.126667 -0.843197 -0.344280 -0.788715 -0.262344 -0.843197 -0.344280 0.589627 0.260090 0.572932 0.224433 0.589627 0.260090 0.391140 0.323400 0.399232 0.303890 0.391140 0.323400 -0.139466 -0.156136 -0.140698 -0.155225 -0.139466 -0.156136 -0.236066 0.077459 -0.234582 0.075447 -0.236066 0.077459 0.018599 -0.633214 0.024024 -0.685463 0.018599 -0.633214 0.892850 0.010314 0.803562 0.007693 0.892850 0.010314 -0.560465 0.763795 -0.665100 0.670334 -0.560465 0.763795 0.306357 0.026275 0.301849 0.025125 0.306357 0.026275 TEST08 C8_ATAN computes the inverse tangent; C8_TAN computes the tangent; C1=C8_UNIFORM_01 C2 = C8_ATAN(C1) C3 = C8_TAN(C2) --------------------- --------------------- --------------------- 0.449860 -0.126667 0.427774 -0.105499 0.449860 -0.126667 -0.843197 -0.344280 -0.735020 -0.197908 -0.843197 -0.344280 0.589627 0.260090 0.555251 0.192787 0.589627 0.260090 0.391140 0.323400 0.405767 0.284294 0.391140 0.323400 -0.139466 -0.156136 -0.141920 -0.154298 -0.139466 -0.156136 -0.236066 0.077459 -0.233099 0.073480 -0.236066 0.077459 0.018599 -0.633214 0.031027 -0.746154 0.018599 -0.633214 0.892850 0.010314 0.728880 0.005739 0.892850 0.010314 -0.560465 0.763795 -0.739806 0.556404 -0.560465 0.763795 0.306357 0.026275 0.297455 0.024024 0.306357 0.026275 TEST09 C8_ATANH computes the inverse hyperbolic tangent; C8_TANH computes the hyperbolic tangent; C1=C8_UNIFORM_01 C2 = C8_ATANH(C1) C3 = C8_TANH(C2) --------------------- --------------------- --------------------- 0.449860 -0.126667 0.473511 -0.156723 0.449860 -0.126667 -0.843197 -0.344280 -0.800349 -0.664037 -0.843197 -0.344280 0.589627 0.260090 0.599279 0.363538 0.589627 0.260090 0.391140 0.323400 0.364173 0.358338 0.391140 0.323400 -0.139466 -0.156136 -0.136934 -0.15