make a slider for a list of matrices

The name of the pictureThe name of the pictureThe name of the pictureClash Royale CLAN TAG#URR8PPP











up vote
1
down vote

favorite












I have a list of matrices, called $matList$, which are sequentially multiplied by another matrix $G$. I created a slider for $matList$, but the slider does not work. Here is the Code.



Clear[a, t, matList, G, solG, solGTr, mat];
Manipulate[
 SeedRandom[2];
 a = RandomReal[0, 1, 3, 5];
 t = RandomReal[0, 1, 3, 5];
 matList = 
 Table[(# - DiagonalMatrix[Diagonal[#]]) &[
 KroneckerProduct[a[[i]], t[[i]]]], i, 1, 3]; 
 G = 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 
 0, 1, 0, 0, 1, 0;
 solG = G*mat;
 solGTr = Transpose[solG];
 Grid[ 
 Text["matrix solG"], Text["transpose of solG"], solG, solGTr 
 ],
 Row[Control[mat, matList, Animator, AnimationRunning -> False]]
 ]


The problem in the above Code lies in Row[{control[mat,matList,...]. A similar construct for a slider of a list of numbers works, though.






manipulate slider







share|improve this question

















  • 1




    Replace solG = G*mat withsolG = G*matList[[k]], and Row[...] with k, 1, 1, Length@matList, 1, Animator, AnimationRunning -> False.
    – kglr
    56 mins ago






  • 1




    Related/duplicate: mathematica.stackexchange.com/questions/123152/…
    – Michael E2
    15 mins ago










  • @kglr: Thank you very much for saving my day....
    – Tebernus
    12 mins ago














up vote
1
down vote

favorite












I have a list of matrices, called $matList$, which are sequentially multiplied by another matrix $G$. I created a slider for $matList$, but the slider does not work. Here is the Code.



Clear[a, t, matList, G, solG, solGTr, mat];
Manipulate[
 SeedRandom[2];
 a = RandomReal[0, 1, 3, 5];
 t = RandomReal[0, 1, 3, 5];
 matList = 
 Table[(# - DiagonalMatrix[Diagonal[#]]) &[
 KroneckerProduct[a[[i]], t[[i]]]], i, 1, 3]; 
 G = 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 
 0, 1, 0, 0, 1, 0;
 solG = G*mat;
 solGTr = Transpose[solG];
 Grid[ 
 Text["matrix solG"], Text["transpose of solG"], solG, solGTr 
 ],
 Row[Control[mat, matList, Animator, AnimationRunning -> False]]
 ]


The problem in the above Code lies in Row[{control[mat,matList,...]. A similar construct for a slider of a list of numbers works, though.






manipulate slider







share|improve this question

















  • 1




    Replace solG = G*mat withsolG = G*matList[[k]], and Row[...] with k, 1, 1, Length@matList, 1, Animator, AnimationRunning -> False.
    – kglr
    56 mins ago






  • 1




    Related/duplicate: mathematica.stackexchange.com/questions/123152/…
    – Michael E2
    15 mins ago










  • @kglr: Thank you very much for saving my day....
    – Tebernus
    12 mins ago












up vote
1
down vote

favorite









up vote
1
down vote

favorite











I have a list of matrices, called $matList$, which are sequentially multiplied by another matrix $G$. I created a slider for $matList$, but the slider does not work. Here is the Code.



Clear[a, t, matList, G, solG, solGTr, mat];
Manipulate[
 SeedRandom[2];
 a = RandomReal[0, 1, 3, 5];
 t = RandomReal[0, 1, 3, 5];
 matList = 
 Table[(# - DiagonalMatrix[Diagonal[#]]) &[
 KroneckerProduct[a[[i]], t[[i]]]], i, 1, 3]; 
 G = 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 
 0, 1, 0, 0, 1, 0;
 solG = G*mat;
 solGTr = Transpose[solG];
 Grid[ 
 Text["matrix solG"], Text["transpose of solG"], solG, solGTr 
 ],
 Row[Control[mat, matList, Animator, AnimationRunning -> False]]
 ]


The problem in the above Code lies in Row[{control[mat,matList,...]. A similar construct for a slider of a list of numbers works, though.






manipulate slider







share|improve this question













I have a list of matrices, called $matList$, which are sequentially multiplied by another matrix $G$. I created a slider for $matList$, but the slider does not work. Here is the Code.



Clear[a, t, matList, G, solG, solGTr, mat];
Manipulate[
 SeedRandom[2];
 a = RandomReal[0, 1, 3, 5];
 t = RandomReal[0, 1, 3, 5];
 matList = 
 Table[(# - DiagonalMatrix[Diagonal[#]]) &[
 KroneckerProduct[a[[i]], t[[i]]]], i, 1, 3]; 
 G = 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 
 0, 1, 0, 0, 1, 0;
 solG = G*mat;
 solGTr = Transpose[solG];
 Grid[ 
 Text["matrix solG"], Text["transpose of solG"], solG, solGTr 
 ],
 Row[Control[mat, matList, Animator, AnimationRunning -> False]]
 ]


The problem in the above Code lies in Row[{control[mat,matList,...]. A similar construct for a slider of a list of numbers works, though.






manipulate slider




manipulate slider






share|improve this question













share|improve this question











share|improve this question




share|improve this question










asked 1 hour ago









Tebernus

747




747







  • 1




    Replace solG = G*mat withsolG = G*matList[[k]], and Row[...] with k, 1, 1, Length@matList, 1, Animator, AnimationRunning -> False.
    – kglr
    56 mins ago






  • 1




    Related/duplicate: mathematica.stackexchange.com/questions/123152/…
    – Michael E2
    15 mins ago










  • @kglr: Thank you very much for saving my day....
    – Tebernus
    12 mins ago












  • 1




    Replace solG = G*mat withsolG = G*matList[[k]], and Row[...] with k, 1, 1, Length@matList, 1, Animator, AnimationRunning -> False.
    – kglr
    56 mins ago






  • 1




    Related/duplicate: mathematica.stackexchange.com/questions/123152/…
    – Michael E2
    15 mins ago










  • @kglr: Thank you very much for saving my day....
    – Tebernus
    12 mins ago







1




1




Replace solG = G*mat withsolG = G*matList[[k]], and Row[...] with k, 1, 1, Length@matList, 1, Animator, AnimationRunning -> False.
– kglr
56 mins ago




Replace solG = G*mat withsolG = G*matList[[k]], and Row[...] with k, 1, 1, Length@matList, 1, Animator, AnimationRunning -> False.
– kglr
56 mins ago




1




1




Related/duplicate: mathematica.stackexchange.com/questions/123152/…
– Michael E2
15 mins ago




Related/duplicate: mathematica.stackexchange.com/questions/123152/…
– Michael E2
15 mins ago












@kglr: Thank you very much for saving my day....
– Tebernus
12 mins ago




@kglr: Thank you very much for saving my day....
– Tebernus
12 mins ago










2 Answers
2






active

oldest

votes

















up vote
2
down vote



accepted










Maybe if you want a slider, use Slider:



SeedRandom[2];
a = RandomReal[0, 1, 3, 5];
t = RandomReal[0, 1, 3, 5];
matList = 
 Table[(# - DiagonalMatrix[Diagonal[#]]) &[
 KroneckerProduct[a[[i]], t[[i]]]], i, 1, 3];
G = 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 
 0, 1, 0, 0, 1, 0;
Manipulate[
 With[solG = G*mat, solGTr = Transpose[solG],
 Grid[Text["matrix solG"], Text["transpose of solG"],
 MatrixForm /@ solG, solGTr]
 ],
 mat, matList, Slider]





share|improve this answer




















  • Your answer is yet another very good answer, formatting the output in MatrixForm for better visual effect.
    – Tebernus
    4 mins ago

















up vote
1
down vote













More an extended comment than an answer.



In addition to what kglr has said, you might have much more fun with this if you move the random matrix generation and the preliminary calculations out of the Manipulate environment: 



Clear[a, t, matList, G, solG, solGTr, mat];
SeedRandom[2];
n = 30;
a = RandomReal[0, 1, n, 5];
t = RandomReal[0, 1, n, 5];
matList = 
 Table[(# - DiagonalMatrix[Diagonal[#]]) &[KroneckerProduct[a[[i]], t[[i]]]], 
 i, 1, n];
G = 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0,0, 1, 0, 0, 1, 0;
Manipulate[
 solG = G*matList[[k]];
 solGTr = Transpose[solG];
 Grid[Text["matrix solG"], Text["transpose of solG"], solG,solGTr], 
 k, 1, 1, Length@matList, 1, Animator, AnimationRunning -> False
 ]





share|improve this answer




















  • it works perfect. You and kglr saved my day...
    – Tebernus
    13 mins ago










  • Always at your service. =)
    – Henrik Schumacher
    9 mins ago











Your Answer




StackExchange.ifUsing("editor", function ()
return StackExchange.using("mathjaxEditing", function ()
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
);
);
, "mathjax-editing");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "387"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
convertImagesToLinks: false,
noModals: false,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);













 

draft saved


draft discarded


















StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f183023%2fmake-a-slider-for-a-list-of-matrices%23new-answer', 'question_page');

);

Post as a guest

















2 Answers
2






active

oldest

votes








2 Answers
2






active

oldest

votes









active

oldest

votes






active

oldest

votes








up vote
2
down vote



accepted










Maybe if you want a slider, use Slider:



SeedRandom[2];
a = RandomReal[0, 1, 3, 5];
t = RandomReal[0, 1, 3, 5];
matList = 
 Table[(# - DiagonalMatrix[Diagonal[#]]) &[
 KroneckerProduct[a[[i]], t[[i]]]], i, 1, 3];
G = 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 
 0, 1, 0, 0, 1, 0;
Manipulate[
 With[solG = G*mat, solGTr = Transpose[solG],
 Grid[Text["matrix solG"], Text["transpose of solG"],
 MatrixForm /@ solG, solGTr]
 ],
 mat, matList, Slider]





share|improve this answer




















  • Your answer is yet another very good answer, formatting the output in MatrixForm for better visual effect.
    – Tebernus
    4 mins ago














up vote
2
down vote



accepted










Maybe if you want a slider, use Slider:



SeedRandom[2];
a = RandomReal[0, 1, 3, 5];
t = RandomReal[0, 1, 3, 5];
matList = 
 Table[(# - DiagonalMatrix[Diagonal[#]]) &[
 KroneckerProduct[a[[i]], t[[i]]]], i, 1, 3];
G = 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 
 0, 1, 0, 0, 1, 0;
Manipulate[
 With[solG = G*mat, solGTr = Transpose[solG],
 Grid[Text["matrix solG"], Text["transpose of solG"],
 MatrixForm /@ solG, solGTr]
 ],
 mat, matList, Slider]





share|improve this answer




















  • Your answer is yet another very good answer, formatting the output in MatrixForm for better visual effect.
    – Tebernus
    4 mins ago












up vote
2
down vote



accepted







up vote
2
down vote



accepted






Maybe if you want a slider, use Slider:



SeedRandom[2];
a = RandomReal[0, 1, 3, 5];
t = RandomReal[0, 1, 3, 5];
matList = 
 Table[(# - DiagonalMatrix[Diagonal[#]]) &[
 KroneckerProduct[a[[i]], t[[i]]]], i, 1, 3];
G = 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 
 0, 1, 0, 0, 1, 0;
Manipulate[
 With[solG = G*mat, solGTr = Transpose[solG],
 Grid[Text["matrix solG"], Text["transpose of solG"],
 MatrixForm /@ solG, solGTr]
 ],
 mat, matList, Slider]





share|improve this answer












Maybe if you want a slider, use Slider:



SeedRandom[2];
a = RandomReal[0, 1, 3, 5];
t = RandomReal[0, 1, 3, 5];
matList = 
 Table[(# - DiagonalMatrix[Diagonal[#]]) &[
 KroneckerProduct[a[[i]], t[[i]]]], i, 1, 3];
G = 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 
 0, 1, 0, 0, 1, 0;
Manipulate[
 With[solG = G*mat, solGTr = Transpose[solG],
 Grid[Text["matrix solG"], Text["transpose of solG"],
 MatrixForm /@ solG, solGTr]
 ],
 mat, matList, Slider]






share|improve this answer












share|improve this answer



share|improve this answer










answered 16 mins ago









Michael E2

141k11191457




141k11191457











  • Your answer is yet another very good answer, formatting the output in MatrixForm for better visual effect.
    – Tebernus
    4 mins ago
















  • Your answer is yet another very good answer, formatting the output in MatrixForm for better visual effect.
    – Tebernus
    4 mins ago















Your answer is yet another very good answer, formatting the output in MatrixForm for better visual effect.
– Tebernus
4 mins ago




Your answer is yet another very good answer, formatting the output in MatrixForm for better visual effect.
– Tebernus
4 mins ago










up vote
1
down vote













More an extended comment than an answer.



In addition to what kglr has said, you might have much more fun with this if you move the random matrix generation and the preliminary calculations out of the Manipulate environment: 



Clear[a, t, matList, G, solG, solGTr, mat];
SeedRandom[2];
n = 30;
a = RandomReal[0, 1, n, 5];
t = RandomReal[0, 1, n, 5];
matList = 
 Table[(# - DiagonalMatrix[Diagonal[#]]) &[KroneckerProduct[a[[i]], t[[i]]]], 
 i, 1, n];
G = 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0,0, 1, 0, 0, 1, 0;
Manipulate[
 solG = G*matList[[k]];
 solGTr = Transpose[solG];
 Grid[Text["matrix solG"], Text["transpose of solG"], solG,solGTr], 
 k, 1, 1, Length@matList, 1, Animator, AnimationRunning -> False
 ]





share|improve this answer




















  • it works perfect. You and kglr saved my day...
    – Tebernus
    13 mins ago










  • Always at your service. =)
    – Henrik Schumacher
    9 mins ago















up vote
1
down vote













More an extended comment than an answer.



In addition to what kglr has said, you might have much more fun with this if you move the random matrix generation and the preliminary calculations out of the Manipulate environment: 



Clear[a, t, matList, G, solG, solGTr, mat];
SeedRandom[2];
n = 30;
a = RandomReal[0, 1, n, 5];
t = RandomReal[0, 1, n, 5];
matList = 
 Table[(# - DiagonalMatrix[Diagonal[#]]) &[KroneckerProduct[a[[i]], t[[i]]]], 
 i, 1, n];
G = 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0,0, 1, 0, 0, 1, 0;
Manipulate[
 solG = G*matList[[k]];
 solGTr = Transpose[solG];
 Grid[Text["matrix solG"], Text["transpose of solG"], solG,solGTr], 
 k, 1, 1, Length@matList, 1, Animator, AnimationRunning -> False
 ]





share|improve this answer




















  • it works perfect. You and kglr saved my day...
    – Tebernus
    13 mins ago










  • Always at your service. =)
    – Henrik Schumacher
    9 mins ago













up vote
1
down vote










up vote
1
down vote









More an extended comment than an answer.



In addition to what kglr has said, you might have much more fun with this if you move the random matrix generation and the preliminary calculations out of the Manipulate environment: 



Clear[a, t, matList, G, solG, solGTr, mat];
SeedRandom[2];
n = 30;
a = RandomReal[0, 1, n, 5];
t = RandomReal[0, 1, n, 5];
matList = 
 Table[(# - DiagonalMatrix[Diagonal[#]]) &[KroneckerProduct[a[[i]], t[[i]]]], 
 i, 1, n];
G = 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0,0, 1, 0, 0, 1, 0;
Manipulate[
 solG = G*matList[[k]];
 solGTr = Transpose[solG];
 Grid[Text["matrix solG"], Text["transpose of solG"], solG,solGTr], 
 k, 1, 1, Length@matList, 1, Animator, AnimationRunning -> False
 ]





share|improve this answer












More an extended comment than an answer.



In addition to what kglr has said, you might have much more fun with this if you move the random matrix generation and the preliminary calculations out of the Manipulate environment: 



Clear[a, t, matList, G, solG, solGTr, mat];
SeedRandom[2];
n = 30;
a = RandomReal[0, 1, n, 5];
t = RandomReal[0, 1, n, 5];
matList = 
 Table[(# - DiagonalMatrix[Diagonal[#]]) &[KroneckerProduct[a[[i]], t[[i]]]], 
 i, 1, n];
G = 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0,0, 1, 0, 0, 1, 0;
Manipulate[
 solG = G*matList[[k]];
 solGTr = Transpose[solG];
 Grid[Text["matrix solG"], Text["transpose of solG"], solG,solGTr], 
 k, 1, 1, Length@matList, 1, Animator, AnimationRunning -> False
 ]






share|improve this answer












share|improve this answer



share|improve this answer










answered 33 mins ago









Henrik Schumacher

40.5k256121




40.5k256121











  • it works perfect. You and kglr saved my day...
    – Tebernus
    13 mins ago










  • Always at your service. =)
    – Henrik Schumacher
    9 mins ago

















  • it works perfect. You and kglr saved my day...
    – Tebernus
    13 mins ago










  • Always at your service. =)
    – Henrik Schumacher
    9 mins ago
















it works perfect. You and kglr saved my day...
– Tebernus
13 mins ago




it works perfect. You and kglr saved my day...
– Tebernus
13 mins ago












Always at your service. =)
– Henrik Schumacher
9 mins ago





Always at your service. =)
– Henrik Schumacher
9 mins ago


















 

draft saved


draft discarded















































 


draft saved


draft discarded














StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f183023%2fmake-a-slider-for-a-list-of-matrices%23new-answer', 'question_page');

);

Post as a guest
































































Comments

Post a Comment

Popular posts from this blog

List of Gilmore Girls characters

Image
The season three cast—(Back row): Lane, Michel, Paris, Emily, Richard, Sookie, Miss Patty, Kirk; Front row: Jess, Luke, Lorelai, Rory, Dean This is a list of characters for the comedy-drama television series Gilmore Girls . Contents 1 Main characters 1.1 Lorelai Gilmore 1.2 Rory Gilmore 1.3 Sookie St. James 1.4 Lane Kim 1.5 Michel Gerard 1.6 Luke Danes 1.7 Emily Gilmore 1.8 Richard Gilmore 1.9 Paris Geller 1.10 Dean Forester 1.11 Jess Mariano 1.12 Kirk Gleason 1.13 Jason Stiles 1.14 Logan Huntzberger 2 Major recurring characters 2.1 Christopher Hayden 2.2 Jackson Belleville 2.3 Mrs. Kim 2.4 Tristin DuGray 2.5 Max Medina 2.6 Taylor Doose 2.7 Dave Rygalski 2.8 Marty 3 Recurring characters 3.1 Stars Hollow 3.2 Chilton 3.3 Yale 3.4 Other 4 Notable guest stars 5 Unseen characters 6 Notes 7 References Main characters Actor Character Appearances Season 1 Season 2 Season 3 Season 4 Season 5 Season 6 Season 7 A Year in the Life Lauren Graham Lorelai Gilmore...
Read more

What does second last employer means? [closed]

Image
Clash Royale CLAN TAG #URR8PPP .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty margin-bottom:0; up vote -3 down vote favorite Say, for example I have worked in the following companies, Company A => 2010 - 2011 Company B => 2011 - 2012 Company C => 2012 - Till Date Company D => Have offer Now assume Company D is asking to submit documents from my second last employer. So from the list of companies given, which company would be qualified as second last employer? software-industry employer share | improve this question asked Aug 10 '14 at 5:16 Rajaprabhu Aravindasamy 559 1 6 13 closed as off-topic by Jim G., jmort253 ♦ Aug 11 '14 at 1:58 This question appears to be off-topic. The users who voted to close gave this specific reason: "Questions seeking advice on company-specific regulations, agreements, or policies should be directed to your manager or HR department. Questions that address...
Read more

One-line joke

A one-liner is a joke that is delivered in a single line. A good one-liner is said to be pithy - concise and meaningful. [1] Comedians and actors use this comedic method as part of their act, e.g. Jimmy Carr, Tommy Cooper, Rodney Dangerfield, Norm Macdonald, Ken Dodd, Stewart Francis, Zach Galifianakis, Mitch Hedberg, Anthony Jeselnik, Milton Jones, Shappi Khorsandi, Jay London, Mark Linn-Baker, Demetri Martin, Groucho Marx, Dan Mintz, Emo Philips, Tim Vine, Steven Wright and Henny Youngman and Arnold Schwarzenegger. [ citation needed ] Many fictional characters are also known to deliver one-liners, including James Bond, who usually includes pithy and laconic quips after disposing of a villain. [ citation needed ] Examples "A baby seal walks into a club." "A dyslexic man walks into a bra." (Anonymous) "There are three types of people, those who can count and those who can't." "Venison's dear, isn't it?" (Jimmy Carr) "An escala...
Read more