Разложение ФКП в ряд

[Rat]

Добрый вечер!

У меня следующий вопрос:

есть очень большое комплексное выражение A (x) от действительной переменной. Его действительную часть необходимо разложить в ряд Тейлора. Как мне это сделать с помощью Mathematica?

Я пробовала следующим образом:

 Series[ComplexExpand[Re[A],{x,0.4}]

На что программа мне выдает огромное выражение в котором присутствуют выражения типа Sin[x]

[Leierkastenmann]

Rat писал(а):

Добрый вечер!

У меня следующий вопрос:

есть очень большое комплексное выражение A (x) от действительной переменной. Его действительную часть необходимо разложить в ряд Тейлора. Как мне это сделать с помощью Mathematica?

Приведите сюда еще на всякий случай само выражение для A.

[Rat]

Leierkastenmann
Вы знаете, это выражение получено в той же Mathematica и оно очень большое. Могу привести его маленький кусочек:

(\[Pi]^2 Cos[(2 dv \[Pi])/\[Lambda]] Cos[
   0.5 Arg[1 + 
      1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
         2 Sin[(\[Pi] x)/2]^2)]]^2 Sin[1 - q]^2)/(
 2 ((1 + 1/
      2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
        2 Sin[(\[Pi] x)/2]^2))^2)^0.5) - (2 \[Pi] Arg[
     0.5 I (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (n2 Cos[(\[Pi] x)/2]^2)/
         n1 + 2 Sin[(\[Pi] x)/2]^2) + Sqrt[
      1 - 0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
          n2 Cos[(\[Pi] x)/2]^2)/n1 + 2 Sin[(\[Pi] x)/2]^2)^2]] Cos[(
     2 dv \[Pi])/\[Lambda]] Cos[
     0.5 Arg[1 + 
        1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/
           n1 - 2 Sin[(\[Pi] x)/2]^2)]]^2 Sin[1 - q]^2)/((1 + 
     1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
        2 Sin[(\[Pi] x)/2]^2))^2)^0.5 + (2 Arg[
     0.5 I (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (n2 Cos[(\[Pi] x)/2]^2)/
         n1 + 2 Sin[(\[Pi] x)/2]^2) + Sqrt[
      1 - 0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
          n2 Cos[(\[Pi] x)/2]^2)/n1 + 
          2 Sin[(\[Pi] x)/2]^2)^2]]^2 Cos[(2 dv \[Pi])/\[Lambda]] Cos[
     0.5 Arg[
       1 + 1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/
           n1 - 2 Sin[(\[Pi] x)/2]^2)]]^2 Sin[1 - q]^2)/((1 + 
     1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
        2 Sin[(\[Pi] x)/2]^2))^2)^0.5 - (2 \[Pi] Cos[(
     2 dv \[Pi])/\[Lambda]] Cos[
     0.5 Arg[1 + 
        1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/
           n1 - 2 Sin[(\[Pi] x)/2]^2)]]^2 Log[\[Sqrt](Cos[
          1/2 Arg[1 - 
             0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                2 Sin[(\[Pi] x)/2]^2)^2]]^2 Sqrt[(1 - 
           0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
              n2 Cos[(\[Pi] x)/2]^2)/n1 + 
              2 Sin[(\[Pi] x)/2]^2)^2)^2] + (-((
           0.5 n1 Cos[(\[Pi] x)/2]^2)/n2) - (
          0.5 n2 Cos[(\[Pi] x)/2]^2)/n1 + 
          1. Sin[(\[Pi] x)/
            2]^2 + ((1 - 
              0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                 n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                 2 Sin[(\[Pi] x)/2]^2)^2)^2)^(1/4)
            Sin[1/2 Arg[
              1 - 0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                  n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                  2 Sin[(\[Pi] x)/2]^2)^2]])^2)] Sin[1 - q]^2)/((1 + 
     1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
        2 Sin[(\[Pi] x)/2]^2))^2)^0.5 + (4 Arg[
     0.5 I (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (n2 Cos[(\[Pi] x)/2]^2)/
         n1 + 2 Sin[(\[Pi] x)/2]^2) + Sqrt[
      1 - 0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
          n2 Cos[(\[Pi] x)/2]^2)/n1 + 2 Sin[(\[Pi] x)/2]^2)^2]] Cos[(
     2 dv \[Pi])/\[Lambda]] Cos[
     0.5 Arg[1 + 
        1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/
           n1 - 2 Sin[(\[Pi] x)/2]^2)]]^2 Log[\[Sqrt](Cos[
          1/2 Arg[1 - 
             0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                2 Sin[(\[Pi] x)/2]^2)^2]]^2 Sqrt[(1 - 
           0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
              n2 Cos[(\[Pi] x)/2]^2)/n1 + 
              2 Sin[(\[Pi] x)/2]^2)^2)^2] + (-((
           0.5 n1 Cos[(\[Pi] x)/2]^2)/n2) - (
          0.5 n2 Cos[(\[Pi] x)/2]^2)/n1 + 
          1. Sin[(\[Pi] x)/
            2]^2 + ((1 - 
              0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                 n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                 2 Sin[(\[Pi] x)/2]^2)^2)^2)^(1/4)
            Sin[1/2 Arg[
              1 - 0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                  n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                  2 Sin[(\[Pi] x)/2]^2)^2]])^2)] Sin[1 - q]^2)/((1 + 
     1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
        2 Sin[(\[Pi] x)/2]^2))^2)^0.5 - (2 Cos[(
     2 dv \[Pi])/\[Lambda]] Cos[
     0.5 Arg[1 + 
        1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/
           n1 - 2 Sin[(\[Pi] x)/2]^2)]]^2 Log[\[Sqrt](Cos[
          1/2 Arg[1 - 
             0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                2 Sin[(\[Pi] x)/2]^2)^2]]^2 Sqrt[(1 - 
           0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
              n2 Cos[(\[Pi] x)/2]^2)/n1 + 
              2 Sin[(\[Pi] x)/2]^2)^2)^2] + (-((
           0.5 n1 Cos[(\[Pi] x)/2]^2)/n2) - (
          0.5 n2 Cos[(\[Pi] x)/2]^2)/n1 + 
          1. Sin[(\[Pi] x)/
            2]^2 + ((1 - 
              0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                 n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                 2 Sin[(\[Pi] x)/2]^2)^2)^2)^(1/4)
            Sin[1/2 Arg[
              1 - 0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                  n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                  2 Sin[(\[Pi] x)/2]^2)^2]])^2)]^2 Sin[
     1 - q]^2)/((1 + 
     1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
        2 Sin[(\[Pi] x)/2]^2))^2)^0.5 - (
 n1 \[Pi]^2 Cos[(\[Pi] x)/2]^2 Cos[(2 dv \[Pi])/\[Lambda]] Cos[
   0.5 Arg[1 + 
      1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
         2 Sin[(\[Pi] x)/2]^2)]]^2 Sin[1 - q] Sin[q])/(
 2 n2 ((1 + 
     1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
        2 Sin[(\[Pi] x)/2]^2))^2)^0.5) - (
 n2 \[Pi]^2 Cos[(\[Pi] x)/2]^2 Cos[(2 dv \[Pi])/\[Lambda]] Cos[
   0.5 Arg[1 + 
      1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
         2 Sin[(\[Pi] x)/2]^2)]]^2 Sin[1 - q] Sin[q])/(
 2 n1 ((1 + 
     1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
        2 Sin[(\[Pi] x)/2]^2))^2)^0.5) + (2 n1 \[Pi] Arg[
     0.5 I (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (n2 Cos[(\[Pi] x)/2]^2)/
         n1 + 2 Sin[(\[Pi] x)/2]^2) + Sqrt[
      1 - 0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
          n2 Cos[(\[Pi] x)/2]^2)/n1 + 
          2 Sin[(\[Pi] x)/2]^2)^2]] Cos[(\[Pi] x)/2]^2 Cos[(
     2 dv \[Pi])/\[Lambda]] Cos[
     0.5 Arg[1 + 
        1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/
           n1 - 2 Sin[(\[Pi] x)/2]^2)]]^2 Sin[1 - q] Sin[
     q])/(n2 ((1 + 
       1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
          2 Sin[(\[Pi] x)/2]^2))^2)^0.5) + (2 n2 \[Pi] Arg[
     0.5 I (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (n2 Cos[(\[Pi] x)/2]^2)/
         n1 + 2 Sin[(\[Pi] x)/2]^2) + Sqrt[
      1 - 0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
          n2 Cos[(\[Pi] x)/2]^2)/n1 + 
          2 Sin[(\[Pi] x)/2]^2)^2]] Cos[(\[Pi] x)/2]^2 Cos[(
     2 dv \[Pi])/\[Lambda]] Cos[
     0.5 Arg[1 + 
        1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/
           n1 - 2 Sin[(\[Pi] x)/2]^2)]]^2 Sin[1 - q] Sin[
     q])/(n1 ((1 + 
       1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
          2 Sin[(\[Pi] x)/2]^2))^2)^0.5) - (2 n1 Arg[
     0.5 I (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (n2 Cos[(\[Pi] x)/2]^2)/
         n1 + 2 Sin[(\[Pi] x)/2]^2) + Sqrt[
      1 - 0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
          n2 Cos[(\[Pi] x)/2]^2)/n1 + 
          2 Sin[(\[Pi] x)/2]^2)^2]]^2 Cos[(\[Pi] x)/2]^2 Cos[(
     2 dv \[Pi])/\[Lambda]] Cos[
     0.5 Arg[
       1 + 1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/
           n1 - 2 Sin[(\[Pi] x)/2]^2)]]^2 Sin[1 - q] Sin[
     q])/(n2 ((1 + 
       1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
          2 Sin[(\[Pi] x)/2]^2))^2)^0.5) - (2 n2 Arg[
     0.5 I (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (n2 Cos[(\[Pi] x)/2]^2)/
         n1 + 2 Sin[(\[Pi] x)/2]^2) + Sqrt[
      1 - 0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
          n2 Cos[(\[Pi] x)/2]^2)/n1 + 
          2 Sin[(\[Pi] x)/2]^2)^2]]^2 Cos[(\[Pi] x)/2]^2 Cos[(
     2 dv \[Pi])/\[Lambda]] Cos[
     0.5 Arg[1 + 
        1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/
           n1 - 2 Sin[(\[Pi] x)/2]^2)]]^2 Sin[1 - q] Sin[
     q])/(n1 ((1 + 
       1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
          2 Sin[(\[Pi] x)/2]^2))^2)^0.5) + (2 n1 \[Pi] Cos[(\[Pi] x)/
     2]^2 Cos[(2 dv \[Pi])/\[Lambda]] Cos[
     0.5 Arg[1 + 
        1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/
           n1 - 2 Sin[(\[Pi] x)/2]^2)]]^2 Log[\[Sqrt](Cos[
          1/2 Arg[1 - 
             
             0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                2 Sin[(\[Pi] x)/2]^2)^2]]^2 Sqrt[(1 - 
           0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
              n2 Cos[(\[Pi] x)/2]^2)/n1 + 
              2 Sin[(\[Pi] x)/2]^2)^2)^2] + (-((
           0.5 n1 Cos[(\[Pi] x)/2]^2)/n2) - (
          0.5 n2 Cos[(\[Pi] x)/2]^2)/n1 + 
          1. Sin[(\[Pi] x)/
            2]^2 + ((1 - 
              0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                 n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                 2 Sin[(\[Pi] x)/2]^2)^2)^2)^(1/4)
            Sin[1/2 Arg[
              1 - 0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                  n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                  2 Sin[(\[Pi] x)/2]^2)^2]])^2)] Sin[1 - q] Sin[
     q])/(n2 ((1 + 
       1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
          2 Sin[(\[Pi] x)/2]^2))^2)^0.5) + (2 n2 \[Pi] Cos[(\[Pi] x)/
     2]^2 Cos[(2 dv \[Pi])/\[Lambda]] Cos[
     0.5 Arg[1 + 
        1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/
           n1 - 2 Sin[(\[Pi] x)/2]^2)]]^2 Log[\[Sqrt](Cos[
          1/2 Arg[1 - 
             0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                2 Sin[(\[Pi] x)/2]^2)^2]]^2 Sqrt[(1 - 
           0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
              n2 Cos[(\[Pi] x)/2]^2)/n1 + 
              2 Sin[(\[Pi] x)/2]^2)^2)^2] + (-((
           0.5 n1 Cos[(\[Pi] x)/2]^2)/n2) - (
          0.5 n2 Cos[(\[Pi] x)/2]^2)/n1 + 
          1. Sin[(\[Pi] x)/
            2]^2 + ((1 - 
              0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                 n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                 2 Sin[(\[Pi] x)/2]^2)^2)^2)^(1/4)
            Sin[1/2 Arg[
              1 - 0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                  n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                  2 Sin[(\[Pi] x)/2]^2)^2]])^2)] Sin[1 - q] Sin[
     q])/(n1 ((1 + 
       1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
          2 Sin[(\[Pi] x)/2]^2))^2)^0.5) - (4 n1 Arg[
     0.5 I (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (n2 Cos[(\[Pi] x)/2]^2)/
         n1 + 2 Sin[(\[Pi] x)/2]^2) + Sqrt[
      1 - 0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
          n2 Cos[(\[Pi] x)/2]^2)/n1 + 
          2 Sin[(\[Pi] x)/2]^2)^2]] Cos[(\[Pi] x)/2]^2 Cos[(
     2 dv \[Pi])/\[Lambda]] Cos[
     0.5 Arg[1 + 
        1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/
           n1 - 2 Sin[(\[Pi] x)/2]^2)]]^2 Log[\[Sqrt](Cos[
          1/2 Arg[1 - 
             0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                2 Sin[(\[Pi] x)/2]^2)^2]]^2 Sqrt[(1 - 
           0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
              n2 Cos[(\[Pi] x)/2]^2)/n1 + 
              2 Sin[(\[Pi] x)/2]^2)^2)^2] + (-((
           0.5 n1 Cos[(\[Pi] x)/2]^2)/n2) - (
          0.5 n2 Cos[(\[Pi] x)/2]^2)/n1 + 
          1. Sin[(\[Pi] x)/
            2]^2 + ((1 - 
              0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                 n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                 2 Sin[(\[Pi] x)/2]^2)^2)^2)^(1/4)
            Sin[1/2 Arg[
              1 - 0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                  n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                  2 Sin[(\[Pi] x)/2]^2)^2]])^2)] Sin[1 - q] Sin[
     q])/(n2 ((1 + 
       1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
          2 Sin[(\[Pi] x)/2]^2))^2)^0.5) - (4 n2 Arg[
     0.5 I (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (n2 Cos[(\[Pi] x)/2]^2)/
         n1 + 2 Sin[(\[Pi] x)/2]^2) + Sqrt[
      1 - 0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
          n2 Cos[(\[Pi] x)/2]^2)/n1 + 
          2 Sin[(\[Pi] x)/2]^2)^2]] Cos[(\[Pi] x)/2]^2 Cos[(
     2 dv \[Pi])/\[Lambda]] Cos[
     0.5 Arg[1 + 
        1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/
           n1 - 2 Sin[(\[Pi] x)/2]^2)]]^2 Log[\[Sqrt](Cos[
          1/2 Arg[1 - 
             0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                2 Sin[(\[Pi] x)/2]^2)^2]]^2 Sqrt[(1 - 
           0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
              n2 Cos[(\[Pi] x)/2]^2)/n1 + 
              2 Sin[(\[Pi] x)/2]^2)^2)^2] + (-((
           0.5 n1 Cos[(\[Pi] x)/2]^2)/n2) - (
          0.5 n2 Cos[(\[Pi] x)/2]^2)/n1 + 
          1. Sin[(\[Pi] x)/
            2]^2 + ((1 - 
              0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                 n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                 2 Sin[(\[Pi] x)/2]^2)^2)^2)^(1/4)
            Sin[1/2 Arg[
              1 - 0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                  n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                  2 Sin[(\[Pi] x)/2]^2)^2]])^2)] Sin[1 - q] Sin[
     q])/(n1 ((1 + 
       1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
          2 Sin[(\[Pi] x)/2]^2))^2)^0.5) + (2 n1 Cos[(\[Pi] x)/
     2]^2 Cos[(2 dv \[Pi])/\[Lambda]] Cos[
     0.5 Arg[1 + 
        1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/
           n1 - 2 Sin[(\[Pi] x)/2]^2)]]^2 Log[\[Sqrt](Cos[
          1/2 Arg[1 - 
             0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                2 Sin[(\[Pi] x)/2]^2)^2]]^2 Sqrt[(1 - 
           0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
              n2 Cos[(\[Pi] x)/2]^2)/n1 + 
              2 Sin[(\[Pi] x)/2]^2)^2)^2] + (-((
           0.5 n1 Cos[(\[Pi] x)/2]^2)/n2) - (
          0.5 n2 Cos[(\[Pi] x)/2]^2)/n1 + 
          1. Sin[(\[Pi] x)/
            2]^2 + ((1 - 
              0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                 n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                 2 Sin[(\[Pi] x)/2]^2)^2)^2)^(1/4)
            Sin[1/2 Arg[
              1 - 0.25 (-((n1 Cos[(\[Pi] x)/2]^2)/n2) - (
                  n2 Cos[(\[Pi] x)/2]^2)/n1 + 
                  2 Sin[(\[Pi] x)/2]^2)^2]])^2)]^2 Sin[1 - q] Sin[
     q])/(n2 ((1 + 
       1/2 ((n1 Cos[(\[Pi] x)/2]^2)/n2 + (n2 Cos[(\[Pi] x)/2]^2)/n1 - 
          2 Sin[(\[Pi] x)/2]^2))^2)^0.5)

[bubu gaga]

Simplify, SimplifyTrig?

[Rat]

bubu gaga писал(а):

Simplify, SimplifyTrig?

Да тоже не помогает упростить. А команду SimplifyTrig вообще не понимает

[bubu gaga]

Ой, это наоборот TrigSimplify

[Leierkastenmann]

Rat писал(а):

Leierkastenmann
Вы знаете, это выражение получено в той же Mathematica и оно очень большое. Могу привести его маленький кусочек:

Да уж, кусочек... В таком кусочке черт ногу сломит, не говоря уж о Mathematica
Всякие коэффициенты, которые там присутствуют, действительные хотя бы?

А вообще когда я вижу подобные чудовищные выражения у меня сомнения, что они правильно были получены. Может зря убиваетесь с этой функцией и стоит где-то раньше что-то предпринять, чтобы получить нужный результат?

Добавлено спустя 1 час 10 минут 39 секунд:

Мне кажется основная проблема для математики в данном случае это страшные Arg, которые она не может нормально обработать из-за того, что там выражения с непредсказуемым результатом, особенно если коэффициенты еще комплексные. Очень может быть, что в данном случае стоит задать эти коэффициенты (если конечно это возможно) и попробовать применить NSeries.
А если все коэффициенты, по крайней мере те которые входят в Arg, действительные, тогда аргументы можно упростить, потому что часть из них будет принимать только два значения, хоть конечно из-за синусов и косинусов делать это с периодичностью. А если коэффициенты действительные да еще такие, что обеспечивают постоянство знака выражений, которые под аргументом стоят, то тогда эти аргументы превратятся просто в константы. Но математика все это поймет только если ей еще задавать ограничения при помощи Assuming.

[Rat]

Leierkastenmann писал(а):

Да уж, кусочек... В таком кусочке черт ногу сломит, не говоря уж о Mathematica
Всякие коэффициенты, которые там присутствуют, действительные хотя бы?.

Да, все эти коэффициенты действительные.
Вообще, данное выражение есть сумма элементов матрицы, полученной путем произведения 5 матриц.

Leierkastenmann писал(а):

Очень может быть, что в данном случае стоит задать эти коэффициенты (если конечно это возможно) и попробовать применить NSeries.

Спасибо. Надо будет попробовать.

[Leierkastenmann]

А если внимательней посмотреть на выражения, которые стоят в Arg, то их вполне можно привести в удобоваримый вид, как для себя, так и для математики. Вот, например:
$1 + \frac{1}{2} \left( \frac {n_1 \cos^2 {\frac{\pi x}{2}} } {n_2} + \frac {n_2 \cos^2 {\frac{\pi x}{2}} } {n_1} - 2 \sin^2{\frac{\pi x}{2}} \right) = \frac {(n_1+n_2)^2} {2n_1n_2} \cos^2 {\frac{\pi x}{2}} $
И тогда все определяется знаком коэффициентов
$Arg\left( \frac {(n_1+n_2)^2} {2n_1n_2} \cos^2 {\frac{\pi x}{2}} \right) = \left\{ \begin{array}{1} 0, когда n_1n_2 \geqslant 0 \\ \pi, когда n_1n_2 < 0 \end{array} $
Аналогично можно попытаться поупрощать другие выражения под Arg. В этом куске, что вы привели, их по крайней мере не бесконечное множество Полагаю, что и в остальных кусках их будет так же не бесконечно много. Скажите все же, откуда вылезли эти аргументы? Может их на предыдущем шаге можно все свести к константам и дальше уже не мучаться? Думаю, на предыдущем шаге их даже виднее будет, чем сейчас сидеть и высматривать среди этих страшных выражений.