PageRenderTime 53ms CodeModel.GetById 21ms RepoModel.GetById 0ms app.codeStats 0ms

/trunk/Examples/test-suite/octave/template_typedef_cplx2_runme.m

#
MATLAB | 103 lines | 84 code | 19 blank | 0 comment | 13 complexity | b15ea9e0cb807a8498ada79339681ff3 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. template_typedef_cplx2
    2. 

  2. 

  3. #
    4. 

  4. # double case
    5. 

  5. #
    6. 

  6. 

  7. try
    8. 

  8.   d = make_Identity_double();
    9. 

  9.   a = swig_this(d);
    10. 

  10. catch
    11. 

  11.   d
    12. 

  12.   error("is not an instance")
    13. 

  13. end_try_catch
    14. 

  14. 

  15. if (findstr('ArithUnaryFunction',swig_type(d)) != 1)
    16. 

  16.   d
    17. 

  17.   error("is not an ArithUnaryFunction")
    18. 

  18.   error
    19. 

  19. endif
    20. 

  20. 

  21. try
    22. 

  22.   e = make_Multiplies_double_double_double_double(d, d);
    23. 

  23.   a = swig_this(e);
    24. 

  24. catch
    25. 

  25.   e
    26. 

  26.   error("is not an instance")
    27. 

  27. end_try_catch
    28. 

  28. 

  29. if (findstr('ArithUnaryFunction',swig_type(e)) != 1)
    30. 

  30.   e
    31. 

  31.   error("is not an ArithUnaryFunction")
    32. 

  32. endif
    33. 

  33. 

  34. 

  35. #
    36. 

  36. # complex case
    37. 

  37. #
    38. 

  38. 

  39. try
    40. 

  40.   c = make_Identity_complex();
    41. 

  41.   a = swig_this(c);
    42. 

  42. catch
    43. 

  43.   c
    44. 

  44.   error("is not an instance")
    45. 

  45. end_try_catch
    46. 

  46. 

  47. if (findstr('ArithUnaryFunction',swig_type(c)) != 1)
    48. 

  48.   c
    49. 

  49.   error("is not an ArithUnaryFunction")
    50. 

  50. endif
    51. 

  51. 

  52. try
    53. 

  53.   f = make_Multiplies_complex_complex_complex_complex(c, c);
    54. 

  54.   a = swig_this(f);
    55. 

  55. catch
    56. 

  56.   f
    57. 

  57.   error("is not an instance")
    58. 

  58. end_try_catch
    59. 

  59. 

  60. if (findstr('ArithUnaryFunction',swig_type(f)) != 1)
    61. 

  61.   f
    62. 

  62.   error("is not an ArithUnaryFunction")
    63. 

  63. endif
    64. 

  64. 

  65. #
    66. 

  66. # Mix case
    67. 

  67. #
    68. 

  68. 

  69. try
    70. 

  70.   g = make_Multiplies_double_double_complex_complex(d, c);
    71. 

  71.   a = swig_this(g);
    72. 

  72. catch
    73. 

  73.   g
    74. 

  74.   error("is not an instance")
    75. 

  75. end_try_catch
    76. 

  76. 

  77. if (findstr('ArithUnaryFunction',swig_type(g)) != 1)
    78. 

  78.   g
    79. 

  79.   error("is not an ArithUnaryFunction")
    80. 

  80.   error
    81. 

  81. endif
    82. 

  82. 

  83. 

  84. try
    85. 

  85.   h = make_Multiplies_complex_complex_double_double(c, d);
    86. 

  86.   a = swig_this(h);
    87. 

  87. catch
    88. 

  88.   h
    89. 

  89.   error("is not an instance")
    90. 

  90. end_try_catch
    91. 

  91. 

  92. if (findstr('ArithUnaryFunction',swig_type(h)) == -1)
    93. 

  93.   h
    94. 

  94.   error("is not an ArithUnaryFunction")
    95. 

  95. endif
    96. 

  96. 

  97. try
    98. 

  98.   a = g.get_value();
    99. 

  99. catch
    100. 

  100.   error(g, "has not get_value() method")
    101. 

  101.   error
    102. 

  102. end_try_catch
    103. 

  103. 

  104.