WOLFRAM NOTEBOOK

A Selection and Analysis Tool for Fluorescence Recovery after Photobleaching (FRAP) Region of Interest (ROI)

Manipulate​​Grid{LocatorPane[Dynamic[pos],Dynamic[ArrayPlot[ImageData[myFRAP[[t]],Automatic],ColorFunctionGrayLevel,Epilog{Red,Dynamic[Circle[pos,rad]]},PlotRange{All,All}]]]},​​DynamicModule{roi,frapData},​​roi=Table[If[({i,j}-pos).({i,j}-pos)<
2
rad
,1,0],{j,1,dimy},{i,1,dimx}];​​frapData=Table[Plus@@(roiImageData[myFRAP[[i]],Automatic]//Flatten),{i,1,Length[myFRAP]}];​​Show
frapData
If[frapData〚1〛==0,1,frapData〚1〛]
//ListPlot[#,FrameTrue,FrameLabel{"image number (N)","intensity (A.U.)","ROI Intensity versus Image Number"},PlotRange{All,{0,1.3}}]&,Graphics[{Red,Dynamic[Line[{{t,0},{t,1.3}}]]}],ImageSize{400,300},​​{{t,5,"image number"},1,25,1},​​{{rad,15,"ROI radius"},1,30,1},​​{{pos,{88,30}},ControlTypeNone},​​TrackedSymbolsTrue,AutorunSequencing{1,2},​​SynchronousInitializationFalse,​​Initialization​​myFRAP=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
;​​{dimy,dimx}=Dimensions[myFRAP〚1,1〛]​​
​
image number
ROI radius

CAPTION

DETAILS

THIS NOTEBOOK IS THE SOURCE CODE FROM
◼
Contributed by: Timothy J. Stasevich
A full-function Wolfram Mathematica system (Version 6 or higher) is required to edit this notebook.​GET WOLFRAM MATHEMATICA »
Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.