if 0 %%Figure 2_b-c
    clear all;close all;
    L = load('DRD(no Mg2+).txt');
    A = L(:,1);
    B = L(:,2);
    L1 = L(L(:,1)<=10,:);
    L2 = L(10<=L(:,1)&L(:,1)<=20,:);
    L3 = L(L(:,1)>=20,:);
    A1 = L1(:,1);
    B1 = L1(:,2);
    A2 = L2(:,1);
    B2 = L2(:,2);
    A3 = L3(:,1);
    B3 = L3(:,2);
    figure('name', 'xhist', 'color', 'white');
    subplot(2,3,1);
    bin =0:2.3:40;
    [c, ~]= hist(A, bin);     pro_A  = c./sum(c);
    bar(bin, pro_A,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','w', 'linewidth', 1.5);
    hold on;
    f = fit(bin.',pro_A.','gauss3')
    g2x2 = 0:0.1:40;
    g2y12 =  f.a1.*exp(-((g2x2-f.b1)./f.c1).^2);
    g2y22 =  f.a2.*exp(-((g2x2-f.b2)./f.c2).^2);
    g2y23 =  f.a3.*exp(-((g2x2-f.b3)./f.c3).^2);
    plot(g2x2, g2y12,'color', [255/256 167/256 18/256],'linewidth', 1)
    plot(g2x2, g2y22, 'color', [38/256 128/256 40/256],'linewidth', 1)
    plot(g2x2, g2y23, 'color', [193/256 39/256 45/256],'linewidth', 1)
    g1=fill(g2x2, g2y12,[255/256 167/256 18/256],'FaceAlpha',0.6,'edgealpha',0);
    g2=fill(g2x2, g2y22,[38/256 128/256 40/256],'FaceAlpha',0.6,'edgealpha',0);
    g3=fill(g2x2, g2y23,[193/256 39/256 45/256],'FaceAlpha',0.6,'edgealpha',0);
    [cfun,goodness]=fit(bin.',pro_A.','gauss3');
    h = plot(f,'k');
    set(h, 'linewidth', 1.5);
    xlabel('Extension(nm)', 'fontsize', 20)
    ylabel('Probability', 'fontsize', 20)
    box off;
    set(gca, 'xlim', [0 40], 'fontsize', 18, 'linewidth', 1)
    legend off
    axis square
    subplot(2,3,4);
    bin =0:7:70;
    [c1, ~]= hist(B1, bin);     pro_B1  = c1./sum(c1);
    bar(bin, pro_B1,1,'EdgeColor',[255/256 167/256 18/256],'facecolor','white', 'linewidth', 1.5);
    hold on;
    f1 = fit(bin.',pro_B1.','gauss1');
    h=plot(f1);
    set(h,'color', [255/256 167/256 18/256],'linewidth', 1.5)
    box off;
    set(gca, 'xlim', [0 70],'ylim', [0 0.3], 'fontsize', 18, 'linewidth', 1,'xtick',[20 50]);
    axis square
    subplot(2,3,5);
    bin =0:4.8:65;
    [c2, ~]= hist(B2, bin);     pro_B2  = c2./sum(c2);
    bar(bin, pro_B2,1,'EdgeColor',[38/256 128/256 40/256],'facecolor','white', 'linewidth', 1.5);
    hold on;
    f2 = fit(bin.',pro_B2.','gauss2');
    h=plot(f2);
    g2y12 =  f2.a1.*exp(-((g2x2-f2.b1)./f2.c1).^2);
    g2y22 =  f2.a2.*exp(-((g2x2-f2.b2)./f2.c2).^2);
    plot(g2x2, g2y12,'color', [38/256 128/256 40/256],'linewidth', 1)
    plot(g2x2, g2y22, 'color', [38/256 128/256 40/256],'linewidth', 1)
    set(h,'color', [38/256 128/256 40/256],'linewidth', 1.5)
    box off;
    set(gca, 'xlim', [0 70], 'ylim', [0 0.2], 'fontsize', 18, 'linewidth', 1,'xtick',[20 50])
    axis square
    subplot(2,3,6);
    bin =0:5.9:65;
    [c3, ~]= hist(B3, bin);     pro_B3  = c3./sum(c3);
    bar(bin, pro_B3,1,'EdgeColor',[193/256 39/256 45/256],'facecolor','white', 'linewidth', 1.5);
    hold on;
    f3 = fit(bin.',pro_B3.','gauss2');
    h=plot(f3);
    g2y12 =  f3.a1.*exp(-((g2x2-f3.b1)./f3.c1).^2);
    g2y22 =  f3.a2.*exp(-((g2x2-f3.b2)./f3.c2).^2);
    plot(g2x2, g2y12,'color', [193/256 39/256 45/256],'linewidth', 1)
    plot(g2x2, g2y22, 'color', [193/256 39/256 45/256],'linewidth', 1)
    set(h,'color', [193/256 39/256 45/256],'linewidth', 1.5)
    box off;
    set(gca, 'xlim', [0 70], 'ylim', [0 0.4], 'fontsize', 18, 'linewidth', 1,'xtick',[20 50])
    axis square
    W1=mean(A1.*B1);
    G1=W1./4.1;
    L2_1 = L2(L2(:,2)<=31.4,:);
    A2_1 = L2_1(:,1);
    B2_1 = L2_1(:,2);
    W2_1  =mean(A2_1.*B2_1);
    G2_1 = W2_1./4.1;
    L2_2 = L2(L2(:,2)>=31.4,:);
    A2_2 = L2_2(:,1);
    B2_2 = L2_2(:,2);
    W2_2 = mean(A2_2.*B2_2);
    G2_2 = W2_2./4.1;
    L3_1 = L3(L3(:,2)<=36,:);
    A3_1 = L3_1(:,1);
    B3_1 = L3_1(:,2);
    W3_1  =mean(A3_1.*B3_1);
    G3_1 = W3_1./4.1;
    L3_2 = L3(L3(:,2)>=36,:);
    A3_2 = L3_2(:,1);
    B3_2 = L3_2(:,2);
    W3_2 = mean(A3_2.*B3_2);
    G3_2 = W3_2./4.1;
    meandx = mean(A);
    stddx = std(A);
    C= 2.*stddx./sqrt(462);
    mean1 = mean(B1);
    std1 = std(B1);
    C1 = 2.*std1./sqrt(180);
    mean2 = mean(B2);
    std2 = std(B2);
    C2 = 2.*std2./sqrt(187);
    mean3 = mean(B3);
    std3 = std(B3);
    C3 = 2.*std3./sqrt(95);
end

if 0 %%Figure 3_b-c
    close all;clear all;
    L = load('DRD(Mg2+).txt');
    A = L(:,1);
    B = L(:,2);
    L1 = L(L(:,1)<=10,:);
    L2 = L(10<=L(:,1)&L(:,1)<=20,:);
    L3 = L(L(:,1)>=20,:);
    A1 = L1(:,1);
    B1 = L1(:,2);
    A2 = L2(:,1);
    B2 = L2(:,2);
    A3 = L3(:,1);
    B3 = L3(:,2);
    figure('name', 'xhist', 'color', 'white');
    clm = jet(2);
    subplot(2,3,1:2);
    bin =0:2.121:40;
    [c, ~]= hist(A, bin);     pro_A  = c./sum(c);
    bar(bin, pro_A,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','w', 'linewidth', 1.5);
    hold on;
    f = fit(bin.',pro_A.','gauss3')
    g2x2 = 0:0.1:40;
    g2y12 =  f.a1.*exp(-((g2x2-f.b1)./f.c1).^2);
    g2y22 =  f.a2.*exp(-((g2x2-f.b2)./f.c2).^2);
    g2y23 =  f.a3.*exp(-((g2x2-f.b3)./f.c3).^2);
    plot(g2x2, g2y12,'color', [255/256 167/256 18/256],'linewidth', 1)
    plot(g2x2, g2y22, 'color', [38/256 128/256 40/256],'linewidth', 1)
    plot(g2x2, g2y23, 'color', [193/256 39/256 45/256],'linewidth', 1)
    g1=fill(g2x2, g2y12,[255/256 167/256 18/256],'FaceAlpha',0.6,'edgealpha',0);
    g2=fill(g2x2, g2y22,[38/256 128/256 40/256],'FaceAlpha',0.6,'edgealpha',0);
    g3=fill(g2x2, g2y23,[193/256 39/256 45/256],'FaceAlpha',0.6,'edgealpha',0);
    [cfun,goodness]=fit(bin.',pro_A.','gauss3');
    h = plot(f,'k');
    set(h, 'linewidth', 1.5);
    xlabel('Extension(nm)', 'fontsize', 20)
    ylabel('Probability', 'fontsize', 20)
    box off;
    set(gca, 'xlim', [0 40], 'fontsize', 18, 'linewidth', 1)
    legend off
    axis  square
    subplot(2,3,4);
    bin =0:5.9:70;
    [c1, ~]= hist(B1, bin);     pro_B1  = c1./sum(c1);
    bar(bin, pro_B1,1,'EdgeColor',[255/256 167/256 18/256],'facecolor','white', 'linewidth', 1.5);
    hold on;
    f1 = fit(bin.',pro_B1.','gauss1');
    h=plot(f1);
    set(h,'color', [255/256 167/256 18/256],'linewidth', 1.5)
    legend off
    xlabel(' ', 'fontsize', 20)
    ylabel('Probability', 'fontsize', 20)
    box off;
    set(gca, 'xlim', [0 70], 'ylim', [0 0.3],'fontsize', 18, 'linewidth', 1,'xtick',[20 50])
    axis square
    subplot(2,3,5);
    bin =0:5.82:70;
    [c2, ~]= hist(B2, bin);     pro_B2  = c2./sum(c2);
    bar(bin, pro_B2,1,'EdgeColor',[38/256 128/256 40/256],'facecolor','white', 'linewidth', 1.5);
    hold on;
    f2 = fit(bin.',pro_B2.','gauss1');
    h=plot(f2);
    set(h,'color', [38/256 128/256 40/256],'linewidth', 1.5)
    legend off
    xlabel('Force(pN)', 'fontsize', 20)
    ylabel(' ', 'fontsize', 20)
    box off;
    set(gca, 'xlim', [0 70], 'ylim', [0 0.3], 'fontsize', 18, 'linewidth', 1,'xtick',[20 50])
    axis square
    subplot(2,3,6);
    bin =0:7.5:65;
    [c3, ~]= hist(B3, bin);     pro_B3  = c3./sum(c3);
    bar(bin, pro_B3,1,'EdgeColor',[193/256 39/256 45/256],'facecolor','white', 'linewidth', 1.5);
    hold on;
    f3 = fit(bin.',pro_B3.','gauss2');
    h=plot(f3);
    g2y12 =  f3.a1.*exp(-((g2x2-f3.b1)./f3.c1).^2);
    g2y22 =  f3.a2.*exp(-((g2x2-f3.b2)./f3.c2).^2);
    plot(g2x2, g2y12,'color', [193/256 39/256 45/256],'linewidth', 1)
    plot(g2x2, g2y22, 'color', [193/256 39/256 45/256],'linewidth', 1)
    set(h,'color', [193/256 39/256 45/256],'linewidth', 1.5)
    legend off
    xlabel(' ', 'fontsize', 20)
    ylabel(' ', 'fontsize', 20)
    box off;
    set(gca, 'xlim', [0 70], 'ylim', [0 0.3], 'fontsize', 18, 'linewidth', 1,'xtick',[20 50])
    axis square
    W1=mean(A1.*B1);
    G1=W1./4.1;
    W2 =mean(A2.*B2);
    G2 = W2./4.1;
    L3_1 = L3(L3(:,2)<=27,:);
    A3_1 = L3_1(:,1);
    B3_1 = L3_1(:,2);
    W3_1  =mean(A3_1.*B3_1);
    G3_1 = W3_1./4.1;
    L3_2 = L3(L3(:,2)>=27,:);
    A3_2 = L3_2(:,1);
    B3_2 = L3_2(:,2);
    W3_2 = mean(A3_2.*B3_2);
    G3_2 = W3_2./4.1;
    meandx = mean(A);
    stddx = std(A);
    C= 2.*stddx./sqrt(339);
    mean1 = mean(B1);
    std1 = std(B1);
    C1 = 2.*std1./sqrt(128);
    mean2 = mean(B2);
    std2 = std(B2);
    C2 = 2.*std2./sqrt(159);
    mean3 = mean(B3);
    std3 = std(B3);
    C3 = 2.*std3./sqrt(52);
end

if 0 %%Figure 4_b-c
    close all;clear all;
    L1 = load('Mg_Sc.txt');
    L = load('DRD12.txt');
    A = L1(:,1);
    B = L1(:,2);
    A1 = L(1:137,1);
    B1 = L(1:137,2);
    A2 = L(69:end,1);
    B2 = L(69:end,2);
    figure('name', 'xhist', 'color', 'white');
    clm = jet(2);
    subplot(2,3,1:2);
    bin =0:1.58:40;
    [c, ~]= hist(A, bin);     pro_A  = c./sum(c);
    bar(bin, pro_A,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','w', 'linewidth', 1.5);
    hold on;
    f = fit(bin.',pro_A.','gauss2')
    g2x2 = -3:0.1:40;
    g2y12 =  f.a1.*exp(-((g2x2-f.b1)./f.c1).^2);
    g2y22 =  f.a2.*exp(-((g2x2-f.b2)./f.c2).^2);
    plot(g2x2, g2y12,'color', [255/256 167/256 18/256],'linewidth', 1)
    plot(g2x2, g2y22, 'color', [38/256 128/256 40/256],'linewidth', 1)
    g1=fill(g2x2, g2y12,[255/256 167/256 18/256],'FaceAlpha',0.6,'edgealpha',0);
    g2=fill(g2x2, g2y22,[38/256 128/256 40/256],'FaceAlpha',0.6,'edgealpha',0);
    [cfun,goodness]=fit(bin.',pro_A.','gauss2');
    h = plot(f,'k');
    set(h, 'linewidth', 1.5);
    xlabel('Extension(nm)', 'fontsize', 20)
    ylabel('Probability', 'fontsize', 20)
    box off;
    set(gca, 'xlim', [0 30], 'fontsize', 18, 'linewidth', 1)
    legend off
    axis square
    subplot(2,3,4);
    bin =0:6.5:70;
    [c1, ~]= hist(B1, bin);     pro_B1  = c1./sum(c1);
    bar(bin, pro_B1,1,'EdgeColor',[255/256 167/256 18/256],'facecolor','white', 'linewidth', 1.5);
    hold on;
    f1 = fit(bin.',pro_B1.','gauss1');
    h=plot(f1);
    set(h,'color', [255/256 167/256 18/256],'linewidth', 1.5)
    legend off
    xlabel('Force (pN)', 'fontsize', 20)
    ylabel('Probability', 'fontsize', 20)
    box off;
    set(gca, 'xlim', [0 65], 'ylim', [0 0.25], 'fontsize', 18, 'linewidth', 1)
    axis square
    subplot(2,3,5);
    bin =0:5.4:70;
    [c2, ~]= hist(B2, bin);     pro_B2  = c2./sum(c2);
    bar(bin, pro_B2,1,'EdgeColor',[38/256 128/256 40/256],'facecolor','white', 'linewidth', 1.5);
    hold on;
    f2 = fit(bin.',pro_B2.','gauss1');
    h=plot(f2);
    set(h,'color', [38/256 128/256 40/256],'linewidth', 1.5)
    legend off
    xlabel('Force(pN)', 'fontsize', 20)
    ylabel('Probability', 'fontsize', 20)
    box off;
    set(gca, 'xlim', [0 65], 'ylim', [0 0.25], 'fontsize', 18, 'linewidth', 1)
    axis square
    W1=mean(A1.*B1);
    G1=W1./4.1;
    W2 =mean(A2.*B2);
    G2 = W2./4.1;
end

if 0 %%Figure 4_d-e
    close all;clear all£»
    L1 = load('DRD(noMg_Sc).txt');
    L = load('DRD12.txt');
    A = L1(:,1);
    B = L1(:,2);
    A1 = L(1:78,1);
    B1 = L(1:78,2);
    A2 = L(68:end,1);
    B2 = L(68:end,2);
    figure('name', 'xhist', 'color', 'white');
    clm = jet(2);
    subplot(2,2,1:2);
    bin =0:2.1:40;
    x=find(A>30);
    A(x)=[];
    [c, ~]= hist(A, bin);     pro_A  = c./sum(c);
    bar(bin, pro_A,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','w', 'linewidth', 1.5);
    hold on;
    f = fit(bin.',pro_A.','gauss2')
    g2x2 = 0:0.1:40;
    g2y12 =  f.a1.*exp(-((g2x2-f.b1)./f.c1).^2);
    g2y22 =  f.a2.*exp(-((g2x2-f.b2)./f.c2).^2);
    plot(g2x2, g2y12,'color', [255/256 167/256 18/256],'linewidth', 1)
    plot(g2x2, g2y22, 'color', [38/256 128/256 40/256],'linewidth', 1)
    g1=fill(g2x2, g2y12,[255/256 167/256 18/256],'FaceAlpha',0.6,'edgealpha',0);
    g2=fill(g2x2, g2y22,[38/256 128/256 40/256],'FaceAlpha',0.6,'edgealpha',0);
    [cfun,goodness]=fit(bin.',pro_A.','gauss2');
    h = plot(f,'k');
    set(h, 'linewidth', 1.5);
    xlabel('Extension(nm)', 'fontsize', 20)
    ylabel('Probability', 'fontsize', 20)
    box off;
    set(gca, 'xlim', [0 30], 'fontsize', 18, 'linewidth', 1)
    legend off
    axis square
    subplot(2,2,3);
    bin =0:5.55:70;
    [c1, ~]= hist(B1, bin);     pro_B1  = c1./sum(c1);
    bar(bin, pro_B1,1,'EdgeColor',[255/256 167/256 18/256],'facecolor','white', 'linewidth', 1.5);
    hold on;
    f1 = fit(bin.',pro_B1.','gauss1');
    h=plot(f1);
    set(h,'color', [255/256 167/256 18/256],'linewidth', 1.5)
    legend off
    xlabel('Force (pN)', 'fontsize', 20)
    ylabel('Probability', 'fontsize', 20)
    box off;
    set(gca, 'xlim', [0 65], 'fontsize', 18, 'linewidth', 1)
    ylim([0 0.3])
    axis square
    subplot(2,2,4);
    bin =0:5.09:70;
    [c2, ~]= hist(B2, bin);     pro_B2  = c2./sum(c2);
    bar(bin, pro_B2,1,'EdgeColor',[38/256 128/256 40/256],'facecolor','white', 'linewidth', 1.5);
    hold on;
    f2 = fit(bin.',pro_B2.','gauss2');
    h=plot(f2);
    g2x2 = 0:0.1:70;
    g2y12 =  f2.a1.*exp(-((g2x2-f2.b1)./f2.c1).^2);
    g2y22 =  f2.a2.*exp(-((g2x2-f2.b2)./f2.c2).^2);
    plot(g2x2, g2y12,'color', [38/256 128/256 40/256],'linewidth', 1)
    plot(g2x2, g2y22, 'color', [38/256 128/256 40/256],'linewidth', 1)
    set(h,'color', [38/256 128/256 40/256],'linewidth', 1.5)
    legend off
    box off;
    axis square
    xlabel('Force (pN)', 'fontsize', 20)
    ylabel('Probability', 'fontsize', 20)
    set(gca, 'xlim', [0 65], 'fontsize', 18, 'linewidth', 1)
    W1=mean(A1.*B1);
    G1=W1./4.1;
    L2 = [A2,B2];
    L2_1 = L2(L2(:,2)<=41,:);
    A2_1 = L2_1(:,1);
    B2_1 = L2_1(:,2);
    W2_1  =mean(A2_1.*B2_1);
    G2_1 = W2_1./4.1;
    L2_2 = L2(L2(:,2)>=41,:);
    A2_2 = L2_2(:,1);
    B2_2 = L2_2(:,2);
    W2_2 = mean(A2_2.*B2_2);
    G2_2 = W2_2./4.1;
    meandx = mean(A);
    stddx = std(A);
    C= 2.*stddx./sqrt(133);
    mean1 = mean(B1);
    std1 = std(B1);
    C1 = 2.*std1./sqrt(78);
    mean2 = mean(B2);
    std2 = std(B2);
    C2 = 2.*std2./sqrt(55);
end

if 0 %%Figure S3
    clear all;close all;
    L1 = load('mgrmsdred.xvg');
    A1 = L1(:,1);
    A1 = A1./1000;
    B1 = L1(:,2);
    L2 = load('mgrmsdyellow.xvg');
    A2 = L2(:,1);
    A2 = A2./1000;
    B2 = L2(:,2);
    L3 = load('noMGrmsd.xvg');
    A3 = L3(:,1);
    A3 = A3./1000;
    B3 = L3(:,2);
    figure(1)
    plot(A1,B1);
    hold on;
    plot(A2,B2);
    hold on;
    plot(A3,B3);
    xlabel('Time (ns)', 'fontsize', 20)
    ylabel('RMSD (nm)', 'fontsize', 20)
    set(gca, 'fontsize', 18, 'linewidth', 1)
    set(gcf, 'color', 'white')
    box on;
end

if 0 %%Figure S6_b-c
    close all; %clear all£»
    L1 = load('2_noMg.txt');
    L = load('F_2_noMg.txt');
    A = L1(:,1);
    B = L1(:,2);
    A1 = L(1:52,1);
    B1 = L(1:52,2);
    A2 = L(53:end,1);
    B2 = L(53:end,2);
    figure('name', 'xhist', 'color', 'white');
    clm = jet(2);
    subplot(2,3,1);
    bin =0:1.62:40;
    [c, ~]= hist(A, bin);     pro_A  = c./sum(c);
    bar(bin, pro_A,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','w', 'linewidth', 1.5);
    hold on;
    startpoint=[0.1 6 10 0.1 11 15];
    f = fit(bin.',pro_A.','gauss2','startpoint',startpoint)
    g2x2 = -5:0.1:40;
    g2y12 =  f.a1.*exp(-((g2x2-f.b1)./f.c1).^2);
    g2y22 =  f.a2.*exp(-((g2x2-f.b2)./f.c2).^2);
    plot(g2x2, g2y22, 'color', [2/256 126/256 250/256],'linewidth', 1)
    plot(g2x2, g2y12, 'color', [241/256 90/256 36/256], 'linewidth', 1)
    g1=fill(g2x2, g2y22,[2/256 126/256 250/256],'FaceAlpha',0.7,'edgealpha',0);
    g1=fill(g2x2, g2y12,[241/256 90/256 36/256],'FaceAlpha',0.7,'edgealpha',0);
    h = plot(f,'k');
    set(h, 'linewidth', 1.5);
    xlabel('Changes in extension (nm)', 'fontsize', 12)
    ylabel('Probability', 'fontsize', 12)
    box off;
    set(gca, 'xlim', [0 30])
    set(gca, 'fontsize', 10, 'linewidth', 1)
    legend off
    axis square
    subplot(2,3,2);
    L2 = L1(L1(:,1)<=13,:);
    n = length(L2);
    random = randperm(n);
    data = [random', L2];
    a1=data(:,1);
    [a1,pos]=sort(a1);
    dx1=data(pos,2);
    F1=data(pos,3);
    B1=F1(1:50,:);
    bin =0:4:60;
    [c1, ~]= hist(B1, bin);     pro_B1  = c1./sum(c1);
    bar(bin, pro_B1,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','white', 'linewidth', 1.5);
    hold on;
    mdl = fit(bin',pro_B1','gauss2')
    h=plot(mdl,'m-');
    legend off
    set(h, 'linewidth', 1.5,'color', [241/256 90/256 36/256]);
    xlabel('Force (pN)', 'fontsize', 12);
    ylabel(' ', 'fontsize', 12);
    box off;
    set(gca, 'xlim', [0 65], 'fontsize',10, 'linewidth', 1);
    axis square
    subplot(2,3,3);
    B3=F1(51:end,:);
    L3 = L1(L1(:,1)>=13,:);
    B4 = L3(:,2);
    B2 = [B3;B4];
    B2 = B2(:);
    bin =0:4:60;
    [c2, ~]= hist(B2, bin);     pro_B2  = c2./sum(c2);
    bar(bin, pro_B2,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','white', 'linewidth', 1.5);
    hold on;
    mdl = fit(bin',pro_B2','gauss2')
    h=plot(mdl,'b-');
    legend off
    set(h, 'linewidth', 1.5,'color', [2/256 126/256 250/256]);
    xlabel('Force (pN)', 'fontsize', 12)
    ylabel('Probability', 'fontsize', 12)
    box off;
    set(gca, 'xlim', [0 65], 'fontsize', 10, 'linewidth', 1)
    axis square
    meandx = mean(A);
    stddx = std(A);
    C= 2.*stddx./sqrt(88);
    mean1 = mean(B1);
    std1 = std(B1);
    C1 = 2.*std1./sqrt(52);
    mean2 = mean(B2);
    std2 = std(B2);
    C2 = 2.*std2./sqrt(36);
end

if 0 %%Figure S6_d-e
    close all; clear all;
    L1 = load('2_Mg.txt');
    A = L1(:,1);
    B = L1(:,2);
    L2 = L1(L1(:,1)<=15,:);
    L3 = L1(L1(:,1)>=15,:);
    A(A>20)=[] ;
    A1 = L2(:,1);
    B1 = L2(:,2);
    A2 = L3(:,1);
    B2 = L3(:,2);
    figure('name', 'xhist', 'color', 'white');
    clm = jet(2);
    subplot(2,3,1);
    bin =0:2.5:40;
    [c, ~]= hist(A, bin);     pro_A  = c./sum(c);
    bar(bin, pro_A,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','w', 'linewidth', 1.5);
    hold on;
    startpoint=[0.1 8 5 0.05 10 10];
    f = fit(bin.',pro_A.','gauss2','startpoint',startpoint)
    g2x2 = -5:0.1:40;
    g2y12 =  f.a1.*exp(-((g2x2-f.b1)./f.c1).^2);
    g2y22 =  f.a2.*exp(-((g2x2-f.b2)./f.c2).^2);
    plot(g2x2, g2y12, 'color', [241/256 90/256 36/256],'linewidth', 1)
    plot(g2x2, g2y22, 'color', [2/256 126/256 250/256], 'linewidth', 1)
    g1=fill(g2x2, g2y12,[241/256 90/256 36/256],'FaceAlpha',0.7,'edgealpha',0);
    g1=fill(g2x2, g2y22,[2/256 126/256 250/256],'FaceAlpha',0.7,'edgealpha',0);
    h = plot(f,'k');
    set(h, 'linewidth', 1.5)
    xlabel('Changes in extension (nm)', 'fontsize', 12)
    ylabel('Probability', 'fontsize', 12)
    box off;
    set(gca, 'xlim', [0 30])
    set(gca, 'fontsize', 10, 'linewidth', 1)
    legend off
    axis square
    subplot(2,3,2);
    bin =0:4.95:60;
    [c1, ~]= hist(B1, bin);     pro_B1  = c1./sum(c1);
    bar(bin, pro_B1,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','white', 'linewidth', 1.5);
    hold on;
    startPoints = [0.05 25 10 0.05 50 10];
    mdl = fit(bin',pro_B1','gauss2','startpoint',startPoints)
    h=plot(mdl,'m-');
    legend off
    set(h, 'linewidth', 1.5,'color', [241/256 90/256 36/256]);
    xlabel('Force (pN)', 'fontsize', 20)
    ylabel('Probability', 'fontsize', 20)
    box off;
    set(gca, 'xlim', [0 65], 'fontsize', 10, 'linewidth', 1)
    axis square
    subplot(2,3,3);
    bin =0:4.49:60;
    [c2, ~]= hist(B2, bin);     pro_B2  = c2./sum(c2);
    bar(bin, pro_B2,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','white', 'linewidth', 1.5);
    hold on;
    startPoints = [0.15 25 10 0.05 45 10];
    mdl = fit(bin',pro_B2','gauss2','startpoint',startPoints)
    h=plot(mdl,'b-');
    legend off
    set(h, 'linewidth', 1.5,'color',[2/256 126/256 250/256]);
    xlabel('Force (pN)', 'fontsize', 20);
    ylabel(' ', 'fontsize', 20);
    box off;
    set(gca, 'xlim', [0 65], 'fontsize',10, 'linewidth', 1);
    axis square
    meandx = mean(A);
    stddx = std(A);
    C= 2.*stddx./sqrt(141);
    mean1 = mean(B1);
    std1 = std(B1);
    C1 = 2.*std1./sqrt(111);
    mean2 = mean(B2);
    std2 = std(B2);
    C2 = 2.*std2./sqrt(30);
end

if 0 %%Figure S7_b-c
    clear all£»close all;
    L1 = load('mutant_noMg.txt');
    A = L1(:,1);
    B = L1(:,2);
    L2 = L1(L1(:,1)<=10,:);
    L3 = L1(L1(:,1)>=10,:);
    A1 = L2(:,1);
    B1 = L2(:,2);
    A2 = L3(:,1);
    B2 = L3(:,2);
    figure('name', 'xhist', 'color', 'white');
    clm = jet(2);
    subplot(2,3,1);
    bin =0:1.92:30;
    [c, ~]= hist(A, bin);     pro_A  = c./sum(c);
    bar(bin, pro_A,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','w', 'linewidth', 1.5);
    hold on;
    startpoint=[0.1 6 5 0.1 15 5];
    f = fit(bin.',pro_A.','gauss2','startpoint',startpoint)
    g2x2 = -5:0.1:30;
    g2y12 =  f.a1.*exp(-((g2x2-f.b1)./f.c1).^2);
    g2y22 =  f.a2.*exp(-((g2x2-f.b2)./f.c2).^2);
    plot(g2x2, g2y12, 'color', [255/256 167/256 18/256],'linewidth', 1)
    plot(g2x2, g2y22, 'color', [38/256 128/256 40/256], 'linewidth', 1)
    g1=fill(g2x2, g2y12,[255/256 167/256 18/256],'FaceAlpha',0.7,'edgealpha',0);
    g1=fill(g2x2, g2y22,[38/256 128/256 40/256],'FaceAlpha',0.7,'edgealpha',0);
    h = plot(f,'k');
    set(h, 'linewidth', 1)
    xlabel('Changes in extension (nm)', 'fontsize', 12)
    ylabel('Probability', 'fontsize', 12)
    box off;
    set(gca, 'xlim', [0 30])
    set(gca, 'fontsize', 10, 'linewidth', 1)
    legend off
    subplot(2,3,2);
    bin =0:5.3:60;
    [c1, ~]= hist(B1, bin);     pro_B1  = c1./sum(c1);
    bar(bin, pro_B1,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','white', 'linewidth', 1.5);
    hold on;
    mdl = fit(bin',pro_B1','gauss1')
    h=plot(mdl,'m-');
    legend off
    set(h, 'linewidth', 2,'color', [255/256 167/256 18/256]);
    xlabel('Force (pN)', 'fontsize', 20)
    ylabel('Probability', 'fontsize', 20)
    box off;
    set(gca, 'xlim', [0 65], 'fontsize', 10, 'linewidth', 1)
    set(gca,'xtick',[20 50]);
    axis square
    subplot(2,3,3);
    bin =0:6:60;
    [c2, ~]= hist(B2, bin);     pro_B2  = c2./sum(c2);
    bar(bin, pro_B2,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','white', 'linewidth', 1.5);
    hold on;
    mdl = fit(bin',pro_B2','gauss1')
    h=plot(mdl,'b-');
    legend off
    set(h, 'linewidth', 2,'color',[38/256 128/256 40/256]);
    xlabel('Force (pN)', 'fontsize', 20);
    ylabel(' ', 'fontsize', 20);
    box off;
    set(gca, 'xlim', [0 65], 'fontsize',10, 'linewidth', 1);
    set(gca,'xtick',[20 50]);
    axis square
    meandx = mean(A);
    stddx = std(A);
    C= 2.*stddx./sqrt(62);
    mean1 = mean(B1);
    std1 = std(B1);
    C1 = 2.*std1./sqrt(38);
    mean2 = mean(B2);
    std2 = std(B2);
    C2 = 2.*std2./sqrt(24);
end

if 0 %%Figure S7_d-e
    close all;clear all£»
    L1 = load('mutant_Mg.txt');
    LF = load('mutant_Mg_F.txt');
    A = L1(:,1);
    B = L1(:,2);
    L2 = LF(LF(:,1)<=6.3,:);
    L3 = LF(LF(:,1)>=6.3,:);
    A1 = L2(:,1);
    B1 = L2(:,2);
    A2 = L3(:,1);
    B2 = L3(:,2);
    figure('name', 'xhist', 'color', 'white');
    clm = jet(2);
    subplot(2,3,1);
    bin =0:1.6:30;
    [c, ~]= hist(A, bin);     pro_A  = c./sum(c);
    bar(bin, pro_A,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','w', 'linewidth', 1.5);
    hold on;
    startpoint=[0.1 6 5 0.1 15 5];
    f = fit(bin.',pro_A.','gauss2','startpoint',startpoint)
    g2x2 = -1:0.1:30;
    g2y12 =  f.a1.*exp(-((g2x2-f.b1)./f.c1).^2);
    g2y22 =  f.a2.*exp(-((g2x2-f.b2)./f.c2).^2);
    plot(g2x2, g2y12, 'color', [255/256 167/256 18/256],'linewidth', 1)
    plot(g2x2, g2y22, 'color', [38/256 128/256 40/256], 'linewidth', 1)
    g1=fill(g2x2, g2y12,[255/256 167/256 18/256],'FaceAlpha',0.7,'edgealpha',0);
    g1=fill(g2x2, g2y22,[38/256 128/256 40/256],'FaceAlpha',0.7,'edgealpha',0);
    h = plot(f,'k');
    set(h, 'linewidth', 1)
    xlabel('Changes in extension (nm)', 'fontsize', 12)
    ylabel('Probability', 'fontsize', 12)
    box off;
    set(gca, 'xlim', [0 30])
    set(gca, 'fontsize', 10, 'linewidth', 1)
    legend off
    subplot(2,3,2);
    bin =0:5.73:60;
    [c1, ~]= hist(B1, bin);     pro_B1  = c1./sum(c1);
    bar(bin, pro_B1,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','white', 'linewidth', 1.5);
    hold on;
    mdl = fit(bin',pro_B1','gauss1')
    h=plot(mdl,'m-');
    legend off
    set(h, 'linewidth', 2,'color', [255/256 167/256 18/256]);
    xlabel('Force (pN)', 'fontsize', 20)
    ylabel('Probability', 'fontsize', 20)
    box off;
    set(gca, 'xlim', [0 65], 'fontsize', 10, 'linewidth', 1)
    set(gca,'xtick',[20 50]);
    axis square
    subplot(2,3,3);
    bin =0:5.5:60;
    [c2, ~]= hist(B2, bin);     pro_B2  = c2./sum(c2);
    bar(bin, pro_B2,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','white', 'linewidth', 1.5);
    hold on;
    mdl = fit(bin',pro_B2','gauss1')
    h=plot(mdl,'b-');
    legend off
    set(h, 'linewidth', 2,'color',[38/256 128/256 40/256]);
    xlabel('Force (pN)', 'fontsize', 20);
    ylabel(' ', 'fontsize', 20);
    box off;
    set(gca, 'xlim', [0 65], 'fontsize',10, 'linewidth', 1);
    set(gca,'xtick',[20 50]);
    axis square
    meandx = mean(A);
    stddx = std(A);
    C= 2.*stddx./sqrt(58);
    mean1 = mean(B1);
    std1 = std(B1);
    C1 = 2.*std1./sqrt(25);
    mean2 = mean(B2);
    std2 = std(B2);
    C2 = 2.*std2./sqrt(24);
end

if 0 %%Figure S7_f-g
    close all;clear all£»
    L1 = load('mutant_noMg_S_allData.txt');
    A = L1(:,1);
    B = L1(:,2);
    L2 = L1(L1(:,1)<=8,:);
    L3 = L1(L1(:,1)>=8,:);
    A1 = L2(:,1);
    B1 = L2(:,2);
    A2 = L3(:,1);
    B2 = L3(:,2);
    figure('name', 'xhist', 'color', 'white');
    clm = jet(2);
    subplot(2,3,1);
    bin =0:1.35:30;
    [c, ~]= hist(A, bin);     pro_A  = c./sum(c);
    bar(bin, pro_A,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','w', 'linewidth', 1.5);
    hold on;
    startpoint=[0.1 8 5 0.05 12 5];
    f = fit(bin.',pro_A.','gauss2','startpoint',startpoint)
    g2x2 = 0:0.1:30;
    g2y12 =  f.a1.*exp(-((g2x2-f.b1)./f.c1).^2);
    g2y22 =  f.a2.*exp(-((g2x2-f.b2)./f.c2).^2);
    plot(g2x2, g2y12, 'color', [255/256 167/256 18/256],'linewidth', 1)
    plot(g2x2, g2y22, 'color', [38/256 128/256 40/256], 'linewidth', 1)
    g1=fill(g2x2, g2y12,[255/256 167/256 18/256],'FaceAlpha',0.7,'edgealpha',0);
    g1=fill(g2x2, g2y22,[38/256 128/256 40/256],'FaceAlpha',0.7,'edgealpha',0);
    h = plot(f,'k');
    set(h, 'linewidth', 1)
    xlabel('Changes in extension (nm)', 'fontsize', 12)
    ylabel('Probability', 'fontsize', 12)
    box off;
    set(gca, 'xlim', [0 30])
    set(gca, 'fontsize', 10, 'linewidth', 1)
    legend off
    axis square
    subplot(2,3,2);
    bin =0:5.99:60;
    [c1, ~]= hist(B1, bin);     pro_B1  = c1./sum(c1);
    bar(bin, pro_B1,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','white', 'linewidth', 1.5);
    hold on;
    startPoints = [0.05 30 10];
    mdl = fit(bin',pro_B1','gauss1','startpoint',startPoints)
    h=plot(mdl,'m-');
    legend off
    set(h, 'linewidth', 2,'color', [255/256 167/256 18/256]);
    xlabel('Force (pN)', 'fontsize', 20)
    ylabel('Probability', 'fontsize', 20)
    box off;
    set(gca, 'xlim', [0 65], 'fontsize', 10, 'linewidth', 1)
    set(gca,'xtick',[20 50]);
    axis square
    subplot(2,3,3);
    bin =0:5.9:60;
    [c2, ~]= hist(B2, bin);     pro_B2  = c2./sum(c2);
    bar(bin, pro_B2,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','white', 'linewidth', 1.5);
    hold on;
    startPoints = [0.05 50 10];
    mdl = fit(bin',pro_B2','gauss1','startpoint',startPoints)
    h=plot(mdl,'b-');
    legend off
    set(h, 'linewidth', 2,'color',[2/256 126/256 250/256]);
    xlabel('Force (pN)', 'fontsize', 20);
    ylabel(' ', 'fontsize', 20);
    box off;
    set(gca, 'xlim', [0 65], 'fontsize',10, 'linewidth', 1);
    set(gca,'xtick',[20 50]);
    axis square
    meandx = mean(A);
    stddx = std(A);
    C= 2.*stddx./sqrt(60);
    mean1 = mean(B1);
    std1 = std(B1);
    C1 = 2.*std1./sqrt(27);
    mean2 = mean(B2);
    std2 = std(B2);
    C2 = 2.*std2./sqrt(33);
end

if 0 %%Figure S7_h-i
    close all;clear all£»
    L1 = load('mutant_Mg_S.txt');
    A = L1(:,1);
    B = L1(:,2);
    L2 = L1(L1(:,1)<=6.5,:);
    L3 = L1(L1(:,1)>=6.5,:);
    A1 = L2(:,1);
    B1 = L2(:,2);
    A2 = L3(:,1);
    B2 = L3(:,2);
    figure('name', 'xhist', 'color', 'white');
    clm = jet(2);
    subplot(2,3,1);
    bin =0:1.5:30;
    [c, ~]= hist(A, bin);     pro_A  = c./sum(c);
    bar(bin, pro_A,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','w', 'linewidth', 1.5);
    hold on;
    startpoint=[0.1 8 5 0.05 12 5];
    f = fit(bin.',pro_A.','gauss2','startpoint',startpoint)
    g2x2 = -5:0.1:30;
    g2y12 =  f.a1.*exp(-((g2x2-f.b1)./f.c1).^2);
    g2y22 =  f.a2.*exp(-((g2x2-f.b2)./f.c2).^2);
    plot(g2x2, g2y12, 'color', [255/256 167/256 18/256],'linewidth', 1)
    plot(g2x2, g2y22, 'color', [38/256 128/256 40/256], 'linewidth', 1)
    g1=fill(g2x2, g2y12,[255/256 167/256 18/256],'FaceAlpha',0.7,'edgealpha',0);
    g1=fill(g2x2, g2y22,[38/256 128/256 40/256],'FaceAlpha',0.7,'edgealpha',0);
    h = plot(f,'k');
    set(h, 'linewidth', 1)
    xlabel('Changes in extension (nm)', 'fontsize', 12)
    ylabel('Probability', 'fontsize', 12)
    box off;
    set(gca, 'xlim', [0 30])
    set(gca, 'fontsize', 10, 'linewidth', 1)
    legend off
    axis square
    subplot(2,3,2);
    bin =0:4.9:60;
    [c1, ~]= hist(B1, bin);     pro_B1  = c1./sum(c1);
    bar(bin, pro_B1,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','white', 'linewidth', 1.5);
    hold on;
    startPoints = [0.05 30 10];
    mdl = fit(bin',pro_B1','gauss1','startpoint',startPoints)
    h=plot(mdl,'m-');
    legend off
    set(h, 'linewidth', 2,'color', [255/256 167/256 18/256]);
    xlabel('Force (pN)', 'fontsize', 20)
    ylabel('Probability', 'fontsize', 20)
    box off;
    set(gca, 'xlim', [0 65], 'fontsize', 10, 'linewidth', 1)
    set(gca,'xtick',[20 50]);
    axis square
    subplot(2,3,3);
    bin =0:6.4:60;
    [c2, ~]= hist(B2, bin);     pro_B2  = c2./sum(c2);
    bar(bin, pro_B2,1,'EdgeColor',[0.41176 0.41176 0.41176],'facecolor','white', 'linewidth', 1.5);
    hold on;
    startPoints = [0.05 50 10];
    mdl = fit(bin',pro_B2','gauss1','startpoint',startPoints)
    h=plot(mdl,'b-');
    legend off
    set(h, 'linewidth', 2,'color',[2/256 126/256 250/256]);
    xlabel('Force (pN)', 'fontsize', 20);
    ylabel(' ', 'fontsize', 20);
    box off;
    set(gca, 'xlim', [0 65], 'fontsize',10, 'linewidth', 1);
    set(gca,'xtick',[20 50]);
    axis square
    meandx = mean(A);
    stddx = std(A);
    C= 2.*stddx./sqrt(50);
    mean1 = mean(B1);
    std1 = std(B1);
    C1 = 2.*std1./sqrt(29);
    mean2 = mean(B2);
    std2 = std(B2);
    C2 = 2.*std2./sqrt(21);
end