Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
ZigangPan`SystemofSystems`
systemofsystems  |
|
| | ||||
Examples
(1)
Basic Examples
(1)
In[1]:=
system1={{x11,x12,x13,x14,x15},{u11,u12,u21,y31,y32,wg1,wg2,wg3,wg4,wg5,wg6},{y11,y12,z11,z12},{{0,1,0,θb11,0,2θb11,θb12,0,θb11,-θb12,0,0,0,0,0,θb11},{0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0},{0,-θb13,0,0,0,0,0,0,0,0,0,0,0,0,0,0},{-1,0,0,-2,1,-θb11,-θb12,0,θb11,θb12,0,0,0,0,0,θb12},{0,0,0,-1/2,-1,0,0,1/6*θb12,θb11,-θb12,0,0,0,0,0,θb12},{1,0,0,0,0,θb11,θb12,0,0,0,1,0,0,0,0,0},{0,0,0,1,0,-θb12,θb11,0,0,0,0,1,0,0,0,0},{1,0,0,0,0,θb11,θb12,0,0,0,0,0,0,0,0,0},{0,0,0,1,0,-θb12,θb11,0,0,0,0,0,0,0,0,0}},{1,2},{1,2},{1,2},{3,4,5,6,7,8,9,10,11},{1,2},{3,4}}/.{θb111,θb121,θb132};systemcheck[system1]
Out[1]=
True
In[2]:=
system2={{x21,x22,x23,x24},{u21,u31,u32,y11,y12,wg1,wg2,wg3,wg4,wg5,wg6},{y21,z21},{{-θb21,1,0,0,θb21,0,0,0,0,0,0,0,0,0,θb21},{-θb21,0,1,0,3θb21,0,0,θb21,θb22,0,0,0,0,0,3θb21},{-θb22,0,0,1,3θb21,-θb22,θb21,-θb22,θb21,0,0,0,0,0,3θb21},{θb22,0,0,0,θb21,θb21,θb22,θb21,θb22,0,0,0,0,0,-θb21},{1,0,0,0,0,0,0,0,0,0,0,1,0,0,0},{1,0,0,0,0,0,0,0,0,0,0,0,0,0,0}},{1},{1},{1},{2,3,4,5,6,7,8,9,10,11},{1},{2}}/.{θb211,θb223/2};systemcheck[system2]
Out[2]=
True
In[3]:=
system3={{x31,x32,x33,x34,x35,x36},{u31,u32,u11,u12,y21,wg1,wg2,wg3,wg4,wg5,wg6},{y31,y32,z31,z32},{{1+θb31,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1+θb33},{1+θb31,-1+θb32,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1+θb34},{1-θb32,-1+θb31,0,0,1,0,1+θb33,1+θb34,0,0,1+θb31,0,0,0,0,0,1+θb31},{1+θb33,1+θb34,0,0,0,1,-1-θb34,1+θb33,0,0,-1-θb32,0,0,0,0,0,-1-θb32},{1-θb34,0,0,0,-1,1,0,0,1+θb33,0,1+θb34,0,0,0,0,0,1-θb34},{0,-1+θb33,0,0,-1,-1,0,0,0,1+θb34,0,0,0,0,0,0,-1+θb33},{1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0},{0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0},{1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},{0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}},{1,2},{1,2},{1,2},{3,4,5,6,7,8,9,10,11},{1,2},{3,4}}/.{θb311,θb321/2,θb333/2,θb341};systemcheck[system3]
Out[3]=
True
In[4]:=
cpsystem=
[{system1,system2,system3}]
 | systemofsystems |
Out[4]=
{x11,x12,x13,x14,x15,x21,x22,x23,x24,x31,x32,x33,x34,x35,x36},{u11,u12,u21,u31,u32,wg1,wg2,wg3,wg4,wg5,wg6},{y11,y12,z11,z12,y21,z21,y31,y32,z31,z32},{0,1,0,1,0,0,0,0,0,1,-1,0,0,0,0,2,1,0,0,0,0,0,0,1,-1,1},{0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},{0,-2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},{-1,0,0,-2,1,0,0,0,0,1,1,0,0,0,0,-1,-1,0,0,0,0,0,0,1,1,1},0,0,0,-,-1,0,0,0,0,1,-1,0,0,0,0,0,0,,0,0,0,0,0,1,-1,1,{0,0,0,0,0,-1,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1},1,0,0,,0,-1,0,1,0,0,0,0,0,0,0,-,,3,0,0,1,,0,0,0,3,-,0,0,1,0,-,0,0,1,0,0,0,0,0,0,-,-,3,-,1,-,1,0,0,0,3,1,0,0,,0,,0,0,0,0,0,0,0,0,0,-,,1,1,,1,,0,0,0,-1,0,0,0,0,0,0,0,0,0,2,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,,0,0,0,0,0,0,0,0,0,2,-,0,1,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,2,0,0,0,,0,0,0,1,0,0,0,0,,2,0,0,2,0,0,2,0,0,0,0,0,-,0,0,0,,2,0,0,0,1,0,0,0,-2,,0,0,-,0,0,-,0,0,0,0,0,2,0,0,0,0,0,0,0,-1,1,,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,,0,0,-1,-1,0,2,0,0,0,0,0,0,0,0,,{1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,1,0,0,0,0,0},{0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,-1,1,0,0,0,0,1,0,0,0,0},{1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0},{0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,-1,1,0,0,0,0,0,0,0,0,0},{0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0},{0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},{0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0},{0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0},{0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},{0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},{1,2,3,4,5},{1,2,5,7,8},{1,2,3,4,5},{6,7,8,9,10,11},{1,2,5,7,8},{3,4,6,9,10}
1
2
1
6
3
2
1
2
5
2
3
2
3
2
3
2
5
2
1
2
3
2
3
2
3
2
3
2
1
2
5
2
3
2
3
2
5
2
1
2
1
2
5
2
3
2
5
2
5
2
3
2
3
2
5
2
1
2
1
2
In[5]:=
systemcheck[cpsystem]
Out[5]=
True
 |
|
""