4.5.2.- Manipulable de S=1/2 con 6 parámetros (pérdidas, ganancias, defasaje, temperatura y energías variables)

apgd6[p_ ,g_,d_, b_,w1_, w2_]:=(g+p)(E^(((-(4d+g+p) ((Pi )/(w1-w2)))/2) ))((E^(-b w1))+(E^(-b w2)))(((-(E^(-b w2))(g-p-2 g (E^(-(g+p) ((Pi )/(w1-w2)) )))+(E^(-b w1))(g-p+2 p (E^(-(g+p) ((Pi )/(w1-w2)) )))))^(-1)) ;(*proporción alfa con los 6 parámetros*)


C2pgd6[t_,p_ ,g_,d_, b_,w1_, w2_]:=(((E^(((-(4d+p+g)t)/2)-I t w1- b w2+I t w2))/(((E^(-b w1))+(E^(-b w2)))))+((E^(((-(4d+p+g)t)/2)-b w1+I t w1-I t w2))/(((E^(-b w1))+(E^(-b w2))))))+(apgd6[p,g,d,b,w1,w2])(-(((E^(-b w2)) (g-p-2 (E^(-(p+g) t)) g))/((p+g) ((E^(-b w1))+(E^(-b w2)))))+(((E^(-b w1)) (g-p+2 (E^(-(p+g) t)) p))/((p+g) ((E^(-b w1))+(E^(-b w2))))));


(*Correlación A1+apgd6.A3 para 6 variables + el tiempo*)
C2pgd6Estable[t_,p_ ,g_,d_, b_,w1_, w2_]:=(((E^(-I t w2- b w1+I t w1))/(((E^(-b w1))+(E^(-b w2)))))+((E^(-I t w1- b w2+I t w2))/(((E^(-b w1))+(E^(-b w2))))))+(apgd6[p,g,d,b,w1,w2]);

Manipulate[ParametricPlot[{{Re[((C2pgd6Estable[t, p,g,d,b,w1,w2])/(C2pgd6Estable[0,p,g,d,b,w1,w2]))],Im[((C2pgd6Estable[t, p,g,d,b,w1,w2])/(C2pgd6Estable[0,p,g,d,b,w1,w2]))]},{Re[((C2pgd6[t,p,g,d,b,w1,w2])/(C2pgd6[0,p,g,d,b,w1,w2]))],Im[((C2pgd6[t,p,g,d,b,w1,w2])/(C2pgd6[0,p,g,d,b,w1,w2]))]}},{t ,0,5Pi},AxesLabel->{Style["Re (OverTilde[C])(t)" ,Bold,16],Style["Im (OverTilde[C])(t)",Bold,16]}, FormatType->StandardForm] , {p, 0,2},{g, 0.0000001,3},{d, 0,0.5},{b, 0.1,1.5} ,{w1, 1,5},{w2,0,w1}] 

(*PARA VER EL GRÁFICO INTERACTIVO: Evaluación -> Evaluar cuaderno*)

(*CONSEJO DE USO: Primero aumentar el parametro b (que representa "beta", el inverso de la temperatura) para hacer visible la trayectoria en el eje imaginario.*)

(*PARA AFINAR LOS VALORES DE CADA PARÁMETRO: pulsar en el pequeño "+" que aparece a la derecha del dial deslizador e ingresar el número en el recuadro que se muestra. El número debe estar dentro de los límites establecidos.*) 

(*ES POSIBLE ANIMAR EL GRÁFICO pulsando en el botón de "play" que aparece también al desplegar el recuadro del valor numérico de la variable.*)