I'm trying to set up code that basically asks the user to input the values of a matrix with a certain key size. I want them to first enter the keysize and then ask for all of the entries necessary to fill the square matrix of that keysize.
$\begingroup$
$\endgroup$
3
1 Answer
$\begingroup$
$\endgroup$
3
This is not an answer. This Code may help you prepare your input boxes.
Panel[
country = 0;
sector = 0;
level = 0;
result = {};
While[Not[IntegerQ[country] && 1 <= country <= 64], (country = Input["Which country do you want to analyze?"])];
While[Not[IntegerQ[sector] && 1 <= sector <= 15], (sector = Input["Which sector do you want to target?"])];
While[Not[NumericQ[level] && 0.01 <= level <= 1], (level = Input["At what significance level do you want to analyze IO matrix?"])];
result = {country, sector, level};
If[
result === {}, "", result
]
]
-
1$\begingroup$ This hangs up Mma 12.2.0-Win7x64 and the dialog wouldn't go away. Perhaps it is a version related artifact. There is a comma flagged in red in the
Ifstatement at the end. $\endgroup$Syed– Syed2022-03-21 04:02:18 +00:00Commented Mar 21, 2022 at 4:02 -
1$\begingroup$ is
result === {}, "",to beresult === {}, "", result? $\endgroup$AsukaMinato– AsukaMinato2023-11-11 20:23:31 +00:00Commented Nov 11, 2023 at 20:23 -
$\begingroup$ @AsukaMinato: Yes, you are right, however, for some reason, the dialogue box does not go away as noted by Syed noted. I cannot find the reason for that. $\endgroup$Tugrul Temel– Tugrul Temel2023-11-11 21:33:50 +00:00Commented Nov 11, 2023 at 21:33
AllowedDimensionsoption. $\endgroup$