0.52: docs

Geo-Linux-Calculations · Aug 15, 2022 · 581cb29 · 581cb29
1 parent 7a0f5b7
commit 581cb29
Show file tree

Hide file tree

Showing 9 changed files with 7,413 additions and 4 deletions.
diff --git a/OtchetFull.pdf → doc/OtchetFull.pdf b/OtchetFull.pdf → doc/OtchetFull.pdf
diff --git a/README.ru.md → doc/README.md b/README.ru.md → doc/README.md
diff --git a/doc/circle_concatenate/circle_concatenate.mac b/doc/circle_concatenate/circle_concatenate.mac
@@ -0,0 +1,23 @@
+/* 
+Решение переходной кривой для ЖД.
+
+(http://mykaralw.narod.ru/articles/spiralcirclewxmaxima/index.html)
+*/
+
+define(p(l),C/l);
+
+df_dl: 1/p(l);
+
+define(f(l),integrate(df_dl,l));
+
+k:20; dx_dl: taylor(cos(f(l)),l,0,k); dy_dl: taylor(sin(f(l)),l,0,k);
+
+define(x(l),integrate(dx_dl,l)); define(y(l),integrate(dy_dl,l));
+
+x(L); y(L);
+
+a_1: taylor((p(L)-y(L))*tan(f(L)),L,0,20); a: x(L)-a_1;
+
+z: taylor(p(L)-(p(L)-y(L))/cos(f(L)),L,0,20);
+
+C:R*L; R:600; L:50; plot2d([parametric, x(l), y(l),[l,0,L]]);
diff --git a/doc/circle_concatenate/circle_concatenate.wxm b/doc/circle_concatenate/circle_concatenate.wxm
@@ -0,0 +1,60 @@
+/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
+/* [ Created with wxMaxima version 20.12.1 ] */
+/* [wxMaxima: comment start ]
+Решение переходной кривой для ЖД.
+   [wxMaxima: comment end   ] */
+
+
+/* [wxMaxima: comment start ]
+(http://mykaralw.narod.ru/articles/spiralcirclewxmaxima/index.html)
+   [wxMaxima: comment end   ] */
+
+
+/* [wxMaxima: input   start ] */
+define(p(l),C/l);
+/* [wxMaxima: input   end   ] */
+
+
+/* [wxMaxima: input   start ] */
+df_dl: 1/p(l);
+/* [wxMaxima: input   end   ] */
+
+
+/* [wxMaxima: input   start ] */
+define(f(l),integrate(df_dl,l));
+/* [wxMaxima: input   end   ] */
+
+
+/* [wxMaxima: input   start ] */
+k:20; dx_dl: taylor(cos(f(l)),l,0,k); dy_dl: taylor(sin(f(l)),l,0,k);
+/* [wxMaxima: input   end   ] */
+
+
+/* [wxMaxima: input   start ] */
+define(x(l),integrate(dx_dl,l)); define(y(l),integrate(dy_dl,l));
+/* [wxMaxima: input   end   ] */
+
+
+/* [wxMaxima: input   start ] */
+x(L); y(L);
+/* [wxMaxima: input   end   ] */
+
+
+/* [wxMaxima: input   start ] */
+a_1: taylor((p(L)-y(L))*tan(f(L)),L,0,20); a: x(L)-a_1;
+/* [wxMaxima: input   end   ] */
+
+
+/* [wxMaxima: input   start ] */
+z: taylor(p(L)-(p(L)-y(L))/cos(f(L)),L,0,20);
+/* [wxMaxima: input   end   ] */
+
+
+/* [wxMaxima: input   start ] */
+C:R*L; R:600; L:50; plot2d([parametric, x(l), y(l),[l,0,L]]);
+/* [wxMaxima: input   end   ] */
+
+
+
+/* Old versions of Maxima abort on loading files that end in a comment. */
+"Created with wxMaxima 20.12.1"$