A Selection and Analysis Tool for Fluorescence Recovery after Photobleaching (FRAP) Region of Interest (ROI)
A Selection and Analysis Tool for Fluorescence Recovery after Photobleaching (FRAP) Region of Interest (ROI)
ManipulateGrid{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)<,1,0],{j,1,dimy},{i,1,dimx}];frapData=Table[Plus@@(roiImageData[myFRAP[[i]],Automatic]//Flatten),{i,1,Length[myFRAP]}];Show//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,InitializationmyFRAP=
2
rad
frapData
If[frapData〚1〛==0,1,frapData〚1〛]
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
;{dimy,dimx}=Dimensions[myFRAP〚1,1〛]
CAPTION
CAPTION
DETAILS
DETAILS
THIS NOTEBOOK IS THE SOURCE CODE FROM
◼
A full-function Wolfram Mathematica system (Version 6 or higher) is required to edit this notebook.GET WOLFRAM MATHEMATICA »