Permalink
Browse files

Исправил ошибку с поиском StandardSyntaxTreeConverter.dll

  • Loading branch information...
1 parent cca1030 commit 718a0376c29a09ec4433fde1e965931f89b0b5d5 @miks1965 miks1965 committed Oct 26, 2016
@@ -44,7 +44,10 @@ private void AddConverters(string DirectoryName)
{
DirectoryInfo di = new DirectoryInfo(DirectoryName);
List<FileInfo> dllfiles = di.GetFiles("*ConversionSyntax.dll").ToList();
- dllfiles.Insert(0,new FileInfo("StandardSyntaxTreeConverter.dll"));
+ List<FileInfo> standartdllfile = di.GetFiles("StandardSyntaxTreeConverter.dll").ToList();
+ if (standartdllfile.Count>0)
+ dllfiles.Insert(0, standartdllfile[0]);
+ //dllfiles.Insert(0,new FileInfo("StandardSyntaxTreeConverter.dll"));
System.Reflection.Assembly assembly = null;
ISyntaxTreeConverter Converter;
@@ -15,7 +15,7 @@ internal static class RevisionClass
public const string Major = "3";
public const string Minor = "2";
public const string Build = "0";
- public const string Revision = "1329";
+ public const string Revision = "1330";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;
@@ -1,4 +1,4 @@
-%COREVERSION%=0
-%REVISION%=1329
%MINOR%=2
+%REVISION%=1330
+%COREVERSION%=0
%MAJOR%=3
@@ -1 +1 @@
-!define VERSION '3.2.0.1329'
+!define VERSION '3.2.0.1330'
View
Binary file not shown.
@@ -1514,8 +1514,10 @@ procedure Reverse<T>(a: array of T; index,length: integer);
function Range(a,b: integer): sequence of integer;
/// Возвращает последовательность символов от c1 до c2
function Range(c1,c2: char): sequence of char;
-/// Возвращает последовательность вещественных в точках разбиения отрезка [a,b] на n равных частей
+/// Возвращает последовательность вещественных в точках разбиения отрезка [a,b] на n равных частей (Используйте Partition)
function Range(a,b: real; n: integer): sequence of real;
+/// Возвращает последовательность вещественных в точках разбиения отрезка [a,b] на n равных частей
+function Partition(a,b: real; n: integer): sequence of real;
/// Возвращает последовательность целых от a до b с шагом step
function Range(a,b,step: integer): sequence of integer;
/// Возвращает последовательность указанных элементов
@@ -3683,29 +3685,24 @@ function Range(c1,c2: char): sequence of char;
Result := Range(integer(c1),integer(c2)).Select(x->Chr(x));
end;
-type AB = class
- a,b,h: real;
- n: integer;
- constructor(aa,bb: real; nn: integer);
- begin
- n := nn;
- a := aa; b := bb;
- h := (b-a)/n;
- end;
- function F(x: integer): real;
- begin
- Result := a + h*x;
- end;
-end;
-
function Range(a,b: real; n: integer): sequence of real;
begin
if n=0 then
raise new System.ArgumentException('n=0');
if n<0 then
raise new System.ArgumentException('n<0');
- var ab1 := new AB(a,b,n);
- Result := Range(0,n).Select(ab1.F)
+ var r := a;
+ var h := (b-a)/n;
+ for var i := 0 to n do
+ begin
+ yield r;
+ r += h
+ end;
+end;
+
+function Partition(a,b: real; n: integer): sequence of real;
+begin
+ Result := Range(a,b,n)
end;
type

0 comments on commit 718a037

Please sign in to comment.