diff options
| -rw-r--r-- | Physikunit.pas | 14 | ||||
| -rw-r--r-- | Plasmapropagation.lps | 116 | ||||
| -rw-r--r-- | input.plap | 2 |
3 files changed, 62 insertions, 70 deletions
diff --git a/Physikunit.pas b/Physikunit.pas index ef77ee4..556334d 100644 --- a/Physikunit.pas +++ b/Physikunit.pas @@ -1142,10 +1142,7 @@ begin // Ableitungen nach PX - write('.'); - len:=length(inhalt[0].phasenraum); - write(len); setlength(res,len); setlength(ims,len); for i:=0 to length(inhalt)-1 do @@ -1168,16 +1165,14 @@ begin end; fft(res,ims,true); for j:=0 to length(inhalt[i].phasenraum)-1 do - inhalt[i].phasenraum[j].grad[tlc,0]:=res[j]*iDP*0; + inhalt[i].phasenraum[j].grad[tlc,0]:=res[j]*iDP; end; // Ableitungen nach X - write('.'); len:=length(inhalt); - write(len); - setlength(res,2*len); - setlength(ims,2*len); + setlength(res,len); + setlength(ims,len); for i:=0 to length(inhalt[0].phasenraum)-1 do for tlc:=0 to length(teilchen)-1 do begin for j:=0 to length(inhalt)-1 do begin @@ -1196,9 +1191,8 @@ begin end; fft(res,ims,true); for j:=0 to length(inhalt)-1 do - inhalt[j].phasenraum[i].grad[tlc,1]:=res[j]*iDX*0; + inhalt[j].phasenraum[i].grad[tlc,1]:=res[j]*iDX; end; - write('>'); end; procedure tFelder.berechneAbleitungen(dX,iDX: extended); diff --git a/Plasmapropagation.lps b/Plasmapropagation.lps index 557ace6..c266d7b 100644 --- a/Plasmapropagation.lps +++ b/Plasmapropagation.lps @@ -16,10 +16,10 @@ <IsPartOfProject Value="True"/> <IsVisibleTab Value="True"/> <EditorIndex Value="1"/> - <TopLine Value="1156"/> - <CursorPos X="14" Y="1178"/> - <FoldState Value=" T3mG0{F5 pjdmK0G[945jZ0Q3[95d0C4]97jV0C7 piajL0v5]9fkW0E1131[e4Bo9031 pp4pD0G2 T0'4Pc071F311A"/> - <UsageCount Value="188"/> + <TopLine Value="329"/> + <CursorPos Y="1136"/> + <FoldState Value=" T3mG0{F5 pjdmK0G[945jZ0Q3[95d0C4]97jV0C7 piajL0v5]9fkW0E2]9bjE0S[I4ZjY0{1]Jp7rB0G2 T0)fPc071F3119"/> + <UsageCount Value="189"/> <Loaded Value="True"/> </Unit1> <Unit2> @@ -27,15 +27,14 @@ <IsPartOfProject Value="True"/> <EditorIndex Value="-1"/> <CursorPos X="20" Y="8"/> - <UsageCount Value="150"/> + <UsageCount Value="151"/> </Unit2> <Unit3> <Filename Value="input.plap"/> <IsPartOfProject Value="True"/> <EditorIndex Value="3"/> - <TopLine Value="15"/> - <CursorPos X="23" Y="62"/> - <UsageCount Value="149"/> + <CursorPos X="20" Y="11"/> + <UsageCount Value="150"/> <Loaded Value="True"/> <DefaultSyntaxHighlighter Value="None"/> </Unit3> @@ -45,14 +44,14 @@ <EditorIndex Value="-1"/> <TopLine Value="285"/> <CursorPos X="20" Y="323"/> - <UsageCount Value="97"/> + <UsageCount Value="98"/> </Unit4> <Unit5> <Filename Value="linearkombinationen.inc"/> <IsPartOfProject Value="True"/> <EditorIndex Value="-1"/> <TopLine Value="64"/> - <UsageCount Value="60"/> + <UsageCount Value="61"/> </Unit5> <Unit6> <Filename Value="input.epost"/> @@ -66,10 +65,9 @@ <Unit7> <Filename Value="../units/matheunit.pas"/> <EditorIndex Value="2"/> - <TopLine Value="532"/> - <CursorPos X="42" Y="516"/> - <FoldState Value=" T3iA05B pj0jV034 piaj60U6 plLmM04K"/> - <UsageCount Value="14"/> + <TopLine Value="19"/> + <CursorPos X="66" Y="48"/> + <UsageCount Value="15"/> <Loaded Value="True"/> </Unit7> <Unit8> @@ -155,123 +153,123 @@ <JumpHistory Count="30" HistoryIndex="29"> <Position1> <Filename Value="../units/matheunit.pas"/> - <Caret Line="521" TopLine="295"/> + <Caret Line="543" Column="19" TopLine="524"/> </Position1> <Position2> <Filename Value="../units/matheunit.pas"/> - <Caret Line="510" Column="32" TopLine="295"/> + <Caret Line="511" Column="9" TopLine="505"/> </Position2> <Position3> - <Filename Value="../units/matheunit.pas"/> - <Caret Line="543" Column="3" TopLine="522"/> + <Filename Value="Physikunit.pas"/> + <Caret Line="1190" Column="40" TopLine="1159"/> </Position3> <Position4> - <Filename Value="../units/matheunit.pas"/> - <Caret Line="530" Column="20" TopLine="499"/> + <Filename Value="Physikunit.pas"/> + <Caret Line="606" TopLine="507"/> </Position4> <Position5> - <Filename Value="../units/matheunit.pas"/> - <Caret Line="511" Column="27" TopLine="505"/> + <Filename Value="Physikunit.pas"/> + <Caret Line="591" Column="8" TopLine="536"/> </Position5> <Position6> - <Filename Value="../units/matheunit.pas"/> - <Caret Line="543" Column="19" TopLine="524"/> + <Filename Value="Plasmapropagation.lpr"/> + <Caret Line="53" Column="32" TopLine="21"/> </Position6> <Position7> - <Filename Value="../units/matheunit.pas"/> - <Caret Line="511" Column="9" TopLine="505"/> + <Filename Value="Plasmapropagation.lpr"/> + <Caret Line="34" Column="10" TopLine="14"/> </Position7> <Position8> - <Filename Value="Physikunit.pas"/> - <Caret Line="1190" Column="40" TopLine="1159"/> + <Filename Value="Plasmapropagation.lpr"/> + <Caret Line="11" Column="45"/> </Position8> <Position9> - <Filename Value="Physikunit.pas"/> - <Caret Line="606" TopLine="507"/> + <Filename Value="Plasmapropagation.lpr"/> + <Caret Line="34" Column="10" TopLine="14"/> </Position9> <Position10> - <Filename Value="Physikunit.pas"/> - <Caret Line="591" Column="8" TopLine="536"/> + <Filename Value="Plasmapropagation.lpr"/> + <Caret Line="11" Column="55"/> </Position10> <Position11> - <Filename Value="Physikunit.pas"/> - <Caret Line="1158" Column="110" TopLine="1161"/> + <Filename Value="Plasmapropagation.lpr"/> + <Caret Line="35" Column="18" TopLine="33"/> </Position11> <Position12> <Filename Value="Plasmapropagation.lpr"/> - <Caret Line="53" Column="32" TopLine="21"/> + <Caret Line="36" Column="19" TopLine="34"/> </Position12> <Position13> <Filename Value="Plasmapropagation.lpr"/> - <Caret Line="34" Column="10" TopLine="14"/> + <Caret Line="57" Column="14" TopLine="33"/> </Position13> <Position14> <Filename Value="Plasmapropagation.lpr"/> - <Caret Line="11" Column="45"/> + <Caret Line="34" TopLine="30"/> </Position14> <Position15> - <Filename Value="Plasmapropagation.lpr"/> - <Caret Line="34" Column="10" TopLine="14"/> + <Filename Value="Physikunit.pas"/> + <Caret Line="1154" TopLine="1097"/> </Position15> <Position16> - <Filename Value="Plasmapropagation.lpr"/> - <Caret Line="11" Column="55"/> + <Filename Value="Physikunit.pas"/> + <Caret Line="1742" Column="122" TopLine="1695"/> </Position16> <Position17> - <Filename Value="Plasmapropagation.lpr"/> - <Caret Line="35" Column="18" TopLine="33"/> + <Filename Value="Physikunit.pas"/> + <Caret Line="1404" Column="13" TopLine="1289"/> </Position17> <Position18> - <Filename Value="Plasmapropagation.lpr"/> - <Caret Line="36" Column="19" TopLine="34"/> + <Filename Value="Physikunit.pas"/> + <Caret Line="1267" Column="24" TopLine="1226"/> </Position18> <Position19> - <Filename Value="Plasmapropagation.lpr"/> - <Caret Line="57" Column="14" TopLine="33"/> + <Filename Value="Physikunit.pas"/> + <Caret Line="875" TopLine="658"/> </Position19> <Position20> - <Filename Value="Plasmapropagation.lpr"/> - <Caret Line="34" TopLine="30"/> + <Filename Value="Physikunit.pas"/> + <Caret Line="130" Column="17" TopLine="109"/> </Position20> <Position21> <Filename Value="Physikunit.pas"/> - <Caret Line="1154" TopLine="1097"/> + <Caret Line="466" Column="83" TopLine="231"/> </Position21> <Position22> <Filename Value="Physikunit.pas"/> - <Caret Line="1742" Column="122" TopLine="1695"/> + <Caret Line="1192" Column="57" TopLine="1159"/> </Position22> <Position23> <Filename Value="Physikunit.pas"/> - <Caret Line="1404" Column="13" TopLine="1289"/> + <Caret Line="1166" Column="53" TopLine="1146"/> </Position23> <Position24> <Filename Value="Physikunit.pas"/> - <Caret Line="1267" Column="24" TopLine="1226"/> + <Caret Line="1185" Column="76" TopLine="1166"/> </Position24> <Position25> <Filename Value="Physikunit.pas"/> - <Caret Line="875" TopLine="658"/> + <Caret Line="1136" TopLine="1057"/> </Position25> <Position26> <Filename Value="Physikunit.pas"/> - <Caret Line="130" Column="17" TopLine="109"/> + <Caret Line="1152" TopLine="1114"/> </Position26> <Position27> <Filename Value="Physikunit.pas"/> - <Caret Line="466" Column="83" TopLine="231"/> + <Caret Line="1156" TopLine="1136"/> </Position27> <Position28> <Filename Value="Physikunit.pas"/> - <Caret Line="1192" Column="57" TopLine="1159"/> + <Caret Line="1157" TopLine="1138"/> </Position28> <Position29> <Filename Value="Physikunit.pas"/> - <Caret Line="1166" Column="53" TopLine="1146"/> + <Caret Line="1169" TopLine="1146"/> </Position29> <Position30> <Filename Value="Physikunit.pas"/> - <Caret Line="1185" Column="76" TopLine="1166"/> + <Caret Line="1192" Column="42" TopLine="1164"/> </Position30> </JumpHistory> </ProjectSession> @@ -10,7 +10,7 @@ allgemein ortsschritt 10^-2 * λ zeitschritt 10^-2 * T maximalimpuls 5 - impulsschritt 10^-2 + impulsschritt 2*10^-2 zeit 2 * T !setze $breite: (5 * λ) breite $breite |