/// <summary>
/// Вычисляет значения функции на промежутке XFrom-XTo
/// </summary>
/// <param name="expression">Выражение-функция</param>
/// <param name="XFrom">Левая граница X</param>
/// <param name="XTo">Правая граница X</param>
/// <returns>Список полученных точек</returns>
public static List <MyPoint> GetPoints(string expression, double XFrom, double XTo, double XStep = 1)
{
string[] expr_split = expression.Split('=');
List <MyPoint> points = new List <MyPoint>();
if (expression == "")
{
return(null);
}
if (expr_split.Length != 2)
{
return(null);
}
if (expr_split[1] == "")
{
return(null);
}
for (double i = XFrom; i <= XTo; i += XStep) //область изменения X
{
string temp = "";
if (i < 0)
{
temp = expr_split[1].Replace("X", "(0" + i.ToString() + ")");
}
else
{
temp = expr_split[1].Replace("X", i.ToString());
}
List <Token> RPN1 = Arithmetic.GetRPN(temp);
points.Add(new MyPoint(i, Arithmetic.Calculate(ref RPN1, 1)));
}
return(points);
}
/// <summary>
/// Проводит вычисления в автоматическом режиме
/// </summary>
/// <param name="expression">Выражение для подсчета</param>
/// <param name="deg">Режим меры угла: deg=0, [rad=1], grad=2</param>
/// <returns>Результат вычислений</returns>
public static Double CalcToResult(string expression, byte deg = 1)
{
List <Token> RPN = Arithmetic.GetRPN(expression);
return(Arithmetic.Calculate(ref RPN, deg));
}
public static Double CalcToResult(string expression, Dictionary <string, string> uservars, byte deg = 1)
{
List <Token> RPN = Arithmetic.GetRPN(expression, uservars);
return(Arithmetic.Calculate(ref RPN, deg));
}
// Начать вычисление
private void buttonEnter_Click(object sender, EventArgs e)
{
if (buttonEnter.Text == "WA=")
{
if (ScreenBox.Text.Length > 200 && (DialogResult.Yes != MessageBox.Show("Похоже, у вас слишком длинный.. запрос. Возможно, WolframAlpha обрежет его и вычисления будут неверны. Продолжить?", "Превышена длина запроса", MessageBoxButtons.YesNo, MessageBoxIcon.Question)))
{
return;
}
string inpstr = ScreenBox.Text;
String WolframAlphaApplicationID = Properties.Settings.Default.WA_AppKey;
if (WolframAlphaApplicationID == "")
{
MessageBox.Show("Неверно задан ключ для WolframAPI. Введите действительный ключ.", "Не задан ключ приложения", MessageBoxButtons.OK, MessageBoxIcon.Asterisk);
return;
}
if (Properties.Settings.Default.WA_RespSend >= Properties.Settings.Default.WA_RespLimit)
{
MessageBox.Show("Превышен месячный лимит запросов. Увеличить лимит или отключить контроль можно в настройках.", "Превышен лимит запросов", MessageBoxButtons.OK, MessageBoxIcon.Asterisk);
return;
}
ScreenBox.Clear();
WolframResult WR = new WolframResult();
WR.ShowAndCalculate(inpstr, WolframAlphaApplicationID);
if (HistoryBox1.Text == "")
{
HistoryBox1.Text += "WAQUERY~" + inpstr;
}
else
{
HistoryBox1.Text += "\r\n" + inpstr;
}
}
else
{
string inpstr = ScreenBox.Text;
if (inpstr.Contains("X") || inpstr.Contains("Y"))
{
buttonDigit_Click(sender, e);
}
else if (inpstr.StartsWith("set"))
{
if (inpstr.Contains("="))
{
KeyValuePair <string, string> parsedres = new KeyValuePair <string, string>();
if (parseVariable(inpstr, ref parsedres))
{
if (savedVariables == null)
{
savedVariables = new Dictionary <string, string>();
}
if (savedVariables.Keys.Contains(parsedres.Key))
{
if (DialogResult.No == MessageBox.Show("Переменная с таким именем уже существует. Перезаписать?", "Замена", MessageBoxButtons.YesNo, MessageBoxIcon.Question))
{
return;
}
}
ScreenBox.Clear();
List <Token> RPN1 = Arithmetic.GetRPN(parsedres.Value, savedVariables);
string result = savedVariables[parsedres.Key] = PostProcess(Arithmetic.Calculate(ref RPN1, gradusmode));
if (RPN1 != null)
{
RPN1.Clear();
}
savedVariables[parsedres.Key] = result;
if (HistoryBox1.Text == "")
{
HistoryBox1.Text += parsedres.Key + "=" + result + ((parsedres.Value == result) ? "" : " [" + parsedres.Value + "]");
}
else
{
HistoryBox1.Text += "\r\n" + parsedres.Key + "=" + result + ((parsedres.Value == result) ? "" : " [" + parsedres.Value + "]");
}
}
}
else
{
buttonDigit_Click(sender, e);
}
}
else
{
string heststr = inpstr;
PreProcess(ref inpstr);
string result = "";
switch (panelmode)
{
case "norm":
case "engen":
default:
//Вычисление на обычной или инженерной панели
//List<Token> RPN1 = Arithmetic.GetRPN(inpstr);
//result = Convert.ToString(Arithmetic.Calculate(ref RPN1, gradusmode));
//result = PostProcess(Convert.ToDouble(result));
//if (RPN1 != null) RPN1.Clear();
List <Token> RPN1 = Arithmetic.GetRPN(inpstr, savedVariables);
result = Convert.ToString(Arithmetic.Calculate(ref RPN1, gradusmode));
result = PostProcess(Convert.ToDouble(result));
if (RPN1 != null)
{
RPN1.Clear();
}
break;
case "prog":
//Вычисление на програмной панели
if (radioLogicExpr.Checked)
{
List <Token> RPN2 = BinaryArithmetic.GetRPN(inpstr);
Dictionary <string, bool> variables = BinaryArithmetic.GetVariables(RPN2);
int count = (int)Math.Pow(2, variables.Count);
result = "{[";
for (int i = 0; i < count; i++)
{
BinaryArithmetic.AddVariableData(i + count, variables);
result += (BinaryArithmetic.Calculate(RPN2, variables) ? "1|" : "0|");
}
result = result.Substring(0, result.Length - 1) + "]}";
}
else
{
List <Token> RPN2 = Arithmetic.GetRPN(BinaryArithmetic.ConvertStringToSS(inpstr, SSmode, 10));
result = Convert.ToString(Arithmetic.Calculate(ref RPN2, gradusmode));
result = BinaryArithmetic.ConvertStringToSS(result, 10, SSmode);
if (RPN2 != null)
{
RPN2.Clear();
}
}
break;
case "matr":
//Вычисление на матричной панели
//Dictionary<string, string> mas = new Dictionary<string, string>();
//MatrixArithmetic.GetMatrixes(ref inpstr, ref mas);
List <Token> RPN3 = MatrixArithmetic.GetRPN(inpstr);
//result = MatrixArithmetic.Calculate(RPN3, mas);
result = MatrixArithmetic.Calculate(RPN3, savedVariables);
if (RPN3 != null)
{
RPN3.Clear();
}
//mas.Clear();
break;
}
heststr += "=" + result;
ScreenBox.Text = result;
if (HistoryBox1.Text == "")
{
HistoryBox1.Text += heststr;
}
else
{
HistoryBox1.Text += "\r\n" + heststr;
}
}
}
}