I have a set of functions I have plotted them in one single figure. The following are my concerns. 1. I tried to fix the legends for this figure, but unable to do this 2. Is there any way that I can plot these functions in black with different styles. I tried using the absolute dashing function to do this, and I got what I was looking for, but the problem is I need to do this separately for all the functions and later use the show function to merge them. Are there any ways that I can automate this?
fixedfree = Table[Sin[(2*i - 1)/(2)*π*x2], {i, 1, bmc}]
barmodes = Flatten[{fixedfree}];
p9 = Plot[barmodes, {x2, 0, 1},
PlotLegends -> {"Mode 1", "Mode 2", "Mode 3", "Mode 4", "Mode 5"}]