# Team:Carnegie Mellon/Mod-Matlab

(Difference between revisions)
 Revision as of 16:02, 29 September 2012 (view source)← Older edit Revision as of 16:09, 29 September 2012 (view source)Newer edit → Line 370: Line 370: total mRNA concentrations. total mRNA concentrations.

+ + + ~/Desktop/MATLAB/ProteinFunctions.m.html + + + + + + + +
+                                                                   1 function [ Pt ] = ProteinFunctions( matrix)
+                                                                   2 %UNTITLED Summary of this function goes here
+                                                                   3 %   Detailed explanation goes here
+                                                                   4
+                                                                   5 controlc = matrix(end,:); %concentration and fluorescence of the control
+                                                                   6 controlconc = controlc(1); %concentration of dye for the control
+                                                                   7 controldat = controlc(1:end); %fluorescence of the control
+                                                                   8 maxc = max(controldat);
+                                                                   9 concs = matrix(:,1); %concentrations of the dye in the wells
+                                                                  10 concs1 = concs(1:(end - 2));
+                                                                  11 controlmax = maxc;
+                                                                  12
+                                                                  13 Pf = [];
+                                                                  14
+                                                                  15 for i = 2:size(matrix, 2);
+                                                                  16     fluordat = matrix(:,i); %fluoroscence data at some time point
+                                                                  17     fluordat1 = fluordat(1:(end - 2));
+                                                                  18     s = fitoptions('Method', 'NonlinearLeastSquares', 'Startpoint', [fluordat1(end), 1/(controlconc)]);
+                                                                  19     g = fittype('a * (1 - exp(b * (-x)))', 'coefficients', {'a', 'b'}, 'options', s);
+                                                                  20     h = fit(concs1, fluordat1, g);
+                                                                  21     %figure(i);
+                                                                  22     %plot(h, concs1, fluordat1)
+                                                                  23     factorScale = h(1) / controlmax; %scaling factor from in vitro to in vivo
+                                                                  24     for j = 1:size(concs1);
+                                                                  25         if abs(h(concs1(j)) - h(1)) <= (.2 * h(1));
+                                                                  26             Pf(i - 1) = concs1(j) * factorScale;
+                                                                  27             break
+                                                                  28         end
+                                                                  29     end
+                                                                  30
+                                                                  31 end
+                                                                  32 time = matrix(1,:);
+                                                                  33 fluortime = time(2:size(matrix, 2));
+                                                                  34
+                                                                  35 Pt = FluoroLP (Pf, fluortime);
+                                                                  36
+                                                                  37 end
+                                                                  38
+

FluoroLR.m FluoroLR.m

# Inputs

The inputs to the model are the measurement tables of concentration of dye vs. time. Optional inputs to the model include an in vitro measurement of saturation of the dye, and measurements of the fluorescence of the dye with mRNA and protein synthesis turned off. The first optional measurement can be used to compare the in vitro fluorescence saturation levels with the in vivo fluorescence saturation levels in order to give a scaling factor for the all the measurements in the input. Estimations can be used in place of these to simplify the number of inputs. The second optional measurement can be used to determine the degradation rates of mRNA and protein.

# Walkthrough

Fluoro2.m

This function is the function that is called to run the entire program. In addition, it takes the mRNA titration tables (modeldata) and converts it into fluorescent mRNA concentrations. It then passes the degradation data to the degradation functions, Degradation.m and DegradationP.m to return alpha2 and beta2, the degradation coefficients.

~/Desktop/MATLAB/Fluoro2.m.html
 1 function [ PoPSans ] = Fluoro2( matrix, modeldata )
2 %Fluoro 2: This function takes in a matrix of titrations and determines
3 %both the possible percentage for bound mRNA as well as the actual
4 %fluorescent mRNA concentration from fluorescent input values.
5
6 DNA = 1 * 10^(-9);
7
8 controlc = matrix(end,:); %concentration and fluorescence of the control
9 controlconc = controlc(1); %concentration of dye for the control
10 controldat = controlc(1:end); %fluorescence of the control
11 maxc = max(controldat);
12 concs = matrix(:,1); %concentrations of the dye in the wells
13 concs1 = concs(1:(end - 2));
14 controlmax = maxc;
15
16 Rf = [];
17
18 for i = 2:size(matrix, 2);
19     fluordat = matrix(:,i); %fluoroscence data at some time point
20     fluordat1 = fluordat(1:(end - 2));
21     s = fitoptions('Method', 'NonlinearLeastSquares', 'Startpoint', [fluordat1(end), 1/(controlconc)]);
22     g = fittype('a * (1 - exp(b * (-x)))', 'coefficients', {'a', 'b'}, 'options', s);
23     h = fit(concs1, fluordat1, g);
24     %figure(i);
25     %plot(h, concs1, fluordat1)
26     factorScale = h(1) / controlmax; %scaling factor from in vitro to in vivo
27     for j = 1:size(concs1);
28         if abs(h(concs1(j)) - h(1)) <= (.2 * h(1));
29             Rf(i - 1) = concs1(j) * factorScale;
30             break
31         end
32     end
33
34 end
35 time = matrix(1,:);
36 fluortime = time(2:size(matrix, 2));
37
38 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
39 %Section for Transcriptional Efficiency      %
40 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
41
42 Rt = FluoroLR(Rf, fluortime);
43
44
46
47 ETF = mRNAexpress(fluortime, DNA, Rt, alpha2);
48 %ETF = mean(ETF);
49
50 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51 %Section for Translational Efficiency        %
52 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53
54 Pt = ProteinFunctions(matrix);
55
57
58 Tl = proteinexpress(DNA, Pt, ETF, alpha2, beta2);
59
60 %Tl = proteinexpress(DNA, 1.6, ETF, alpha2, beta2)
61
62 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
63 %Section for Polymerase per Second           %
64 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
65
66 PoPSans = PoPS(alpha2, beta2, Pt, Tl);
67
68 end


This function takes in mRNA fluorescence data with mRNA synthesis turned off. This makes determining degradation rates easier, as all the change (as we will define degradation) in the mRNA concentration will be due to degradation. The function takes the data and fits a curve to the data, in the process calculating the degradation rate.

 1 function [ alpha2 ] = Degradation ( modeldata )
2 dRi = modeldata(:,3);
3 time = modeldata(:,1);
4 %dRi(length(dRi),:) = [];
5 C = max(dRi);
6 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7 %Differential Equation: dRi./dt = alpha * Rt%
8 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9
10 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11 %dRi is the fluorescence measurements of RNA during degradation only%
12 %alpha is the desired result, so we solve the diff eq               %
13 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14
15 for i = 1:(length(dRi));
16     if dRi(i) ~= 0 && time(i) ~= 0
17         alpha(i) = log(dRi(i) ./ C) ./ time(i);
18     else
19         alpha(i) = log(dRi(2) ./ C) ./ time(2);
20     end
21 end
22 alpha;
23 alpha2 = -mean(alpha);
24 %Rdegra = Rt * alpha2;
25
26 end


This function has a similar role to Degradation.m. This function takes in protein fluorescence data with protein synthesis turned off. This function, similarly to Degradation.m, takes the data and fits a curve to the data.

 1 function [ beta2 ] = DegradationP ( modeldata )
3
4 dPi = modeldata(:,6);
5 timeP = modeldata(:,1);
6 %dRi ./ dt = alpha * Ri, solution: R = Ce^(alpha t) ./ alpha
7 C1 = max(dPi);
8 %ln(Ri ./ C) ./ t = alpha
9 for i = 1:length(dPi)
10     if dPi(i) ~= 0 && timeP(i) ~= 0
11         beta(i) = log(dPi(i) ./ C1) ./ timeP(i);
12     else
13         beta(i) = log(dPi(2) ./ C1) ./ timeP(2);
14     end
15 end
16
17 beta2 = -mean(beta);
18 %Pdegra = beta2 * Pt;
19 end


The degradation functions return alpha2 and beta2 to Fluoro2.m. Fluoro2.m then calls ProteinFunctions.m to convert the protein titration data to fluorescent protein concentrations.

ProteinFunctions.m

This function does the same thing as Fluoro2.m with the mRNA titration data. It returns fluorescent protein concentrations over time.

Fluoro2.m takes the fluorescent protein and fluorescent mRNA concentrations and passes them to FluoroLR.m and FluoroLP.m to convert to total protein and total mRNA concentrations.

~/Desktop/MATLAB/ProteinFunctions.m.html
 1 function [ Pt ] = ProteinFunctions( matrix)
2 %UNTITLED Summary of this function goes here
3 %   Detailed explanation goes here
4
5 controlc = matrix(end,:); %concentration and fluorescence of the control
6 controlconc = controlc(1); %concentration of dye for the control
7 controldat = controlc(1:end); %fluorescence of the control
8 maxc = max(controldat);
9 concs = matrix(:,1); %concentrations of the dye in the wells
10 concs1 = concs(1:(end - 2));
11 controlmax = maxc;
12
13 Pf = [];
14
15 for i = 2:size(matrix, 2);
16     fluordat = matrix(:,i); %fluoroscence data at some time point
17     fluordat1 = fluordat(1:(end - 2));
18     s = fitoptions('Method', 'NonlinearLeastSquares', 'Startpoint', [fluordat1(end), 1/(controlconc)]);
19     g = fittype('a * (1 - exp(b * (-x)))', 'coefficients', {'a', 'b'}, 'options', s);
20     h = fit(concs1, fluordat1, g);
21     %figure(i);
22     %plot(h, concs1, fluordat1)
23     factorScale = h(1) / controlmax; %scaling factor from in vitro to in vivo
24     for j = 1:size(concs1);
25         if abs(h(concs1(j)) - h(1)) <= (.2 * h(1));
26             Pf(i - 1) = concs1(j) * factorScale;
27             break
28         end
29     end
30
31 end
32 time = matrix(1,:);
33 fluortime = time(2:size(matrix, 2));
34
35 Pt = FluoroLP (Pf, fluortime);
36
37 end
38


FluoroLR.m

This function takes in fluorescent mRNA concentrations and converts it to mRNA concentrations using first-order chemical reactions. One dye molecule will bond to one mRNA molecule, creating an mRNA-dye complex. This leads to a rather simple conversion using the known dye concentration.

$$K_{D_R} = \frac{[R_f]}{([R]_0 - [R_f])([D_R]_0 - [R_f])}$$

Where KDR is the dissociation constant, $[Rf]$ is the fluorescent mRNA concentration, $[R]$ is the mRNA concentration, and $[D_R]$ is the dye concentration.

FluoroLP.m

This function has a similar role to FluoroLR.m, except using fluorescent protein concentrations and converting it to protein concentration.

mRNAexpress.m

Fluoro2.m then takes the total mRNA concentrations passed by FluoroLR.m and passes it to mRNAexpress.m, which calculates the transcriptional efficiency. This is done via the differential equation

$$\frac{d[R]}{dt} = Ts \cdot [D] - \alpha \cdot [R]$$

to which the solution is

$$Ts = \frac{[R] \cdot \alpha}{[D] \cdot (1 - e^{-\alpha \cdot t})}$$

where $[R]$ is mRNA concentration, $Ts$ is transcriptional efficiency, $[D]$ is DNA concentration, and $\alpha$ is the mRNA degradation coefficient.

proteinexpress.m

Fluoro2.m takes the transcriptional efficiency from mRNAexpress.m, total protein concentrations from FluoroLP.m, and alpha2 and beta2 from Degradation.m and DegradationP.m, and passes them to proteinexpress.m. proteinexpress.m computes the translational efficiency using the differential equation

$$\frac{d[P]}{dt} = [R] \cdot Tl - \beta \cdot [P]$$

to which the solution is

$$Tl = \frac{[P]}{\frac{Ts \cdot [D]}{(\alpha \cdot \beta)} \cdot (1 - e^{-\beta \cdot t}) - \frac{Ts \cdot [D]}{\alpha \cdot (-\alpha + \beta)} \cdot (e^{-\alpha \cdot t} - e^{-\beta \cdot t})} \label{eq:Tl}$$

where Tl is translational efficiency, beta is the protein degradation coefficient, and [P] is the protein concentration.

PoPS.m

Fluoro2.m passes to the final function alpha2 and beta2 from Degradation.m and DegradationP.m, total protein concentration from FluoroLP.m, and translational efficiency from proteinexpress.m. PoPS.m calculates the approximate polymerase per second using the equation

$$PoPS = \frac{\alpha \cdot \beta \cdot [P]}{n \cdot Tl} \label{eq:PoPS}$$

where n is the approximate number of the promoters of interest in a cell (i.e. plasmid copy).

# Outputs

The model outputs polymerase per second, although transcriptional efficiency and translational efficiency are also important factors in the model. Derivations of these equations can be found on the derivations page.