View.R

##
#
#
#
#		Copyright (C) Paliura Daniel
#		19.12.2019 - 24.12.2019
#		All rights reserved
#
#
#
#
#
#
#
#
#
##


##
#
DEFAULT_LANGUAGE = "EN"


#
# Helpfull text constants 
NL = '\n'
NL2 = '\n\n'
TEMPERATURE_SYMB = "°C"

# English locale
#
#
EN_NOT_AVAILABLE_TEMPERATURE = "Temperatures can't be less than absolute zero (-273 degrees by Celsium)\n"
EN_INCORRECT_NROW_LEN = "Number of horizontal lines (nrow) must be single number (got multiple or NULL)\n"
EN_INCORRECT_NCOL_LEN = "Number of vertical lines (ncol) must be single number (got multiple or NULL)\n"
EN_INCORRECT_DX_LEN = "Distance between vertical lines (dx) must be single number (got multiple or NULL)\n"
EN_INCORRECT_DY_LEN = "Distance between horizontal lines (dy) must be single number (got multiple or NULL)\n"
EN_SOME_PARAM_NOT_FINITE = "All data must be finite numbers or vectors (NA, NaN, Inf, -Inf are unsuitable)\n"
EN_NCOL_OR_NROW_TO_LOW = "Both of numbers of horizontal and vertical lines must be not less than 3\n"
EN_TO_BIG_MATRIX = "Number of nodes in web to big to be easely calculated\n"
EN_BOTH_DX_DY_IS_ZERO = "It is unacceptable to has zero distance between vertical and horizontal lines in couple\n"
EN_NROW_NOT_MULTIPLE_TO_LEFT_T = "Number of horizontal lines must be multiple to length of left-side temperatures vector\n"
EN_NCOL_NOT_MULTIPLE_TO_UP_T = "Number of vertical lines must be multiple to length of upper-side temperatures vector\n"
EN_NROW_NOT_MULTIPLE_TO_RIGHT_T = "Number of horizontal lines must be multiple to length of right-side temperatures vector\n"
EN_NCOL_NOT_MULTIPLE_TO_DOWN_T = "Number of vertical lines must be multiple to length of down-side temperatures vector\n"
EN_INCORRECT_ACCURACY = "Accuracy expected to be single number\n"
EN_NOT_POSITIVE_ACCURACY = "Accuracy must be positive number\n"
EN_ACCURACY_CHANGED_TO_LESS = "Accuracy given pointless small: less than 10^-5, so it increased to 10^-5\n"
EN_ACCURACY_CHANGED_TO_BIGGER = "Accuracy given more than 10, wich is typically to big for this method, so it cut to 10\n"
EN_CHANGE_DATA_PLEASE = "Incorrect data given. Change it for suitable.\n"
EN_CANT_REACH_NEEDED_ACCURACY = "Unfortunetly needed accuracy can not be reached.\n"
#
EN_INTRO = "KURSACH"
EN_DATA = "DATA:\n\n"
EN_TEMPERATURE_LEFT = "Temperature at left side t_l ="
EN_TEMPERATURE_UP = "Temperature at up side t_l ="
EN_TEMPERATURE_RIGHT = "Temperature at right side t_l ="
EN_TEMPERATURE_DOWN = "Temperature at down side t_l ="
EN_HORIZONTAL_LINES_NUM = "Number of horizontal lines in web nh ="
EN_VERTICAL_LINES_NUM = "Number of vertical lines in web nV ="
EN_HORIZONTAL_DIST = "Distance between horizontal lines dy ="
EN_VERTICAL_DIST = "Distance between vertical lines dx ="
EN_ACCURACY_CALC = "Accuracy of calculations"
EN_CALCULATING = "Calculating...\n"
EN_INIT_APPROXIMATION = "Initial approximation for method of simple iterations:\n"
EN_RESULT_CALCULATED = "Result calculated:\n"

# Russian locale
#
#
RU_NOT_AVAILABLE_TEMPERATURE = "Òåìïåðàòóðà íå ìîæåò áûòü ìåíüøå àáñîëþòíîãî íóëÿ (-273 ãðàäóñîâ ïî Öåëüñèþ)\n"
RU_INCORRECT_NROW_LEN = "Êîëè÷åñòâî ãîðèçîíòàëüíûõ ëèíèé (nrow) íå äîëæíî áûòü ìíîæåñòâåííûì çíà÷åíèåì\n(ïîëó÷åíî ìíîæåñòâåííîå çíà÷åíèå èëè NULL).\n"
RU_INCORRECT_NCOL_LEN = "Êîëè÷åñòâî âåðòèêàëüíûõ ëèíèé (ncol) íå äîëæíî áûòü ìíîæåñòâåííûì çíà÷åíèåì\n(ïîëó÷åíî ìíîæåñòâåííîå çíà÷åíèå èëè NULL).\n"
RU_INCORRECT_DX_LEN = "Ðàññòîÿíèå ìåæäó âåðòèêàëüíûìè ëèíèÿìè ñåòêè (dx) íå äîëæíî áûòü ìíîæåñòâåííûì çíà÷åíèåì\n(ïîëó÷åíî ìíîæåñòâåííîå çíà÷åíèå èëè NULL).\n"
RU_INCORRECT_DY_LEN = "Ðàññòîÿíèå ìåæäó ãîðèçîíòàëüíûìè ëèíèÿìè ñåòêè (dy) íå äîëæíî áûòü ìíîæåñòâåííûì çíà÷åíèåì\n(ïîëó÷åíî ìíîæåñòâåííîå çíà÷åíèå èëè NULL).\n"
RU_SOME_PARAM_NOT_FINITE = "Âñå äàííûå äîëæíû áûòü êîíå÷íûìè ÷èñëàìè\n(òåìïåðàòóðû íà ñòîðîíàõ ïëàñòèíû ìîãóò áûòü âåêòîðàìè)\nÇíà÷åíèÿ NA, NaN, Inf, -Inf íå ïîäõîäÿò.\n"
RU_NCOL_OR_NROW_TO_LOW = "Êîëè÷åñòâî ãîðèçîíòàëüíûõ è âåðòèêàëüíûõ ëèíèé äîëæíî áûòü íå ìåíüøå 3.\n"
RU_TO_BIG_MATRIX = "Êîëè÷åñòâî óçëîâ ñåòêè ñëèøêîì áîëüøîå äëÿ ðàññ÷åòîâ.\n"
RU_BOTH_DX_DY_IS_ZERO = "Íåäîïóñòèìî, ÷òîáû ðàññòîÿíèå ìåæäó ãîðèçîíòàëüíûìè è âåðòèêàëüíûìè ëèíèÿìè ñåòêè áûëè îäíîâðåìåííî ðàâíû 0.\n"
RU_NROW_NOT_MULTIPLE_TO_LEFT_T = "Êîëè÷åñòâî ãîðèçîíòàëüíûõ ëèíèé ñåòêè äîëæíî áûòü êðàòíûì\näëèíå âåêòîðà òåìïåðàòóð íà ëåâîé ñòîðîíå ïëàñòèíû.\n"
RU_NCOL_NOT_MULTIPLE_TO_UP_T = "Êîëè÷åñòâî âåðòèêàëüíûõ ëèíèé ñåòêè äîëæíî áûòü êðàòíûì\näëèíå âåêòîðà òåìïåðàòóð íà âåðõíåé ñòîðîíå ïëàñòèíû.\n"
RU_NROW_NOT_MULTIPLE_TO_RIGHT_T = "Êîëè÷åñòâî ãîðèçîíòàëüíûõ ëèíèé ñåòêè äîëæíî áûòü êðàòíûì\näëèíå âåêòîðà òåìïåðàòóð íà ïðàâîé ñòîðîíå ïëàñòèíû.\n"
RU_NCOL_NOT_MULTIPLE_TO_DOWN_T = "Êîëè÷åñòâî âåðòèêàëüíûõ ëèíèé ñåòêè äîëæíî áûòü êðàòíûì\näëèíå âåêòîðà òåìïåðàòóð íà íèæíåé ñòîðîíå ïëàñòèíû.\n"
RU_INCORRECT_ACCURACY = "Çíà÷åíèå òî÷íîñòè äîëæíî áûòü ÷èñëîì (ïîëó÷åíî êðàòíîå çíà÷åíèå èëè NULL).\n"
RU_NOT_POSITIVE_ACCURACY = "Çíà÷åíèå òî÷íîñòè äîëæíî áûòü ïîçèòèâíûì ÷èñëîì.\n"
RU_ACCURACY_CHANGED_TO_LESS = "Çíà÷åíèå òî÷íîñòè çàäàíî íåîáû÷àéíî ìàëûì: ìåíüøå 10^-5, ïîýòîìó îíî áûëî óâåëè÷åíî äî 10^-5.\n"
RU_ACCURACY_CHANGED_TO_BIGGER = "Çíà÷åíèå òî÷íîñòè áîëüøå 10, ÷òî åñòü äîâîëüíî áîëüøîå çíà÷åíèå, ïîýòîìó îíî áûëî óðåçàíî äî 10.\n"
RU_CHANGE_DATA_PLEASE = "Ââåäåíû íåêîððåêòíûå äàííûå. Èñïðàâüòå èõ äëÿ ñîâìåñòèìîñòè.\n"
RU_CANT_REACH_NEEDED_ACCURACY = "Ê ñîæàëåíèþ, íå óäàëîñü äîñòèãíóòü çàäàííîé òî÷íîñòè.\n"
#
RU_INTRO = "ÊÓÐÑÀ× ¨ÌÀÍÀ"
RU_DATA = "Äàííûå:\n\n"
RU_TEMPERATURE_LEFT = "Òåìïåðàòóðà íà ëåâîé ñòîðîíå t_l ="
RU_TEMPERATURE_UP = "Òåìïåðàòóðà íà âåðõíåé ñòîðîíå t_u ="
RU_TEMPERATURE_RIGHT = "Òåìïåðàòóðà íà ïðàâîé ñòîðîíå t_r ="
RU_TEMPERATURE_DOWN = "Òåìïåðàòóðà íà íèæíåé ñòîðîíå t_d ="
RU_HORIZONTAL_LINES_NUM = "Êîëè÷åñòâî ãîðèçîíòàëüíûé ëèíèé ñåòè nh ="
RU_VERTICAL_LINES_NUM = "Êîëè÷åñòâî âåðòèêàëüíûõ ëèíèé ñåòè nV ="
RU_HORIZONTAL_DIST = "Ðàññòîÿíèå ìåæäó ãîðèçîíòàëüíûìè ëèíèÿìè ñåòè dy ="
RU_VERTICAL_DIST = "Ðàññòîÿíèå ìåæäó âåðòèêàëüíûìè ëèíèÿìè ñåòè dx ="
RU_ACCURACY_CALC = "Òî÷íîñòü âû÷èñëåíèé"
RU_CALCULATING = "Ñ÷èòàåì...\n"
RU_INIT_APPROXIMATION = "Íà÷àëüíîå ïðèáëèæåíèå ìåòîäà ïðîñòûõ èòåðàöèé:\n"
RU_RESULT_CALCULATED = "Ðåçóëüòàò âû÷èñëåíèé:\n"

# Ukrainian locale
#
#
UA_NOT_AVAILABLE_TEMPERATURE = "Òåìïåðàòóðà íå ìîæå áóòè ìåíøîþ çà àáñîëþòíèé íóëü (-273 ãðàäóñè ïî Öåëüñ³þ)\n"
UA_INCORRECT_NROW_LEN = "ʳëüê³ñòü ãîðèçîíòàëüíèõ ë³í³é (nrow) ìຠáóòè ÷èñëîì (îòðèìàíî ìíîæèííå çíà÷åííÿ àáî ʳëüê³ñòü âåðòèêàëüíèõ ë³í³é ñ³òêè ìຠáóòè êðàòíîþ äîâæèí³ âåêòîðà\nòåìïåðàòóð íà âåðõí³é ñòîðîí³ ïëàñòèíè.).\n"
UA_INCORRECT_NCOL_LEN = "ʳëüê³ñòü âåðòèêàëüíèõ ë³í³é (ncol) ìຠáóòè ÷èñëîì (îòðèìàíî ìíîæèííå çíà÷åííÿ àáî NULL).\n"
UA_INCORRECT_DX_LEN = "³äñòàíü ì³æ âåðòèêàëüíèìè ë³í³ÿìè ñ³òêè (dx) ìຠáóòè ÷èñëîì (îòðèìàíî ìíîæèííå çíà÷åííÿ àáî NULL).\n"
UA_INCORRECT_DY_LEN = "³äñòàíü ì³æ ãîðèçîíòàëüíèìè ë³í³ÿìè ñ³òêè (dy) ìຠáóòè ÷èñëîì (îòðèìàíî ìíîæèííå çíà÷åííÿ àáî NULL).\n"
UA_SOME_PARAM_NOT_FINITE = "Âñ³ äàí³ ìàþòü áóòè ñê³í÷åííèìè ÷èñëàìè\n(äîïóñòèìî, ùîá òåìïåðàòóðè íà ñòîðîíàõ ïëàñòèíè áóëè âåêòîðíèìè çíà÷åííÿìè). Çíà÷åííÿ NA, NaN, Inf, -Inf íåäîïóñòèì³.\n"
UA_NCOL_OR_NROW_TO_LOW = "ʳëüê³ñòü ãîðèçîíòàëüíèõ ³ âåðòèêàëüíèõ ë³í³é ñ³òêè ìຠáóòè (îäíî÷àñíî) íå ìåíøîþ í³æ 3.\n"
UA_TO_BIG_MATRIX = "ʳëüê³ñòü âóçë³â ñ³òêè çàíàäòî âåëèêà äëÿ îá÷èñëåíü.\n"
UA_BOTH_DX_DY_IS_ZERO = "³äñòàí³ ì³æ ãîðèçîíòàëüíèìè ³ âåðòèêàëüíèìè ë³í³ÿìè ñ³òêè íå ìîæóòü îäíî÷àíî áóòè ð³âíèìè íóëþ.\n"
UA_NROW_NOT_MULTIPLE_TO_LEFT_T = "ʳëüê³ñòü ãîðèçîíòàëüíèõ ë³í³é ñ³òêè ìຠáóòè êðàòíîþ äîâæèí³ âåêòîðà\nòåìïåðàòóð íà ë³â³é ñòîðîí³ ïëàñòèíè.\n"
UA_NCOL_NOT_MULTIPLE_TO_UP_T = "ʳëüê³ñòü âåðòèêàëüíèõ ë³í³é ñ³òêè ìຠáóòè êðàòíîþ äîâæèí³ âåêòîðà\nòåìïåðàòóð íà âåðõí³é ñòîðîí³ ïëàñòèíè.\n"
UA_NROW_NOT_MULTIPLE_TO_RIGHT_T = "ʳëüê³ñòü ãîðèçîíòàëüíèõ ë³í³é ñ³òêè ìຠáóòè êðàòíîþ äîâæèí³ âåêòîðà\nòåìïåðàòóð íà ïðàâ³é ñòîðîí³ ïëàñòèíè.\n"
UA_NCOL_NOT_MULTIPLE_TO_DOWN_T = "ʳëüê³ñòü âåðòèêàëüíèõ ë³í³é ñ³òêè ìຠáóòè êðàòíîþ äîâæèí³ âåêòîðà\nòåìïåðàòóð íà íèæí³é ñòîðîí³ ïëàñòèíè.\n"
UA_INCORRECT_ACCURACY = "Òî÷í³ñòü ìຠáóòè ºäèíèì ÷èñëîì (íå ìíîæèíí³ äàí³ òà íå NULL).\n"
UA_NOT_POSITIVE_ACCURACY = "Òî÷í³ñòü ìຠáóòè ïîçèòèâíèì ÷èñëîì.\n"
UA_ACCURACY_CHANGED_TO_LESS = "Çàäàíà òî÷í³ñòü íàäì³ðíî ìàëà: ìåíøå í³æ 10^-5, òîìó áóëî âçÿòî òî÷í³ñòü 10^-5.\n"
UA_ACCURACY_CHANGED_TO_BIGGER = "Çàäàíà òî÷í³ñòü á³ëüøà 10, ùî íå ìຠñåíñó äëÿ äàíîãî ìåòîäó, òîìó ¿¿ áóëî îáð³çàíî äî 10.\n"
UA_CHANGE_DATA_PLEASE = "Ââåäåí³ íåêîðåêòí³ äàí³. Âèïðàâòå ¿õ äëÿ âàë³äíîñò³.\n"
UA_CANT_REACH_NEEDED_ACCURACY = "Íàæàëü, íå âäàëîñü äîñÿãíóòè íåîáõ³äíî¿ òî÷íîñò³.\n"
#
UA_INTRO = "ÊÓÐÑÎÂÀ ÐÎÁÎÒÀ Ç ÇßÏÇ"
UA_DATA = "Äàí³:\n\n"
UA_TEMPERATURE_LEFT = "Òåìïåðàòóðà íà ë³â³é ñòîðîí³ t_l ="
UA_TEMPERATURE_UP = "Òåìïåðàòóðà íà âåðõí³é ñòîðîí³ t_u ="
UA_TEMPERATURE_RIGHT = "Òåìïåðàòóðà íà ïðàâ³é ñòîðîí³ t_r ="
UA_TEMPERATURE_DOWN = "Òåìïåðàòóðà íà íèæí³é ñòîðîí³ t_d ="
UA_HORIZONTAL_LINES_NUM = "ʳëüê³ñòü ãîðèçîíòàëüíèõ ë³í³é ñ³òêè nh ="
UA_VERTICAL_LINES_NUM = "ʳëüê³ñòü âåðòèêàëüíèõ ë³í³é ñ³òêè nV ="
UA_HORIZONTAL_DIST = "³äñòàíü ì³æ ãîðèçîíòàëüíèìè ë³í³ÿìè ñ³òêè dy ="
UA_VERTICAL_DIST = "³äñòàíü ì³æ âåðòèêàëüíèìè ë³í³ÿìè ñ³òêè dx ="
UA_ACCURACY_CALC = "Òî÷í³ñòü ðîçðàõóíê³â"
UA_CALCULATING = "Ïðîâîäÿòüñÿ ðîçðàõóíêè...\n"
UA_INIT_APPROXIMATION = "Ïî÷àòêîâå íàáëèæåííÿ äëÿ ìåòîäà ïðîñòèõ ³òåðàö³é:\n"
UA_RESULT_CALCULATED = "Ðåçóëüòàò ðîçðàõóíê³â:\n"

set_lang <- function(lang = DEFAULT_LANGUAGE){
	set_EN <- function(){
		assign("INCORRECT_NROW_LEN", EN_INCORRECT_NROW_LEN, env=env)
		assign("INCORRECT_NCOL_LEN", EN_INCORRECT_NCOL_LEN, env=env)
		assign("INCORRECT_DX_LEN", EN_INCORRECT_DX_LEN, env=env)
		assign("INCORRECT_DY_LEN", EN_INCORRECT_DY_LEN, env=env)
		assign("SOME_PARAM_NOT_FINITE", EN_SOME_PARAM_NOT_FINITE, env=env)
		assign("NCOL_OR_NROW_TO_LOW", EN_NCOL_OR_NROW_TO_LOW, env=env)
		assign("TO_BIG_MATRIX", EN_TO_BIG_MATRIX, env=env)
		assign("BOTH_DX_DY_IS_ZERO", EN_BOTH_DX_DY_IS_ZERO, env=env)
		assign("NROW_NOT_MULTIPLE_TO_LEFT_T", EN_NROW_NOT_MULTIPLE_TO_LEFT_T, env=env)
		assign("NCOL_NOT_MULTIPLE_TO_UP_T", EN_NCOL_NOT_MULTIPLE_TO_UP_T, env=env)
		assign("NROW_NOT_MULTIPLE_TO_RIGHT_T", EN_NROW_NOT_MULTIPLE_TO_RIGHT_T, env=env)
		assign("NCOL_NOT_MULTIPLE_TO_DOWN_T", EN_NCOL_NOT_MULTIPLE_TO_DOWN_T, env=env)
		assign("INCORRECT_ACCURACY", EN_INCORRECT_ACCURACY, env=env)
		assign("NOT_POSITIVE_ACCURACY", EN_NOT_POSITIVE_ACCURACY, env=env)
		assign("ACCURACY_CHANGED_TO_LESS", EN_ACCURACY_CHANGED_TO_LESS, env=env)
		assign("ACCURACY_CHANGED_TO_BIGGER", EN_ACCURACY_CHANGED_TO_BIGGER, env=env)
		assign("CHANGE_DATA_PLEASE", EN_CHANGE_DATA_PLEASE, env=env)
		assign("CANT_REACH_NEEDED_ACCURACY", EN_CANT_REACH_NEEDED_ACCURACY, env=env)
		assign("INTRO", EN_INTRO, env=env)
		assign("DATA", EN_DATA, env=env)
		assign("TEMPERATURE_LEFT", EN_TEMPERATURE_LEFT, env=env)
		assign("TEMPERATURE_UP", EN_TEMPERATURE_UP, env=env)
		assign("TEMPERATURE_RIGHT", EN_TEMPERATURE_RIGHT, env=env)
		assign("TEMPERATURE_DOWN", EN_TEMPERATURE_DOWN, env=env)
		assign("VERTICAL_LINES_NUM", EN_VERTICAL_LINES_NUM, env=env)
		assign("HORIZONTAL_LINES_NUM", EN_HORIZONTAL_LINES_NUM, env=env)
		assign("HORIZONTAL_DIST", EN_HORIZONTAL_DIST, env=env)
		assign("VERTICAL_DIST", EN_VERTICAL_DIST, env=env)
		assign("ACCURACY_CALC", EN_ACCURACY_CALC, env=env)
		assign("CALCULATING", EN_CALCULATING, env=env)
		assign("INIT_APPROXIMATION", EN_INIT_APPROXIMATION, env=env)
		assign("RESULT_CALCULATED", EN_RESULT_CALCULATED, env=env)
		assign("NOT_AVAILABLE_TEMPERATURE", EN_NOT_AVAILABLE_TEMPERATURE, env=env)

		assign("VIEW_LANG", "EN", env=env)
		return(TRUE)
	}
	set_RU <- function(){
		assign("INCORRECT_NROW_LEN", RU_INCORRECT_NROW_LEN, env=env)
		assign("INCORRECT_NCOL_LEN", RU_INCORRECT_NCOL_LEN, env=env)
		assign("INCORRECT_DX_LEN", RU_INCORRECT_DX_LEN, env=env)
		assign("INCORRECT_DY_LEN", RU_INCORRECT_DY_LEN, env=env)
		assign("SOME_PARAM_NOT_FINITE", RU_SOME_PARAM_NOT_FINITE, env=env)
		assign("NCOL_OR_NROW_TO_LOW", RU_NCOL_OR_NROW_TO_LOW, env=env)
		assign("TO_BIG_MATRIX", RU_TO_BIG_MATRIX, env=env)
		assign("BOTH_DX_DY_IS_ZERO", RU_BOTH_DX_DY_IS_ZERO, env=env)
		assign("NROW_NOT_MULTIPLE_TO_LEFT_T", RU_NROW_NOT_MULTIPLE_TO_LEFT_T, env=env)
		assign("NCOL_NOT_MULTIPLE_TO_UP_T", RU_NCOL_NOT_MULTIPLE_TO_UP_T, env=env)
		assign("NROW_NOT_MULTIPLE_TO_RIGHT_T", RU_NROW_NOT_MULTIPLE_TO_RIGHT_T, env=env)
		assign("NCOL_NOT_MULTIPLE_TO_DOWN_T", RU_NCOL_NOT_MULTIPLE_TO_DOWN_T, env=env)
		assign("INCORRECT_ACCURACY", RU_INCORRECT_ACCURACY, env=env)
		assign("NOT_POSITIVE_ACCURACY", RU_NOT_POSITIVE_ACCURACY, env=env)
		assign("ACCURACY_CHANGED_TO_LESS", RU_ACCURACY_CHANGED_TO_LESS, env=env)
		assign("ACCURACY_CHANGED_TO_BIGGER", RU_ACCURACY_CHANGED_TO_BIGGER, env=env)
		assign("CHANGE_DATA_PLEASE", RU_CHANGE_DATA_PLEASE, env=env)
		assign("CANT_REACH_NEEDED_ACCURACY", RU_CANT_REACH_NEEDED_ACCURACY, env=env)
		assign("INTRO", RU_INTRO, env=env)
		assign("DATA", RU_DATA, env=env)
		assign("TEMPERATURE_LEFT", RU_TEMPERATURE_LEFT, env=env)
		assign("TEMPERATURE_UP", RU_TEMPERATURE_UP, env=env)
		assign("TEMPERATURE_RIGHT", RU_TEMPERATURE_RIGHT, env=env)
		assign("TEMPERATURE_DOWN", RU_TEMPERATURE_DOWN, env=env)
		assign("VERTICAL_LINES_NUM", RU_VERTICAL_LINES_NUM, env=env)
		assign("HORIZONTAL_LINES_NUM", RU_HORIZONTAL_LINES_NUM, env=env)
		assign("HORIZONTAL_DIST", RU_HORIZONTAL_DIST, env=env)
		assign("VERTICAL_DIST", RU_VERTICAL_DIST, env=env)
		assign("ACCURACY_CALC", RU_ACCURACY_CALC, env=env)
		assign("CALCULATING", RU_CALCULATING, env=env)
		assign("INIT_APPROXIMATION", RU_INIT_APPROXIMATION, env=env)
		assign("RESULT_CALCULATED", RU_RESULT_CALCULATED, env=env)
		assign("NOT_AVAILABLE_TEMPERATURE", RU_NOT_AVAILABLE_TEMPERATURE, env=env)
		
		assign("VIEW_LANG", "RU", env=env)
		return(TRUE)
	}
	set_UA <- function(){
		assign("INCORRECT_NROW_LEN", UA_INCORRECT_NROW_LEN, env=env)
		assign("INCORRECT_NCOL_LEN", UA_INCORRECT_NCOL_LEN, env=env)
		assign("INCORRECT_DX_LEN", UA_INCORRECT_DX_LEN, env=env)
		assign("INCORRECT_DY_LEN", UA_INCORRECT_DY_LEN, env=env)
		assign("SOME_PARAM_NOT_FINITE", UA_SOME_PARAM_NOT_FINITE, env=env)
		assign("NCOL_OR_NROW_TO_LOW", UA_NCOL_OR_NROW_TO_LOW, env=env)
		assign("TO_BIG_MATRIX", UA_TO_BIG_MATRIX, env=env)
		assign("BOTH_DX_DY_IS_ZERO", UA_BOTH_DX_DY_IS_ZERO, env=env)
		assign("NROW_NOT_MULTIPLE_TO_LEFT_T", UA_NROW_NOT_MULTIPLE_TO_LEFT_T, env=env)
		assign("NCOL_NOT_MULTIPLE_TO_UP_T", UA_NCOL_NOT_MULTIPLE_TO_UP_T, env=env)
		assign("NROW_NOT_MULTIPLE_TO_RIGHT_T", UA_NROW_NOT_MULTIPLE_TO_RIGHT_T, env=env)
		assign("NCOL_NOT_MULTIPLE_TO_DOWN_T", UA_NCOL_NOT_MULTIPLE_TO_DOWN_T, env=env)
		assign("INCORRECT_ACCURACY", UA_INCORRECT_ACCURACY, env=env)
		assign("NOT_POSITIVE_ACCURACY", UA_NOT_POSITIVE_ACCURACY, env=env)
		assign("ACCURACY_CHANGED_TO_LESS", UA_ACCURACY_CHANGED_TO_LESS, env=env)
		assign("ACCURACY_CHANGED_TO_BIGGER", UA_ACCURACY_CHANGED_TO_BIGGER, env=env)
		assign("CHANGE_DATA_PLEASE", UA_CHANGE_DATA_PLEASE, env=env)
		assign("CANT_REACH_NEEDED_ACCURACY", UA_CANT_REACH_NEEDED_ACCURACY, env=env)
		assign("INTRO", UA_INTRO, env=env)
		assign("DATA", UA_DATA, env=env)
		assign("TEMPERATURE_LEFT", UA_TEMPERATURE_LEFT, env=env)
		assign("TEMPERATURE_UP", UA_TEMPERATURE_UP, env=env)
		assign("TEMPERATURE_RIGHT", UA_TEMPERATURE_RIGHT, env=env)
		assign("TEMPERATURE_DOWN", UA_TEMPERATURE_DOWN, env=env)
		assign("VERTICAL_LINES_NUM", UA_VERTICAL_LINES_NUM, env=env)
		assign("HORIZONTAL_LINES_NUM", UA_HORIZONTAL_LINES_NUM, env=env)
		assign("HORIZONTAL_DIST", UA_HORIZONTAL_DIST, env=env)
		assign("VERTICAL_DIST", UA_VERTICAL_DIST, env=env)
		assign("ACCURACY_CALC", UA_ACCURACY_CALC, env=env)
		assign("CALCULATING", UA_CALCULATING, env=env)
		assign("INIT_APPROXIMATION", UA_INIT_APPROXIMATION, env=env)
		assign("RESULT_CALCULATED", UA_RESULT_CALCULATED, env=env)
		assign("NOT_AVAILABLE_TEMPERATURE", UA_NOT_AVAILABLE_TEMPERATURE, env=env)

		assign("VIEW_LANG", "UA", env=env)
		return(TRUE)
	}
	lang_upper <- toupper(lang)
	env <- .GlobalEnv
	
	set <- switch(lang_upper, 
		EN = set_EN(), 
		RU = set_RU(),
		UA = set_UA())
	if (is.null(set)) set_lang(DEFAULT_LANGUAGE)
}

set_lang()