how to evaulate the value of R(z) for different values of z=0 to 1 with an interval of 0.1 and print ten values  in one column

R(z):= 1-cos^2*(Pi*z);
 

Greetings, any one help  me to remove the error  in plots display,here is the codes 

i want 2 rows and 2 columns graphs with 9 lines in each graphs. 

i am attaching the maple questions also  like this i want 

 https://www.mapleprimes.com/questions/224443-How-Do-I-Get-A-Legend-Only-Three-Curves--In-Maple

https://www.mapleprimes.com/questions/225078-How-To-Remove-Error-In-Plot-Display

restart;
 h:=z->1-(delta2/2)*(1 + cos(2*(Pi/L1)*(z - d1 - L1))):
 K1:=((4/h(z)^4)-(sin(alpha)/Gamma2)-h(z)^2+Nb*h(z)^4):
 lambda:=unapply(Int(K1,z=0..1), Gamma2):
 L1:=0.2:
 
 alpha:=Pi/6:
 with(plots):
 display
  ( Vector[row]
    ([seq [ seq
        ( plot
          ( [ seq
              ( eval(lambda(Gamma2), Nb=j),
                j in [0.1,0.2,0.3]
              )
           d1 in [0.1,0.2,0.5])] ],
            delta2=0.02..0.1,
            legend=[Nb=0.1,Nb=0.2,Nb=0.3],
            labels=[typeset(`δ1`), typeset(conjugate(`Δp`))],
            title=typeset("Effect of ", ''alpha'', " when ", Gamma,"2=", Gamma2)
          ),
          Gamma2 in [10,20,30,40]
        )
      ]
    )
  );

Greetings,

help 

i want to add text with greek letters and english letters on top of the graph with out using title in plot

restart:
with(plots):
p1:=plot(sin(2*x), x = -Pi .. Pi):
p2:= textplot(effect of alpha =3,gamma=5 in the flow):
display(p1,p2):
 

hai, 
greetings,

I require help to plot graphs by changing differernt parameters. i am enclosing my codes and sample codes,

 my_codes.mw

nanofluid_sample.mw

Thanks in advance.

Hai any one help me to plot the curves and remove the errors  i am attaching the codes and  sample graph. thanks in advanced.
 

test.mw