Commit f7ba80c1 by Kevin Jacques

up freestyle

parent fe9f12fb
Pipeline #1642 passed with stage
in 9 minutes 42 seconds
......@@ -67,7 +67,11 @@ Include "square_data.geo";
// Output Directory
//-------------------------------------------------------------------------
Dir = 'res/';
If (Exists(simulabel))
Dir = Sprintf("res%g/",simulabel);
Else
Dir = 'res/';
EndIf
//Include "param_EnergHyst.dat";
//Dir = Sprintf("res_N%g_C%g/",N00,Flag_TestCase_00);
......@@ -131,8 +135,8 @@ Function {
hx[] = Frelax[] * ( hax * Cos[2*Pi*Freq *$Time]
+ haharmx * Cos[2*Pi*freqharm*$Time]) ;
hy[] = Frelax[] * ( hay0
+ hay * (Cos[phase]*Cos[2*Pi*Freq *$Time] + Sin[phase]*Sin[2*Pi*Freq *$Time])
+ haharmy * (Cos[phase]*Cos[2*Pi*freqharm*$Time] + Sin[phase]*Sin[2*Pi*freqharm*$Time]) );
+ hay * (Cos[phase]*Cos[2*Pi*Freq *$Time] - Sin[phase]*Sin[2*Pi*Freq *$Time])
+ haharmy * (Cos[phase]*Cos[2*Pi*freqharm*$Time] - Sin[phase]*Sin[2*Pi*freqharm*$Time]) );
/*
hx[] = Frelax[] * ( hax * Complex_MH[1,0]{Freq}
+ haharmx * Complex_MH[1,0]{freqharm}) ;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment